PDA

Vollständige Version anzeigen : Zellenschutz


Kalinke
16.09.2011, 11:40
Hallo,

ich habe eine Frage:

Ich möchte in Excel div. Zellen schützen, in Abhängigkeit ob sie leer sind oder nicht.

Wie kann ich das mit Excel VBA 2003 realisieren ?

Vielen Dank schonmal !!

Kalinke
16.09.2011, 11:41
kkkkoihoih
oihghoihoi

IngGi
16.09.2011, 11:51
Hallo Kalinke,


Alle Zellen markieren
Bearbeiten | GeheZu | Inhalte... | Leerzellen | OK
Format | Zellen | Reiter Schutz Häkchen bei Gesperrt rausnehmen. | OK
Extras | Schutz | Blatt schützen | OK


Nun sind alle nicht leeren Zellen geschützt.

Gruß Ingolf

Kalinke
16.09.2011, 16:06
Hallo Ingolf,

erstmal vielen vielen Dank !!!

Das eigentliche Problem aber ist, dass erst nach einer Eingabe in eine Zelle die Zelle geschützt sein soll.
Das stelle ich mir ziemlich schwierig vor.

Weißt Du da Irgenwas ?

EarlFred
16.09.2011, 16:18
Hallo Name?,

Das stelle ich mir ziemlich schwierig vor.
Nö.

(1) Alle Zellen auf dem Blatt freigeben (Haken bei Eigenschaft "gesperrt" löschen).
(2) Blatt schützen, Passwort nach Belieben festlegen
(3) Code hinter das Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Parent.Protect Password:="MeingeheimesPasswort", UserInterfaceOnly:=True
Target.Locked = True
End Sub

Die Sicherheit zum Knacken dieses "Schutzes" liegt auf einer Skala von 1 bis 100 bei etwa 1,35, da das Passwort im Klartext im Code hinterlegt ist.

kkkkoihoih
oihghoihoi
Oder, um es mit Deinen Worten zu sagen: "Oink Oink!"

Mahlzeit
EarlFred

Kalinke
17.09.2011, 11:19
Vielen vielen Dank für Eure Hilfe !!!

:) :)