取消保護細胞

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