如何在vba中保护工作表和取消保护列表对象(扩展到删除和添加行)

Sub ProtectWorksheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要保护的工作表名称
    
    ws.Protect Password:="password", UserInterfaceOnly:=True
End Sub

Sub UnprotectListObject()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要取消保护列表对象的工作表名称
    
    ws.ListObjects("Table1").Unprotect Password:="password" '替换为你要取消保护的列表对象名称
End Sub

Sub ProtectAndUnprotectRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你要操作的工作表名称
    
    '保护工作表
    ws.Protect Password:="password", UserInterfaceOnly:=True
    
    '删除行
    ws.Rows(2).Delete '删除第2行
    
    '添加行
    ws.Rows(2).Insert '在第2行之前插入新行
    
    '取消保护工作表
    ws.Unprotect Password:="password"
End Sub