VBA Excel：在受保护的工作表上移动数据宏错误

Question

Sub My_Code()

ThisWorkbook.Sheets("Main").Range("A1") = "Main Data"
ThisWorkbook.Sheets("Secondary").Range("A2").Copy Sheets("Main").Range("B2")

End Sub

Private Sub Workbook_Open()

Sheets("Main").Protect Password:="Mypassword", UserInterfaceOnly:=True
Sheets("Secondary").Protect Password:="Mypassword", UserInterfaceOnly:=True

End Sub

并调试到thisworkbook.sheets（“secondary”）....行。

当我手动取消对主表的保护时，代码将运行。你知道为什么我不能离开Main保护吗？我是不是忘了什么？

Answer 1

@jkpieterse给出了这个问题的解决方案，将My_Code()的第二行更改为

Thisworkbook.Sheets("Main").Range("B2").Value = ThisWorkbook.Sheets("Secondary").Range("A2").Value

然而，这在我的代码中创建了一个新的错误，在关于的注释中提到了这个错误。who在此问题背后的原因是userinterfaceonly=true不允许宏修改工作表，它只允许更改值。因此，在修改工作表时，没有办法使用保护工作的接口。从这里唯一的解决办法是：

Sub My_Code()
Dim ws as Worksheet
Set ws = ThisWorkbook.Sheets("Main")

ws.UnProtect Password:="Mypassword"

On Error GoTo ErrHandeler

ws.Range("A1") = "Main Data"
ThisWorkbook.Sheets("Secondary").Range("A2").Copy ws.Range("B2")

ws.Protect:="Mypassword"

ErrHandler:
ws.Protect:="Mypassword"
End Sub

这是下一个最安全的解决方案。