Excel VBA保护返回错误

Question

我在这里和其他地方看到过很多关于在ThisWorkbook对象中使用以下代码以保护您的工作簿但仍允许运行宏的文章：

Private Sub Workbook_Open()
    ActiveWorkbook.Protect UserInterfaceOnly:=True
End Sub

但是，弹出的保护功能工具提示仅提供三个参数Protect（[password]，[structure]，[windows]）。 因此，当我打开文档时，出现以下错误

“编译错误：找不到命名参数”

关于UserInterfaceOnly:=True 。

我使用了错误的保护功能，还是我缺少其他功能？ 我想允许用户使用表格/宏将数据输入到工作簿中，但是我不希望他们能够手动更改任何单元格。

我正在运行的保护功能似乎与我发现的许多其他保护解决方案具有不同的参数。 这可能是版本问题还是其他问题？

Answer 1

蒂姆·威廉姆斯 （ Tim Williams）提供的建议奏效了。 保护在工作簿级别的工作方式不同，因此我需要为要保护的每个工作表编写单独的代码。 我使用以下代码保护工作表，但允许填写表格：

Private Sub Workbook_Open()
    Worksheets("Sheet1").Protect UserInterfaceOnly:=True
    Worksheets("Sheet2").Protect UserInterfaceOnly:=True
    Worksheets("Sheet3").Protect UserInterfaceOnly:=True
End Sub