Office: (Office 2013) Zelle sperren nach speichern/Schließen

Hallo *Smilie

Ich habe eine Tabelle (Nachweis) wo ich bestimmte Zellen sperren möchte nachdem man gespeichert oder diese geschlossen hat. So das beim erneuten öffnen diese Zellen nicht mehr geändert werden können.

Hab es zwar versucht aber es passiert gar nichts *boah
Keiner Fehler, Hinweis, Änderung...gar nichts ^^''

Den Code habe ich in "DieseArbeitsmappe" eingefügt:

Code:

"BeforeSave" gibt ja an das es vor dem Speichern ausgelöst wird.
Mit "Workbook.Worksheets" geb ich ja die Tabelle und die Zellen an...
un "If.Value = "" " sollte doch die überprüfung sein ob die Zelle leer ist und wenn diese leer ist soll nichts geschehen und wenn etwas drin ist soll sie gesperrt werden *redface.gif*

Wo liegt denn da jetzt der Fehler? :x

Danke euch ^_^

MfG Lexx

:)

 

Du musst auch die Tabelle sperren.

 

Hallo Lexx,
...Hajo meint damit, eine "einzelne Zelle" zu schützen, geht nicht...Du kannst immer nur das ganze Tabellenblatt schützen...
Du kannst aber einen "dauerhaften Zellschutz" (also nicht erst beim speichern...) als Ereignis auslösen (...trotzdem wird dadurch immer die ganze Tabelle geschützt) ...z.B. so...Eintrag in "DieseArbeitsmappe":
Code:

...dies gilt allerdings für "alle" Tabellenblätter und für "alle" beschriebenen Zellen...andernfalls anpassen und/oder den Code nich in "DieseArbeitsmappe" eintragen sondern in das Codefenster des jeweiligen Tabellenblattes eintragen...

Gruß
Thomas

 

\@ Thomas

Nein, das meint Hajo bestimmt nicht, denn dein Code ist nicht das, was der TE erreichen möchte. Der Erste Code des TE war schon OK, es fehlte nur zum Schluss (vor dem End Sub noch die Anweisung, das Blatt zu sperren: Code:

 

Hallo an alle *Smilie

Danke für eure Antworten *Smilie

Hab nun das Blatt schützen lassen bzw. auch den Schutz vorher entfernen lassen bevor der Code ausgeführt wird.

Code:

Nun bringt er aber auf einmal den Laufzeitfehler 450 "Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft".
Gelb wird dies angezeigt:

With ThisWorkbook.Worksheets("Nachweis").Range("B6:B36", "D6*biggrin.gif*36", "E6:E36", "G6:G36")

Ist die Aufzählung nicht richtig? :x

MfG Lexx

 

Hallo GMG-CC,
...ok, das ist wohl so richtig...*wink.gif*

...komischerweise erhalte ich hier einen "Syntaxfehler..."
Code:

...müsste das nicht so heissen??...:
Code:

Gruß
Thomas

 

Hallo Lexx,
mmmhhh...das stimmt, zeigt er bei meinem "schnellgeschossenen" Code auch an...

Gruß
Thomas

 

Moin,

stimmt, hätte ich auch sehen sollen ... Sorry.

 

Hallo GMG-CC,
wie ist denn nun der richtige Syntax???

...ist nämlich auch falsch...*eek.gif*

Gruß
Thomas

PS: "D6 : D36" ist nur so geschrieben, da sonst ein "big green"-Smilie erscheint...