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