체크박스로 시트 보호 해제 및 셀 잠금 해제

체크박스를 활용하여

시트보호 해제 / 셀 잠금 해제 하는 코드

Sub 확인란2_Click()
 
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect "admin"
        Call Check2
        ActiveSheet.Protect "admin"
        
    Else
        Call Check2
    End If
 
End Sub
Sub 확인란4_Click()
 
    ActiveSheet.Unprotect "admin"
    
    If Range("C5") = True Then
        Range("C5").Locked = False
        Range("E5").Locked = False
        Range("G5").Locked = False
        ActiveSheet.Protect "admin"
    End If
    
End Sub
 
Sub Check2()
    
    Select Case Range("E5").Value
        Case True
            Range("C11:E14").Interior.Color = vbYellow
        Case False
            Range("C11:E14").Interior.Pattern = xlNone
    End Select
    
End Sub
 
Sub 확인란3_Click()
 
    If ActiveSheet.ProtectContents = False Then Exit Sub
    
    ActiveSheet.Unprotect "admin"
    
    If Range("G5") = True Then
        Range("C11:E14").Locked = False
    Else
        Range("C11:E14").Locked = True
    End If
    
    ActiveSheet.Protect "admin"
    
End Sub

도와주세요2.xlsm