Weiterer Zellschutz
11.03.2013 20:35:14
Golem
mit folgendem Code werden in einer Arbeitsmappe die Zellen der Tabellenblätter vor Zugriff geschützt,
in denen Formeln vorhanden sind ( hinterlegt in "Diese Arbeitsmappe" ):
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Variable deklarieren
Dim Zelle As Range
If Zelleschutz_aus = 1 Then Exit Sub
' For/Each-Schleife zum Abfragen der Zellen
For Each Zelle In Target.Cells
' Wenn die durch die Schleife angesprochenen Zelle
' eine Formel enthält und die Variable "Zelleschutz_aus"
' gleich dem Wert 0, dann...
If Zelle.HasFormula Then
'...Blattschutz aktivieren und...
ActiveSheet.Protect "Wohngeldzahlungen" _
'...Prozedur beenden,...
Exit Sub
'...ansonsten...
Else
' Blattschutz aufheben
ActiveSheet.Unprotect "Wohngeldzahlungen"
' Abfrage Ende
End If
' Nächsten Schleifendurchlauf starten
Next Zelle
' Variable "Zelleschutz_aus" auf den Wert 0 setzen
Zelleschutz_aus = 0
End Sub
Dieser Zellschutz kann ein- bzw. ausgeschaltet werden.
Zusätzlich möchte ich die Zelle U22 und U35 auch mit einen Zellschutz versehen,
um deren Inhalt vor Veränderung zu schützen.
Ich habe versucht mit:
If Target.Address = "$U$22" > 0 Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
aber alle Versuche sind fehlgeschlagen.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem