首页 > 解决方案 > 运行时错误“1004”无法设置工作表类的可见属性

问题描述

在按下用于显示所需工作表的按钮或按下箭头图标以退出工作表时,我遇到了上述问题。我用于箭头图标的代码是:

Sub Hide_stock()
Sheets("Main Page").Select
Sheets("stock").Visible = False
End Sub

所有的工作表都受到保护。它运行良好 25 天,现在出现问题。我还通过取消保护所有工作表来检查它,但问题仍然存在。

标签: excelvba

解决方案


您可能需要先检查工作簿结构是否受到保护

Sub Hide_stock()
Dim wkb As Workbook
    Set wkb = ThisWorkbook
    If Not wkb.ProtectStructure Then
        Sheets("Main Page").Select
        Sheets("stock").Visible = False
    Else
        MsgBox "Workbook Structure is protected. Please unprotect first." _
        , vbOKOnly, "Workbook protected"
    End If
End Sub

推荐阅读