Zellenschutz automatisieren

Bild

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.

Bild


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



Bild


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


Bild


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


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellenschutz automatisieren"