在没有提示的情况下保存为相同的路径和名称

Question

要求：

1. 保护所有工作表
2. 隐藏除 PERMISSIONS 表之外的所有表
3. 为文件添加密码并保存在同名路径下，无需提示

以下代码似乎无法正常工作。它不应用文件保护。

不确定我哪里出错了。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Dim a110w As Variant
    Dim path As String
    
    
    a110w = "123" 'P
    path = Application.ThisWorkbook.path
    
 
    Application.DisplayAlerts = False
    
          
          ThisWorkbook.Unprotect Password:=a110w 'Unprotect workbook structure
          
         For Each Worksheet In Sheets 'Protect all sheets
          
              Worksheet.Protect Password:=a110w
         Next
    
         For Each Worksheet In Sheets 'Hide all sheets except PERMISSIONS sheet
          
             If Not Worksheet.Name = "Permissions" Then Worksheet.Visible = xlVeryHidden
          Next
          
    With ThisWorkbook
       .SaveAs Filename:=path, FileFormat:=50, Password:=a110w
       
    End With
         
          
    Application.DisplayAlerts = True
    
          
    
    End Sub