Blattschutz-Passwort abfangen/abfragen zur Verwendung in VBA-Code
03.12.2019 11:43:34
Max
ich habe ein VBA Problem, bei dem ich hoffe, dass mir jemand von Ihnen weiterhelfen kann.
Ich habe bei mir im Unternehmen eine Excel-Datei für den Urlaubsplan.
Diese darf nur von zwei Mitarbeitern aus der Verwaltung bearbeitet werden, aber alle Mitarbeiter müssen darauf Zugriff haben, somit beinhaltet sie ein Blattschutz.
Da diese Liste sehr unübersichtlich ist, habe ich mit Gruppierungen die Monate und Abteilungen gruppiert.
Leider funktioniert die Gruppierung nur, wenn ich diesen durch unternstehenden VBA-Code erlaube.
Mein Problem ist nun, dass wenn einer der Mitarbeiter aus der Verwaltung ein neues Passwort möchte, dann funktioniert der Code nicht mehr.
Gibt es eine Möglichkeit dies so zu gestalten, dass eine Änderung des Passworts möglich ist? Das Passwort einfach abzufragen funktioniert schließlich nicht (was so ja auch sinnvoll ist).
Sub Workbook_Open()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect userinterfaceonly:=True, Password:="MEINPASSWORT"
WsTabelle.EnableOutlining = True
Next WsTabelle
End Sub
Ich bin für jegliche Hilfe dankbar.Unsere Excel-Version ist 2010 Professional
Grüße
Max