运行时错误“1004”无法设置工作表类的可见属性

Question

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

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

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

Answer 1

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

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