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

Question

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

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

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

有人能帮我解决这个问题吗？

Answer 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