Sub starten von UserForm aus geht nicht
26.03.2009 08:44:07
UserForm
habe meine Daten auf dem Sheet "ABLAGE" per Makro gechützt und wollte diese wieder per Makro entsperren. Nach einem Bestimmten Ereignis habe ich über meinen geschützten daten eine Userbox , da wollte ich auf den Button klicken:
Private Sub CommandButton1_Click()
Daten_freigeben
unload me
End Sub
damit die Daten mit der Funktion aus meinem Modul wieder entsperrt werden und die Userform wieder geschlossen wird:
Sub Daten_freigeben()
ActiveSheet.Unprotect Password:="test"
Range("A10:BB3000").Locked = False
Range("A10:BB3000").Interior.ColorIndex = xlNone
ActiveSheet.Protect
End Sub
Aber irgend wie fühlt sich die Funktion Sub Daten_freigeben() nicht angesprochen. Solange ich das ganze von der UserForm aus starten will geht es nicht, kommt auch keine Fehlermeldung. Erst wenn ich die Userform schliesse und die Funktion in dem Modul manuell starte, werden die Daten entsperrt.
Woran liegt denn das, dass ich den Code von der UserForm aus nicht ausführen kann.
Ist sicher wieder so ein Anfängerfehler :-(
Danke mal und Gruss
Kai
Anzeige