在工作表之间复制和粘贴_目标工作表受密码保护答案

【问题标题】：Copy & Paste between sheets_ the destination sheet is a password protected在工作表之间复制和粘贴_目标工作表受密码保护
【发布时间】：2021-01-08 17:59:38
【问题描述】：

我正在尝试将值从 Sheet1 复制到 Sheet2。 Sheet2 受密码保护。每当它激活时，我都会向 Sheet2 添加一个宏（用于基于单元格值的自动颜色更新）。

由于 Sheet2 受到保护，宏代码必须首先取消保护，进行更改，然后保护工作表。

同时，在此过程中，复制的数据丢失了，我无法将数据从 Sheet1 复制并粘贴到 Sheet2。

谁能帮我解决这个问题？

【问题讨论】：

我可以立即想到的两个选项... 1. 先解除保护，然后复制。您应该避免在复制和粘贴之间做任何事情。您可能想查看THIS 2. 使用UserInterfaceOnly:=True 这样您就不必取消保护工作表。您可以在Worksheet.Protect method (Excel) 中了解它
首先打开表 2 并提供密码，然后进行复制和粘贴，最后重新输入表 2 的密码。

标签： excel vba copy-paste

【解决方案1】：

首先取消保护工作表，然后进行复制粘贴。最后如下图重新保护工作表。

Sub CopyPaste()
    Set Source = ThisWorkbook.Worksheets("sheet1")
    Set Destination = ThisWorkbook.Worksheets("sheet2")

    Destination.Unprotect Password:="password"

    Source.Range("A1").Copy
    Destination.Range("A3").PasteSpecial Paste:=xlPasteFormats

    Destination.Protect Password:="password"
End Sub

【讨论】：