如何設置密碼，當有人在Excel中點擊不保護表格並創建一個編輯按鈕

Question

我已經使用這行代碼鎖定了電子表格中的單元格。

Range("A1:D23").Select 
Selection.Locked = True 
ActiveSheet.Protect Contents:=True 

這促使我每當我點擊一個細胞，其是隻讀不保護從審覈選項卡並可能會提示輸入密碼。

我的問題是，它不提示輸入密碼。當他想要解除保護時，我如何首先設置密碼。其次，我想傳遞他選擇要更改的行信息，並且希望在毗鄰只讀時創建按鈕單元格用於編輯。

Answer 1

我得到您的問題的第一部分。你需要指定一個密碼參數作爲工作表的Protect方法的一部分：

Sub lockSheet() 
    With ActiveSheet 

     'Check sheet is not already protected 
     If Not .ProtectContents Then 

      'Clear any existing lock settings 
      .Cells.Locked = False 

      .Range("A1:D23").Locked = True 
      .Protect Contents:=True, Password:="pw" 
     End If 
    End With 
End Sub 

請注意，這是沒有必要的修改之前選擇一個範圍，只需直接套用行動的範圍。

密碼顯然是明文可見的，如果您需要保護到任何程度，那麼您還需要apply a password to the VBA project。

爲了解決你問題的第二部分，修正您的評論：

Private Sub Worksheet_SelectionChange(ByVal target As Range) 
    If target.Locked Then 
     With ActiveSheet 
      .Unprotect 
      If Not .ProtectContents Then 
       target.Locked = False 
       .Protect Contents:=True, Password:="pw" 
      End If 
     End With 
    End If 
End Sub 

這將需要添加到工作表模塊。