Question

使用Excel VBA，如何使用多个不同的变量锁定工作表，即允许用户使用自动过滤和排序选项。

我已经走到了这一步：

工作表（＆＃34;第1页和第34页;）。保护密码：=＆＃34;密码＆＃34;

我接下来要写什么才能允许用户：选择un / locked单元格格式化列/行分类使用自动过滤器

谢谢，

Answer 1

您可以使用工作表的Protect方法使用16个参数。以下是基于此MSDN文章的代码示例：

Option Explicit

Sub LockSheet()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets(1)

    ws.Protect Password:="Foo", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterfaceOnly:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True

End Sub

Answer 2

只是为了添加@Robin给出的答案，这里是.Protect函数的URL，您可能会发现读取每个参数的作用很有用，也有些假设是真的，有些假的是假的

https://msdn.microsoft.com/en-us/library/office/ff840611.aspx

亲切的问候，

lewisthegruffalo

使用多个保护变量保护Excel工作表

2 个答案: