Office: Vor dem Schließen Blattschutz und speichern klappt nicht wie gewünscht

Hallo,

ich komme gerade nicht weiter und benötige bitte Eure Hilfe bei einem Makro.

Das Makro soll das Blatt mit einem Passwort schützen und danach speichern und schließen.

Soweit so gut, aber wie kann ich noch einbauen, dass "gesperrte Zellen nicht ausgewählt werden dürfen"

Bisher sieht das Makro so aus:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveSheet.Protect "passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save

End Sub

Habt ihr eine Idee?

:)

 

Hallo,
Code:

Gruß
Rudi

 

Hi

mal geraten

vor der Zeile mit dem Save noch ein

ActiveSheet.EnableSelection = xlUnlockedCells

 

Hallo Chris

Glaub ich nicht,glaub ich nicht !!! ;-))
gruss hary

 

Hallo Rudi, danke für die schnelle Antwort, aber irgendwie klappt es nicht.

Also nach dem erneuten öffnen wurde zwar gespeichert und auch der Blatt schutz ist drin, aber ich kann trotzdem gesperrte Zellen auswählen, warum?

Ich habe das Makro schon in "Diese Arbeitsmappe" und "Tabelle1" ausprobiert mit dem gleichen Ergebnis.

 

Hallo hary

naja, sagen wir es einmal so.....

statt geraten, hätte ich auch schreiben können "nicht getestet"
ausserdem war ich ohnehin zu langsam, zzzz..., Rudi war ja schneller.

 

Hallo
Stimmt, wird nicht mitgespeichert. Eine Loesungsmoeglichkeit.
Code:

gruss hary

 

Sorry für die späte Antwort!

Vielen Dank, es klappt nun wie gewünscht, danke hary!

 

Nach einer solchen Lösung suche ich auch, leider funktioniert das Makro bei mir nicht. Sobald ich nach dem Schließen eine gefüllte Zelle zu löschen versuche, erscheint der Laufzeitfehler 1004 von wegen "das eingegebene Kennwort ist ungültig ..." Ich habe aber gar nicht versucht, ein Kennwort einzugeben. Gehe ich auf "Debuggen" kann ich die Zelle löschen.
Kann mir ja jemand weiterhelfen?

Gruß
Susanne

 

Hallo Susanne,

Wie löschst du denn nach dem Schließen eine Zelle?