Untick box

[styler]

I have a tickbox that locks a sheet. I also have a button next to it which will unlock the sheet. Does anyone know of the code I should use to untick the box when the button is pressed?

 

[SteveO59L]

How about using the linked cell property for the tick box, and as part of your macro write "false" to the linked cell.

 

[styler]

I tried that, only the cell has text in it and it changed the text to 'false' instead? Can I use the name of the tick box 'Approve1_Click()',


This is my code so far:








Private Sub Approve1_Click()
'
' lockout Macro
' Macro recorded 10/01/2005 by simontyler
'
line0:
P1$ = InputBox("Please enter the password 'cen', in below box to lock spreadsheet. or press cancel.")
If P1$ = "cen" Then GoTo line2
If P1$ = "" Then GoTo line1
line1:
MsgBox ("Incorrect password, Please enter a password")
GoTo line0
line2:
ActiveSheet.Protect P1$
Sheets("Extra").Protect P1$
End Sub




Private Sub unlocksheet1_Click()
line6:
P1$ = InputBox("Please enter password 'cen', to unlock")
If P1$ = "cen" Then GoTo line4
If P1$ = "" Then GoTo Line5
Line5:
MsgBox ("incorrect password, please enter a password")
GoTo line6
line4:
ActiveSheet.Unprotect P1$
Sheets("Extra").Unprotect P1$
End Sub

 

[styler]

It seems this one is not so easy, can anyone suggest something for this?