保护/取消保护图表

所以我有这些简单的子保护，而不是保护的东西，而我的macros正在运行，唯一的问题是，我的一些床单实际上是图表，他们不受保护，当这些子被调用。 我怎样才能改变我的代码来整合图表呢？ 谢谢！

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.WorksheetsreplaceActiveWorkbook.Sheets