VBA 收到错误 Worksheet 类的 Active 方法失败

Question

我试图寻找答案，但到目前为止没有找到任何有效的方法。运行此代码时，我有一些代码适用于某些人，但不适用于其他人(使用相同版本的 Excel):

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Sheets("Discount").Activate
ActiveSheet.Unprotect Password:="01"    
ActiveSheet.Range("G14:O15,O18:O19,D29:I29,D31:I31,D33:I33,D35:I35,D37:I37").ClearContents
ActiveSheet.Shapes("Option Button 31").ControlFormat.Value = xlOn
OptionButton31_Click
Application.ScreenUpdating = True

End Sub

错误显示在 Sheets.("Discount").Activate

工作表的拼写正确。我也试过

Private Sub Workbook_Open()

ActiveWorkbook.Unprotect Password:="01"
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    ThisWorkbook.Sheets("Discount").Activate
    ActiveSheet.Unprotect Password:="01"    
ActiveSheet.Range("G14:O15,O18:O19,D29:I29,D31:I31,D33:I33,D35:I35,D37:I37").ClearContents
ActiveSheet.Shapes("Option Button 31").ControlFormat.Value = xlOn
OptionButton31_Click 
ActiveWorkbook.Protect Password:="01"
Application.ScreenUpdating = True

并且仍然收到错误。我很难弄清楚它，因为它每次都对我有用，但对其他人无效。

Answer 1

解决方案一:

而不是 Sheets.("Discount").Activate写Sheets("Discount").Activate它应该可以工作。例如，删除点。

方案二:

如果这不起作用，请尝试确保此工作表可见。例如。在有以下错误的行之前写下:
Sheets("Discount").Visible = True
一般来说，在 VBA 中尽量避免 ActiveSheet , ActiveWorkbook , ActiveCell -
How to avoid using Select in Excel VBA

正如@Mat's Mug 所述，考虑使用Worksheets("Discount").Visible ，当您提到工作表时，因为 Sheets集合包含 Charts也是。