ActiveX bei Passwortschutz
04.03.2015 13:20:41
Chris
ich habe folgendes Problem und beiß mir irgendwie die Zähne aus! Ich habe eine Zeiterfassung erstellt und bei dieser alles geschützt abgesehen von den ZEllen wo der Nutzer etwas eintragen soll.
Nun habe ich einen Startbildschirm generiert bei dem der Nutzer seinen Namen, das Jahr und den Monat auswählen kann. Mein Problem ist. dass trotz Makro der Zellenschutz nicht wirklich aufgehoben wird. Kann man irgendwie einstellen, dass zuerst das Makro bis zu dem Punkt läuft wo der Blatt-Schutz aufgehoben wird und dann die mit dem Steuerelement verknüpfte Zelle geändert wird?
Folgendes (vermutlich viel zu komplizierte) Makro verwende ich im Übrigen:
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="***"
Worksheets("Aktuell").Select
ActiveSheet.Unprotect Password:="***"
Worksheets("Backup").Select
ActiveSheet.Unprotect Password:="***"
Worksheets("Überstunden").Select
ActiveSheet.Unprotect Password:="***"
Worksheets("Aktuell").Select
ActiveSheet.Protect Password:="***"
Worksheets("Backup").Select
ActiveSheet.Protect Password:="***"
Worksheets("Überstunden").Select
ActiveSheet.Protect Password:="***"
Worksheets("Start").Select
ActiveSheet.Protect Password:="***"
Application.ScreenUpdating = True
End Sub
Vielen Dank schonmal für Eure Hilfe!
Gruß
Chris