Blattschutz verändert sich beim Speichern

Hallo Claus

das mit dem Einfügen im Makro hat geklappt.

Echt super.

Mein Problem was jetzt noch besteht ist, das nicht mehr benötigte Zeile wieder gelöscht werden müssen.

Beim anlegen des "Blattschutzes" habe ich die Option angeklickt das Zeilen auch wieder gelöscht werden können.

Das klappt aber nicht oder muss auch hier im Makro etwas verändert werden ?

Danke

BG

Hallo Excelhorror,

man richtet einen Blattschutz ein, damit Veränderungen am Blatt verhindert werden. Wenn der Blattschutz alle Veränderungen erlauben würde, würdest du meckern, dass der Schutz nichts taugt.

Du kannst beim Einrichten des Blattschutzes schon einige Vorgänge trotz Schutz erlauben. Für weitere Vorgänge musst du halt dem Workaround Blattschutz entfernen => Vorgang ausführen => Blattschutz wieder einrichten in Kauf nehmen. Das ist halt Sinn und Zweck
eines Schutzes.

Mit freundlichen Grüßen

Hallo Markus,

vieleicht hilft dir folgendes weiter:

• Setze bei den Eigenschaften der Shapes "Objekt gesperrt"
• Markiere mit Strg+A+A das ganze Tabellenblatt und formatiere alle Zellen als nicht geperrt
• Beim Einschalten des Blattschutzes aktiviertst du alle Kontrollkästchen bis auf "Objekte bearbeiten"

Dadurch sind alle Zellen zugängig und weitestgehenst bearbeitbar, nur die eingefügten Formen können nicht markiert oder verändert werden.

Mit freundlcihem Gruß aus der Rattenfängerstadt Hameln



(at-exceltraining.de)

Hallo Claus,

habe die Option Autofilter verwenden beim Blattschutz aktiviert und Blattschutz gesetzt / Arbeitsmappe freigegeben.

Leider bekommen ich beim Filtern per Makro die Aufforderung, den Blattschutz zu entfernen, was bei freigegebener Arbeitsmappe jedoch nicht so einfach möglich ist, ich nicht weiß wie ich das machen soll.

Laufzeitfehler 1004.

Makroablauf bleibt in dieser Zeile stehen noch bevor der Autofilter in der darauffolgenden Zeile gesetzt wird:

...

.Range("$A$10:$BH$2000").Autofilter

...

Wenn generell der Blattschutz gesetzt sein sollte muss ja nicht abgefragt werden ob selbiger aktiv ist, es würde reichen den Blattschutz einfach zu setzen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets

  wks.Protect Password:="Dein_PW"

 Next wks

End Sub

Dieser Code liegt dann in "DieseArbeitsmappe" und wird ausgeführt wenn die Mappe geschlossen wird. "Dein_PW" natürlich anpassen!

Nein, Nein, und Nein, so nicht.

Also ich bin eine berechtige Person, öffne die Datei, entferne den Blattschutz, dann speichere ich die Datei und mache sie einfach zu... und was nutzt nun Dein Code? Nix, der nächste User hat keinen Blattschutz gesetzt.

Du fragst den Blattschutz in Workbook_BeforeSave ab und dann entweder

a) gibst Du eine Meldung aus und setzt Cancel auf True, dann kann der User das selber machen oder

b) Du setzt den Blattschutz bei den entsprechenden Blättern (ggf. nicht allen) und lässt Excel speichern.

Und wenn man Cancel innerhalb einer Ereignisroutine auf True setzt, dann wird der weitere Code (in Excel) nach dem Verlassen selbiger nicht weiter ausgeführt. Das gilt für alle Ereignisroutinen die dieses Argument haben.

Nochmal bitte. ;-)

Andreas.