Beste oplossers,
Ik probeer al een ganse dag op één of ander manier een Excel werkmap met 14 tabbladen deze 14 samen de cellen te beveiligen.
Ik had deze code gevonden maar ik krijg steed de melding dat er na, Private Sub Cmd_9_Click(), een End Sub verwacht wordt, maar dat kan toch niet?
Private Sub Cmd_9_Click()
Sub Beveilig_Alles()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:="Woord"
Next
End Sub
Sub OntGrendel()
ww = InputBox("Wachtwoord?")
For Each sh In Worksheets
sh.Unprotect Password:=ww
Next
Sheets("Balans1").Select
End Sub
Met dank bij voorbaat
Jean-Pierre.