Clever-Excel-Forum

Hallo,

ich habe eine Datei, in der ich folgende codes für den Schreibschutz hinzugefügt habe:


Wird beim öffnen der Datei nach 5 Sekunden automatisch ausgeführt
Sub protect()
Worksheets("Replenishment neu").protect
Worksheets("Alle Papiere").protect
Worksheets("Deliveries").protect
Worksheets("Import").protect
Worksheets("Entwicklung Lagerbestand").protect
Worksheets("Verbräuche week").protect
End Sub



Wir beim schließen der Datei automatisch ausgeführt!
Sub unprotect()
Worksheets("Replenishment neu").unprotect
Worksheets("Alle Papiere").unprotect
Worksheets("Deliveries").unprotect
Worksheets("Import").unprotect
Worksheets("Entwicklung Lagerbestand").unprotect
Worksheets("Verbräuche week").unprotect
End Sub

Leider habe ich noch keine Möglichkeit gefunden, dass ich die Zellen so über den Schreibschutz definiere, so dass ich den Zellen individuell andere Hintergrundfarben
geben kann. Habt Ihr vielleicht einen Tipp oder eine Lösung für mich?

Vielen Dank Euch allen schon einmal im Voraus.

Viele Grüße
Mirko

Mal so eine grundsätzliche Frage: Was genau ist der Sinn, den Blattschutz vor dem Schließen aufzuheben, wenn er doch sowieso bei jedem Öffnen automatisch wieder gesetzt wird?
Davon abgesehen, ist das ja wirkungslos, wenn der Anwender Makros nicht akzeptiert.

Und wozu eigentlich 5 Sekunden warten?

ich habe sonst immer Probleme mit den Pivot Tabellen und auch den Diagrammen bekommen. Das war leider die einzige Möglichkeit für mich die Datei so hin zu bekommen wie ich es mir vorgestellt hatte - bis auf die Zellenformatierung

Also im Grunde suche ich eine Möglichkeit dieses im Vorfeld einzustellen - wenn ich den Balttschutz manuell setzte, kann ich dies ja auch auswählen...

Deine eigentliche Frage verstehe ich aber auch nicht. Was meinst du mit

Zitat:dass ich die Zellen so über den Schreibschutz definiere, so dass ich den Zellen individuell andere Hintergrundfarben geben kann.

?

Hi Berni,

ich habe es jetzt doch hinbekommen - trotzdem Danke!

Viele Grüße
Mirko