无法设置隐藏属性，受保护的工作表答案

【问题标题】：Unable to set hidden Property, Protected Worksheet无法设置隐藏属性，受保护的工作表
【发布时间】：2014-06-18 00:17:19
【问题描述】：

我有一些 VBA 代码可以在打开时保护单个工作簿中的 3 张工作表。

Private Sub workbook_open()

  Sheets("InputForm").Protect "password", UserInterfaceOnly:=True
  Sheets("Invoice").Protect "password", UserInterfaceOnly:=True
  Sheets("List").Protect "password", UserInterfaceOnly:=True

End Sub

我还有一些代码可以根据 TRUE/FALSE 是否在单元格 N14 中显示/隐藏行

Private Sub Worksheet_Calculate()
   If ActiveSheet.Name = "InputForm" Then
     Application.EnableEvents = False
     Sheets("Invoice").Rows("57:123").Hidden = Range("N14").Value
     Sheets("InputForm").Rows("57:94").Hidden = Range("N14").Value
     Application.EnableEvents = True

Else
    Application.EnableEvents = False
    Application.EnableEvents = True
End If
End Sub

当我使用命令按钮执行一些复制/粘贴代码时，我收到错误 1004，无法设置范围类的隐藏属性。调试指向Sheets("Invoice")... 行。

但是，如果我结束调试器并再次单击该按钮，它似乎工作正常...？

任何帮助将不胜感激

【问题讨论】：

标签： excel vba

【解决方案1】：

您需要先取消保护您的工作表，然后才能对其进行更改 - 即使使用 VBA - 这是相同的概念。

【讨论】：