Question

我有一个宏，我可以在其中获取电子表格，隐藏所有表格并保护它。隐藏部分工作得很好。但保护部分不是。这是我的代码：

  Dim sh As Worksheet

  For Each sh In Worksheets

    If sh.Name <> "Simulador" Then sh.Visible = xlSheetHidden
    sh.Protect Password:="123"

  Next

有谁知道我可能会出错？

Answer 1

要防止用户取消隐藏隐藏的工作表，您需要保护工作簿结构

试试这个：

    Sub TEST()
        With ThisWorkbook
            .Sheets("Simulador").Visible = xlSheetVeryHidden
            .Protect Password:="PassKey", Structure:=True
        End With
        End Sub

仅使用vba可以撤消将工作表的可见性设置为xlSheetVeryHidden。

请参阅以下页面：
Workbook.Protect Method (Excel)

保护和隐藏表

1 个答案: