VBA允许仅复制保护表中的可见单元格

Question

我有一个带有以下选项的受保护工作表，该工作表包含一些隐藏的行/列。

        ThisWorkbook.Sheets(ws.Name).EnableOutlining = True
        ThisWorkbook.Sheets(ws.Name).Protect password, _
            AllowFormattingColumns:=True, _
            AllowFormattingRows:=True, _
            userInterfaceOnly:=True, _
            contents:=True, _
            AllowFormattingCells:=True

我使用此代码来阻止工作表，但我希望允许用户也只复制可见单元格（例如使用 alt +;）。

我在 Microsoft 网站上看到了文档（已由 @Mech 发布），但我测试了这些选项，除了选项 Contents:= False 之外没有其他选项有效，但此选项设置为 False 允许用户仅复制可见单元格编辑单元格的内容（我不希望发生）。

有人知道其他方法吗？

提前致谢！

Answer 1

此代码应基于取消对单元格的保护以进行复制，从而满足您的需求。

ActiveSheet.Unprotect Password:="password"
Selection.SpecialCells(xlCellTypeVisible).Select
ActiveSheet.Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True

src：https://www.mrexcel.com/board/threads/copy-only-visible-cells-on-protected-sheet-book.412461/