取消保护工作簿和工作表仅接受1个参数，即密码字符串。
Workbook Unprotect Property
所以你的代码可以是这样的：

Sub UnprotectWorkbookWorksheets()

    Dim ws As Worksheet
    Dim wb As Workbook
    
    Const strPassword As String = "XYZ1!!"
    
    Set wb = ThisWorkbook

    wb.Unprotect strPassword

    For Each ws In wb.Worksheets
         ws.Unprotect strPassword         
    Next ws

End Sub

“结构”选项仅在“保护”方法中可用。
Workbook Protect Property
因此，您的代码可能如下所示：

Sub ProtectWorkbookWorksheets()

    Dim ws As Worksheet
    Dim wb As Workbook
    
    Const strPassword As String = "XYZ1!!"
    
    Set wb = ThisWorkbook

    For Each ws In wb.Worksheets
         ws.Protect strPassword
    Next ws

    wb.Protect Password = strPassword, Structure = True, Window = False

End Sub

Private Sub UnprotectAllSheets()
Application.EnableCancelKey = xlDisabled
     For Each wsheet In ActiveWorkbook.Sheets
         wsheet.Unprotect (XYZ123!)
      Next wsheet
End Sub

Private Sub ProtectAllSheets()
Application.EnableCancelKey = xlDisabled
     For Each wsheet In ActiveWorkbook.Sheets
         wsheet.Protect (XYZ123!)
      Next wsheet
End Sub

Private Sub protect_wb_structure()

    Dim wbPRotect As Workbook
    Const strPassword As String = "XYZ123!"
    Set wbPRotect = ThisWorkbook
    wbPRotect.Protect Password = strPassword, Structure = False, Window = False

End Sub

Private Sub Unprotect_wb_structure()

    Dim wbunprotect As Workbook
    Const strPassword As String = "XYZ123!"
    Set wbunprotect = ThisWorkbook
    wbunprotect.Protect Password = strPassword, Structure = True, Window = False

End Sub