Office: Nicht gsperrte Zellen löschen

Ich möchte in einigen Tabellen meiner Arbeitsmappe beim Schließen der Mappe die Inalte der nicht gechützten Zellen zurücksetzen.
Folgendes Maxro löscht mir aber alle Zellen.

Private Sub Workbook_BeforeClose(cancel As Boolean)
With Sheets("Tabelle3")
.Unprotect "Kennwort"
.Cells.ClearContents
.Protect "Kennwort"
End With
ThisWorkbook.Save
End Sub

Wie kann ich nur die ungeschützten Zellen zurücksetzen und die Formeln usw beibehalten?

Danke im Voraus

 

Hallo

.Range("A1:A100").ClearContents

Gruß Hajo

 

Vielen Dank Hajo.
Klappt vorzüglich. Ein kleines Problem bleibt allerdings noch.
Unprotect gibt die Tabelle zwar frei, aber Protekt schützt sie mit der Standarteinstellung "geschützte und ungeschützte Zellen auswählen"
Kann man das irgendwie ändern so dass nur noch die ungeschützten Zellen anwählbar sind?
sonnst ergibt das nicht viel Sinn.
Code momentan:
Private Sub Workbook_BeforeClose(cancel As Boolean)
With Sheets("Einkauf")
.Unprotect "Kennwort"
.Range("A2:c18").ClearContents
.Protect "Kennwort"
End With
ThisWorkbook.Save
End Sub

Danke

 

Hallo Thorbn,

benutze den Makrorecorder.
ActiveSheet.EnableSelection = xlUnlockedCells

Gruß Hajo

 

Danke für den tip Hajo,
manchmal sieht man den Wald vor Bäumen nicht.
An die Möglichkeit habe ich überhaupt nicht gedacht.

So, nach fast 9 Stunden rumexperimentieren gebe ich auf.
Code

Private Sub CommandButton1_Click()
With Sheets("Einkauf")
.Unprotect
.Range("a2:c18").ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End With
ThisWorkbook.Save
Application.Quit
End Sub

löscht die gewünschten Zeilen, entriegelt das Arbeitsblatt und verriegelt es auch wieder, aber alle Zellen sind, trotz aktivem Blattschutz anwählbar und die Formeln können problemlos gelöscht werden, was eigentlich nicht sein sollte.
Ich weiß nicht mehr wo ich den Fehler noch suchen soll

 

Hallo Thorbin,

Du solltest allle Befehle beziehen auf das Tabellenblatt auf, das das ausgeführt werden soll.
Private Sub CommandButton1_Click()
With Sheets("Einkauf")
.Unprotect
.Range("a2:c18").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End With
ThisWorkbook.Save
Application.Quit
End Sub

Gruß Hajo

 

Hallo Hajo,
es ist zum Mäuse melken. Bis ' ThisWorkbook.Save' funktioniert alles einwandfrei. So bald ich aber 'Application.Quit' hinzu füge sind alle Zellen anwähl- und Löschbar.
Das gleiche Problem besteht übrigens auch wenn ich nur bis 'ThisWorkbook.Save' über Makro arbeite und die Tabelle manuell schließe. Auch dann sind nach dem öfnen die Felder wieder anwählbar.

Sorry, muss mich berichtigen.
Die Zellen sind zwar anwählbar aber geschützt. Beim Versuch in eine gesperrte Zelle zu schreiben kommt der Hinweiß.
Es währe aber schön wenn aich die Anwählbarkeit ausgeschlossen werden könnte.

 

Hallo,

kann es sein, dass Du am Anfang des Codemoduls die Compileranweisung 'Option Explicit' nicht verwendest?

Ich habe Excel2007. Für diese Version ist in der Hilfe der Hinweis enthalten, dass die XlEnableSelection-Enumeration erst seit dieser Version existiert. Du verwendest im Makro die Konstante 'xlUnlockedCells', um die Zellauswahl auf die ungesperrten Zellen einzuschränken. Da es diese Konstante in Deiner Excel-Version noch nicht gibt und Du ferner die Copileranweisung 'Option Explicit' nicht verwendest, erzeugt der Compiler automatisch eine Variable namens 'xlUnlockedCells' (ohne eine Fehlermeldung zu produzieren), weist dieser den Wert 0 (=Null) zu. Da aber der Wert 0 in diesem Zusammenhang das gleiche bedeutet wie 'xlNoRestrictions', können damit alle Zellen ausgewählt werden.

Um das Problem zu beseitigen, folgende 2 Zeilen ganz am Anfang des Moduls einfügen:
Option Explicit
Const xlUnlockedCells=1

Im Folgenden noch der Auszug aus der Excel2007-Hilfe zur XlEnableSelection-Enumeration :
Gibt an, was auf dem Blatt ausgewählt werden kann.
Versionsinformationen: Hinzugefügte Version: Excel 2007

Name Wert Beschreibung
xlNoRestrictions 0 Alles kann ausgewählt werden.
xlNoSelection -4142 Nichts kann ausgewählt werden.
xlUnlockedCells 1 Nur nicht gesperrte Zellen können ausgewählt werden.


EDIT:
Die Compileranweisung 'Option Explicit' sollte man stets (als 1. Zeile) in jedem Codemodul verwenden - sie ist ein simples Mittel, um heimtückische Deklarationsfehler ans Tageslicht zu bringen.
Wird sie als 1.Zeile in einem Modul eingesetzt, bewirkt sie Folgendes:
Trifft der Compiler auf eine Variable, die in keiner Deklaration enthalten ist, erzeugt er eine entsprechende Fehlermeldung und hält die Compilierung an.
Wird diese Compileranweisung nicht verwendet, passiert Folgendes:
Trifft der Compiler auf eine Variable, die in keiner Deklaration enthalten ist, erzeugt er für sie dennoch eine Speicherbelegung (der Typ richtet sich dann entweder nach dem 1. oder letzten Zeichen der Variablen) und weist ihr einen Standardwert zu (je nach Variablenyp).

 

Danke für den Tip
Ich arbeite mit Exel 2002. Auch mit den Zeilen bekomme ich keine Fehlermeldung aber die Zellen bleiben anwählbar.