vba - 在 VBA 中为 protected Excel 工作表指定用户权限

Question

我正在使用一个电子表格，为了数据完整性，在分发之前需要对其进行保护。我编写了一个基于下拉列表选择自动填充列的函数。我不希望用户编辑此列，因此我对其进行了保护，但是为了自动填充我的流程，取消保护并重新保护电子表格。这就是问题所在。

我希望用户拥有所有其他权限(例如格式化、行插入、行删除等)。但是，当进程重新保护工作表时，所有权限都将被撤销。

有没有办法既可以锁定工作表又可以指定我想在 VBA 中授予哪些用户权限？

Answer 1

Worksheet.Protect method允许指定执行 Review ► Changes ► Protect Worksheet 命令时可用的所有内容。这些参数在很大程度上是可选的，因此需要明确指定它们，或者可以使用逗号作为占位符传入空白参数。

要使用密码保护工作表并允许列格式和行插入:

With Worksheets("Sheet One")
    .Protect Password:="myPassword", Contents:=True, _
             AllowFormattingColumns:=True, AllowInsertingRows:=True
    'insert a row
    .Rows("9:9").EntireRow.Insert CopyOrigin:=xlFormatFromLeftOrAbove
End With

见Worksheet.Protect method有关可用选项的完整列表。

另一个选项是 UserInterfaceOnly .这会阻止用户在工作表上执行预定操作，但允许 VBA 过程执行否则会受到限制的操作。

With Worksheets("Sheet One")
    .Protect Password:="myPassword", UserInterfaceOnly:=True, Contents:=True, _
                 AllowFormattingColumns:=True, AllowInsertingRows:=True
    'insert a column; the user cannot do this
    .Columns(2).EntireColumn.Insert CopyOrigin:=xlFormatFromLeftOrAbove
End With

后一种行为允许您在 VBA 过程中获得更多自由，而不必不断地取消保护和重新保护工作表。