Vba &引用；运行时错误1004无法设置range类的隐藏属性；尝试隐藏/取消隐藏某些列时，工作表受到保护

我有宏来隐藏和取消隐藏某些列

宏将一直工作，直到我对工作表应用保护

有没有绕过障碍的建议

Sub CLOSEINFO()
'
' CLOSEINFO Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Columns("B:W").Select
    Range("W1").Activate
    Selection.EntireColumn.Hidden = True
End Sub

请尝试以下操作：

Sub CLOSEINFO()
    If ActiveWorkbook.ActiveWorksheet.ProtectionType <>"" Then
    'or: IF ActiveWorkbook.ActiveWorksheet.ProtectionType <> WdNoProtection then
       ActiveWorkbook.ActiveWorksheet.Unprotect
    End If
    Columns("B:W").Select
    Range("W1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWorkbook.ActiveWorksheet.Protect wdAllowOnlyReading 'NOTE!
End Sub

Sub CLOSEINFO（）
如果ActiveWorkbook.ActiveWorksheet.ProtectionType为“”，则
'或：如果是ActiveWorkbook.ActiveWorksheet.ProtectionType WdNoProtection，则
ActiveWorkbook.ActiveWorksheet.Unprotect
如果结束
列（“B:W”）。选择
范围（“W1”）。激活
Selection.EntireColumn.Hidden=True
ActiveWorkbook.ActiveWorksheet.Protect WDAllowOnReading'注释！
端接头

---

注意：WdAllowOnlyComments、WdAllowOnlyFormFields、WdAllowOnlyReading、WDAllowOnlyVersions（保护选项）

您可以取消保护、取消隐藏，然后重新保护。或者您可以使用UserInterfaceOnly参数来保护命令。请查看保护工作表时可用的选项。通常它默认为只允许选择锁定的单元格和选择未锁定的单元格。将格式列添加到此中，用户或宏将能够取消隐藏列。