VBA事件 - 如果選擇了受保護表單中的單元格解鎖

Question

我的單元格包含驗證下拉列表，如果我點擊單元格，如何讓我的VBA解鎖它？

否則，我試圖簡單地解鎖特定的細胞一旦我運行受保護的宏，但它不工作：

Sub ProtectAll() 

Dim sh As Worksheet 
Dim MyPassword As String 

MyPassword = "test" 

For Each sh In ActiveWorkbook.Worksheets 
    sh.Protect Password:=MyPassword 
Next sh 

ThisWorkbook.Sheets("WACC1").Unprotect 
ThisWorkbook.Sheets("WACC1").Range("C4").Locked = False 
ThisWorkbook.Sheets("WACC1").Protect 

End Sub 

希望你們可以幫忙。

在此先感謝！

Answer 1

你幾乎得到了答案 只需提供密碼來解鎖，並確保工作表處於活動

Activesheet.Unprotect MyPassword 

Answer 2

可以使用userinterfaceonly選項保護工作表，但允許來自比方說，一個任何程序化的變化宏。

ThisWorkbook.Sheets("WACC1").Protect Password:=MyPassword, UserInterfaceOnly:=True