Problem with checkbox's

[ColinSW]

You might want to say what code you are using to hide / show the checkbox.

Sub Lockclosed()
Dim i As Integer
Dim A As String
A = InputBox("Sorry, only teachers can use this")
If A = "magister" Then
Slide7.Shapes("CheckBox1").Visible = True
For i = 1 To 52
ActivePresentation.Slides(i).Shapes("Oval77").Visible = False
ActivePresentation.Slides(i).Shapes("Hint").Visible = False
ActivePresentation.SlideMaster.Shapes("Lockopen").Visible = True
ActivePresentation.SlideMaster.Shapes("Lockclosed").Visible = False
Next i
End If
End Sub

Sub Lockopen()
Dim i As Integer
Slide7.Shapes("CheckBox1").Visible = False
For i = 1 To 52
ActivePresentation.Slides(i).Shapes("Oval77").Visible = True
ActivePresentation.Slides(i).Shapes("Hint").Visible = True
ActivePresentation.SlideMaster.Shapes("Lockopen").Visible = False
ActivePresentation.SlideMaster.Shapes("Lockclosed").Visible = True
Next i
End Sub