Supportnet / Forum / Tabellenkalkulation
Zurück zum Problem
Frage
Hallo,
mit diesem Thread möchte ich auf das Thread "Formatieren gesperrter Zellen" zurückgreifen, das ein Code zum Erstellen enes Menüpunktes für das Ändern der Farbe nicht gesperrter Zellen eines gesperrten Blattes im Excel enthält:
[b]Sub Menü()
Dim MenüLeiste As CommandBar
Dim neuesMenü As CommandBarControl,
neuerEintrag As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("Zellfarbe").Delete
Set MenüLeiste = CommandBars.ActiveMenuBar
Set neuesMenü = MenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
neuesMenü.Caption = "Zellfarbe"
Set neuerEintrag = neuesMenü.Controls.Add(Type:=msoControlButton, Temporary:=True)
neuerEintrag.Caption = "Zellfarbe ändern"
neuerEintrag.OnAction = "Zellfarbe"
neuerEintrag.BeginGroup = True
Set MenüLeiste = Nothing
Set neuesMenü = Nothing
End Sub
Sub Zellfarbe()
ActiveSheet.Unprotect Password:="christof"
If Selection.Cells.Locked = False Then
Application.Dialogs(xlDialogPatterns).Show
ActiveSheet.Protect Password:="christof"
Else
ActiveSheet.Protect Password:="christof"
End If
End Sub[/b]
1.Das Problem liegt im gleichzeitigen Ändern der Farbe der gleichen Zellen bei meheren zusammengruppierten Zellen wegen [b]"ActiveSheet.Unprotect "[/b]. Man könnte glaube ich mit einer Funktion mit [b]ByVal/ByReff [/b]und Tabellennamen (beim manuellem gruppieren) als Parameter od. Variablen ein Makro so gestalten, dass es bei allen gruppierten Blättern ab dem erstem Blatt nacheinander den Blattschutz vor dem Zelleneinfärben aufhebt und nach dem wieder setzt.
Das ist nur eine Vermutung, da ich selbst gar keine Ahnung habe, wie das gehen sollte.
Man könnte es so gestalten, dass eine Funktion/Prozedur nach dem aktuellem Blattstatus abfragt und diesen dann umkehrt, obwohl es dann auch nicht ganz korrekt ist. Was ist, wenn ich vergesse einen der Blätter zu schützen? Dann werden alle anderen Blätter "entschützt" und dieses eine Blatt geschützt. So geht dann das Einfärben wieder nicht.
Also muss es entweder schützen, oder entsperren. So werden entsperrte Blätter geschützt und geschützte behalten ihren Status und umgekehrt.
2.Ein Anderes Problem sehe ich in dem festgelegtem Passwort. Was ist wenn ein anderer Benutzer über die Menüleiste einen anderen Passwort eingibt? Ich denke an diese Stelle muss auch eine Funktion rein, die vor dem Schützen eine Abfrage nach dem Passwort macht.
Irgend-eine Idee?
Ich finde diese Aufgaben mehr oder weniger als eine Herausforderung(vielleicht auch für Profis). Für mich persönlich ist es Eine, sogar nicht bewältigbare.
Ich Danke Euch für Eure Achtung und "Zeitverschwendung".
MfG
RIDDIK
[*][quote][sup][i]Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/groupfaqs/3][u]FAQ2.[/u][/url][/i][/sup][/quote]