Question

我用密码保护了我的工作表，我正在尝试使用一个运行代码的按钮来复制和粘贴另一个单元格中的东西，但是当我按下按钮时它说我无法做任何事情因为工作表是用密码保护。如何在代码运行后使用按钮并重新保护工作表？这是命令按钮的代码

Private Sub CommandButton7_Click()

'-----Output(FR) button------

'French Note
 Range("P11").Select   Selection.Copy
 Range("P12").Select
 Selection.PasteSpecial Paste:=xlPasteValues
 CheckSpelling


End Sub

Answer 1

我们假设 P12 是锁定，并且工作表受到保护。我们取消保护，进行更改，然后重新保护：

Sub CommandButton7_Click()
    ActiveSheet.Unprotect Password = "obvious"
    Range("P11").Select
    Selection.Copy
    Range("P12").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.CheckSpelling
    ActiveSheet.Protect Password = "obvious"
End Sub

取消保护单元格

1 个答案: