保護/取消保護圖表

Question

所以我有這些簡單的子保護，而不是保護我的宏時運行的東西，唯一的問題是，我的一些牀單實際上是圖表，並且當這些子被調用時它們不受保護。我怎樣才能更改我的代碼以合併圖表？謝謝！

Sub UnprotectAll() 

    Dim AdminPassword As String 
    AdminPassword = "password" 

    ActiveWorkbook.Unprotect ("Evaluate(AdminPassword)") 

    For Each sh In ActiveWorkbook.Worksheets 
    sh.Unprotect Password:=AdminPassword 
    Next sh 

End Sub 

Sub ProtectAll() 

    Dim AdminPassword As String 
    AdminPassword = "password" 

    ActiveWorkbook.Protect ("Evaluate(AdminPassword)") 

    For Each sh In ActiveWorkbook.Worksheets 
    sh.Protect Password:=AdminPassword 
    Next sh 

End Sub 

Answer 1

通過ActiveWorkbook.Sheets