Hallo Excelgemeinde.
Ich habe viele Datein, die, wenn ich sie bearbeite, eine Blattschutz haben. Ich bräuchte eine Code, der mir beim öffnen von verschiedenen Dateien und Blättern gleich eine bestimmte Zelle oder so, in eine bestimmte Grundfarbe anzeigt, das der Blattschutz hier angestellt ist.
Kann mir da jemand helfen?
Ich habe viele Datein, die, wenn ich sie bearbeite, eine
Blattschutz haben. Ich bräuchte eine Code, der mir beim öffnen
von verschiedenen Dateien und Blättern gleich eine bestimmte
Zelle oder so, in eine bestimmte Grundfarbe anzeigt, das der
Blattschutz hier angestellt ist.
Hallo Kuechenjunge,
mir fallen da einige Möglichkeiten ein, mehr oder minder aufwendig.
Sind das deine Dateien? Dann färbe doch vor der Blattschutzvergabe eine Zelle bunt, wäre die einfachste Möglichkeit.
Soll der Code in jeder Datei drin stehen? Schwierig bei Fremddateien.
Es gibt auch noch eine „globale“ Lösung, also ohne Code in jeder Datei, aber lohnt sich der Aufwand, langt es dir nicht mit 2 Klicks rauszufinden ob die Datei Blattschutz hat?
Gruß
Reinhard
Also ich habe da ein Küchen rezeptsystem, alles meine Exceldatein, mit „wilde Verknüpfungen“ und „Code“. Z.T. mir Deiner und Eurer Hilfe gebastelt. Ich springe da zwischen den Rezepten und Kalkulationen hin und her, und hier ist wieder der Punkt, der mich nervt. Es wäre denkbar, wenn der Code in meiner Start Datei, in der ich per Button in die jeweiligen Datei springe bzw. sie lade, gespeichert würde. Hier wird z.B. eine Ikone automatisch in die Menüzeile per Code eingefügt und beim schließen wieder gelöscht. Hier könnte der Code auch abgespeichert werden, der dann „irgendwie mir anzeigt, …diese Blatt ist geschützt… oder nicht“
für ideen und hilfe wäre ich dankbar.
Hier wird z.B.
eine Ikone automatisch in die Menüzeile per Code eingefügt und
beim schließen wieder gelöscht. Hier könnte der Code auch
abgespeichert werden, der dann „irgendwie mir anzeigt, …diese
Blatt ist geschützt… oder nicht“
für ideen und hilfe wäre ich dankbar.
Hi Kuechenjunge,
zeige mal den Code der das Symbol erstellt und löscht.
Gruß
Reinhard
anbei die drei Code. ich hoffe du kannst helfen
der Küchenjunge
Rem hier wird das Symbol geladen
Sub Auto_open()
ActiveWindow.WindowState = xlMaximized
Dim B As Object
With Toolbars(1)
.ToolbarButtons.Add Button:=211
With .ToolbarButtons(.ToolbarButtons.Count)
.OnAction = „speichern_und_zurueck“
.Name = „Speichern und zurueck“
End With
End With
End Sub
Rem hier wird ein makro zugewiesen
Sub speichern_und_zurueck()
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Rem hier wird das Symbol geloescht
Sub auto_close()
With Toolbars(1)
.ToolbarButtons(.ToolbarButtons.Count).Delete
End With
End Sub
Hi Kuechenjunge,
Rem hier wird ein makro zugewiesen
Sub speichern_und_zurueck()
ist nicht koorekt, das Makro zugewiesen wird hier:
.OnAction = „speichern_und_zurueck“
Aber der Code bringt mich nicht weiter. Ich habe da ein Add-In gebastelt:
http://www.badongo.com/file/11176017
benenne es nach dem Runterladen um in „Blattschutz.xla“ und binde es dann in Excel über den Add-In-Manager ein, ggfs. mittels Durchsuchen die xla-Datei suchen.
Dann wird bei jedem Blatt in einer Msgbox angezeigt welcher Blattschutz jeweils vorliegt.
Teste dies mit mehreren Dateien/Blättern. wenn es zufriedenstellend funktioniert kannst du ja in der Prozedur in der der Msgbox-Aufruf steht, diese rausnehmen und durch irgendwelche zellfärbungen ersetzen.
Gruß
Reinhard
Also der Code klappt, aber…nicht so wie ich es mir gewünscht hätte.
Kann man das nicht in die Menüleiste als Symbol einbauen, so wie meine Lachgesicht? So das ein roter für geschützt und ein grüner für frei?
gruss
küchenjunge
Hi Küchenjunge,
Also der Code klappt, aber…nicht so wie ich es mir gewünscht
hätte.
ich glaube leider du hast die Funktionsmacht dieses Codes gar nicht erkannt, so wie ich es früher auch nicht erkannte als ich noch in den Basics von Vba herumirrte 
Kann man das nicht in die Menüleiste als Symbol einbauen, so
wie meine Lachgesicht? So das ein roter für geschützt und ein
grüner für frei?
Ja, das geht schon, aber dafür mußte mir aber ein grünes und ein rotes Lachgesicht malen *gg*
Das ist jetzt absolut ernst gemeint,
Vba hat zwar 2000 eingebaute Bildchen, aber nur ein gelbes Lachgesicht dabei. Da ich keine Ahnung habe wie ich das rot oder grün kriege bleibt nur der andere Weg, gib mir zwei Bildchen und ich binde sie als Symbol ein.
Wahrscheinlich gibt es die auch schon irgendwo im Internet die zwei Bilder.
So ein jpg-Bild müßte ich schon schaffen als Symbol mitaufzunehmen.
Achja, hier ist eine neue, verbesserte Blattschutz.xla:
http://www.badongo.com/file/11182684
PS: Wenn du eine Hochladeadresse kennst wo man Dateien mal so hochladen kann und die ändern nicht den Datienamen, wäre mir das schon sehr recht.
Gruß
Reinhard
Also Reinhard,
der
Hallo Reinhard,
Ja, das geht schon, aber dafür mußte mir aber ein grünes und
ein rotes Lachgesicht malen *gg*
Das ist jetzt absolut ernst gemeint,
Vba hat zwar 2000 eingebaute Bildchen, aber nur ein gelbes
Lachgesicht dabei. Da ich keine Ahnung habe wie ich das rot
oder grün kriege bleibt nur der andere Weg, gib mir zwei
Bildchen und ich binde sie als Symbol ein.
das ist einfach und sehr schnell gemacht
zieh erst das gelbe Lachgesicht in die Symbolleiste, das Anpassen-Dialogfeld noch nicht schließen, erst mit rechts auf das gelbe Lachgesicht klicken und Schaltflächensymbol bearbeiten auswählen, den Rest siehste dann
GuK
Marion
Wahrscheinlich gibt es die auch schon irgendwo im Internet die
zwei Bilder.
So ein jpg-Bild müßte ich schon schaffen als Symbol
mitaufzunehmen.Achja, hier ist eine neue, verbesserte Blattschutz.xla:
http://www.badongo.com/file/11182684
PS: Wenn du eine Hochladeadresse kennst wo man Dateien mal so
hochladen kann und die ändern nicht den Datienamen, wäre mir
das schon sehr recht.Gruß
Reinhard