Zellenschutz automatisieren

• Zellenschutz automatisieren von Wolfgang vom 28.10.2003 15:58:01
  • AW: Zellenschutz automatisieren - von Uli am 28.10.2003 16:09:30
  • AW: geht aber aufwendig - von Wolfgang am 28.10.2003 21:08:18
  • AW: Zellenschutz automatisieren - von Wolfgang am 29.10.2003 13:23:13

Betrifft: Zellenschutz automatisieren
von: Wolfgang
Geschrieben am: 28.10.2003 15:58:01
Hallo zusammen,

besteht über VBA die Möglichkeit, den Zellenschutz zu automatisieren ?
Unter bestimmten Optionen,soll eine Zelle geschützt bleiben und nur unter bestimmten Kriterien ( z.B. Zelle A1=1)beschreibbar sein.

Betrifft: AW: Zellenschutz automatisieren
von: Uli
Geschrieben am: 28.10.2003 16:09:30
'Im VB Bereich des Arbeitsblattes musst Du hinterlegen:

Private Sub Worksheet_Change(ByVal Target As Range)
'Zelle A1 wurde geändert
If Target.Column = 1 And Target.Row = 1 Then
Zelle_entsperren
End If
End Sub

'Dann in einem normalen Modul hinterlegen:
sub Zelle_ensperren
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
End If
Range("a2").Select 'Zelle, die verändert werden soll entsperren
Selection.Locked = False
ActiveSheet.Protect 'Blattschutz wieder aktivieren
End Sub


Betrifft: AW: geht aber aufwendig
von: Wolfgang
Geschrieben am: 28.10.2003 21:08:18
Hallo auch Wolfgang

habe leider keine Möglichkeit ( Datei ist im Geschäft )
dir gleich zu helfen.

aus dem Gedächtnis:

in das worksheet:
worksheet.selection.change

if activesheet.Range("a1") = 1 then
if not intersect.range("die zu schützende zelle") is nothing then
( ist glaub ich falsch )
active.worksheet.protect
end if
end if

funzt so

wenn in die Zelle selectiert wird schützt sich das komplette Blatt.

mail mir mal

mfG
Wolfgang

Betrifft: AW: Zellenschutz automatisieren
von: Wolfgang
Geschrieben am: 29.10.2003 13:23:13
Danke für eure Tipps,

komme damit aber nicht so einfach klar-sorry.

Kann mir evtl. mal einer eine Übungsdatei erstellen?

Grüße

Wolfgang

Excel-Beispiele zum Thema " Zellenschutz automatisieren"
Wassergeldabrechnung automatisieren