@ How to lock cell after click check box tick mark?

[krunal123]

Kindly Find Result....in Above Question...

 

[Yongle]

Welcome to MrExcel

Assign the macro below to a Form Control checkbox
Amend the password to the one you are using to protect the worksheet
Amend A1 to the cell that you want to protect

Sub LockUnlock()
    Const pw = "PaSsworD123"
    Dim lok As Boolean    
    With ActiveSheet
        If .CheckBoxes(Application.Caller).Value = 1 Then lok = True Else lok = False
        .Unprotect pw
        .Range("A1").Locked = lok
        .Protect pw
    End With
End Sub