使用枢轴应用过滤器，并在文件上添加行，并用宏锁定床单

Question

我一次使用以下宏（1和2）锁定并解锁文件：

我想修改这些宏来

• 过滤表
• 使用枢轴表
• 添加行添加线，

我想组合宏1和2 3.

宏1和2在线发现，并记录了宏3。

宏1和2

Sub ProtectAllWorksheets()

    Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Enter your password to protect all worksheets", "Protect Worksheets")
    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect Password:=Pwd
    Next ws
    Application.ScreenUpdating = True

End Sub

Sub UnProtectAllWorksheets()

    Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Enter your password to unprotect all worksheets", "Unprotect Worksheets")
    On Error Resume Next
    For Each ws In Worksheets
        ws.Unprotect Password:=Pwd
    Next ws
    If Err <> 0 Then
        MsgBox "You have entered an incorect password. All worksheets could not " & _
          "be unprotected.", vbCritical, "Incorect Password"
    End If
    On Error GoTo 0
    Application.ScreenUpdating = True
    
End Sub

宏3

Sub lock1sheetWFilter()
    ' lock1sheetWFilter Macro
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
      True

Answer 1

找到了我自己的答案：
我们只需要将宏1的代码修改为以下

Option Explicit

Sub ProtectAllWorksheets()

Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Enter your password to protect all worksheets", "Protect Worksheets")
    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
            True
    Next ws
Application.ScreenUpdating = True

End Sub