對複選框

Question

的點擊鎖定細胞的範圍內創建宏我想通過複選框，點擊鎖定一定範圍的Excel單元格中。 1.我正在添加一個來自developer>>Insert>>ActiveX Checkbox的複選框。

現在我期待在複選框單元格範圍A1:A30點擊要鎖定的時候喜歡當我點擊取消選中複選框應該提示我彈出解鎖，上面單元格區域

的

Answer 1

轉到的表之前提供密碼興趣和：

1）點擊左上方的灰色三角形選擇所有單元格

2）右鍵單擊單元格格式

3）確保鎖定複選框被選中

4）轉到「審閱」選項卡並選擇「保護工作表」並輸入密碼。 「密碼」

與複選框相關的代碼，你會沿着以下線的東西。它應該給你一般的元素。

Private Sub CheckBox1_Click() 
Dim wb as Workbook 
Dim ws as Worksheet 
Dim myRange as Range 
Dim response As String 

Set wb = ThisWorkbook 
Set ws = wb.Sheets("mySheetName") 'Change as appropriate 
Set myRange = ws.Range("A1:A2") 'Change as appropriate 

If CheckBox1.Value = True Then 
    'unlock range 
    response = InputBox("Enter Password") 
    If response <> "password" Then 
     Exit Sub 'Or other response such as loop to prompt again 
    Else 
     ws.Unprotect Password:="password" 
     myRange.Locked = False 
    End If 
Else 
    'range should be locked 
    ws.Unprotect Password:="password" 
    myRange.Locked = True 
End If 

ws.Protect Password:="password" 

End Sub 

您需要鎖定VBA項目，以便人們無法進入VBE並檢索密碼。

一些信息在這裏鎖定：

VBA Unlock Range