取消保护和保护另一个工作簿vba中的接收工作表

Sub UnprotectWorksheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = ThisWorkbook '当前工作簿
    Set ws = wb.Worksheets("Sheet1") '要取消保护的工作表
    
    ws.Unprotect '取消保护工作表
End Sub

Sub ProtectWorksheetInAnotherWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = Workbooks.Open("C:\Path\To\AnotherWorkbook.xlsx") '另一个工作簿的路径
    Set ws = wb.Worksheets("Sheet1") '要保护的工作表
    
    ws.Protect '保护工作表
    wb.Save '保存工作簿
    wb.Close '关闭工作簿
End Sub