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

Question

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

        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

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