Question

我有一个带有多个标签的工作簿。所有标签均受保护。有些受到完全保护，而另一些受到部分保护（即，可以调整列和行的大小）。有一页输入。按下宏按钮时，将填充所有其他选项卡。为了即使在锁定单元格的情况下也允许宏填充选项卡，我在“工作簿打开”中使用了以下代码：

Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        wSheet.Protect Password:="Secret", _
        UserInterFaceOnly:=True
Next wSheet
End Sub

但是，这会将所有选项卡重置为受到完全保护（而某些选项卡仅需要部分保护）。

有没有办法解决这个问题？

非常感谢

Answer 1

Sheet.Protect似乎有一个参数

AllowFormattingColumns  Optional    Variant

True允许用户格式化受保护工作表上的任何列。默认值为False。

您尝试过吗？

部分保护工作簿（并允许宏输入到受保护的单元格中）

1 个答案: