Question

我有一些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")...行。

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

非常感谢任何帮助

Answer 1

您需要取消保护您的工作表才能对它们进行更改 - 即使使用VBA - 它也是相同的概念。

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

1 个答案: