Forums Neueste Beiträge
 

Zellschutz

02/11/2009 - 09:27 von Charly Pruemm | Report spam
Hallo,

wie kann ich per Makro alle Zellen in der gesamten Arbeitsmappe die eine
Formel enthalten schützen und alle anderen Zellen freischalten?

Gruss
Charly Prümm
 

Lesen sie die antworten

#1 michlchen
02/11/2009 - 11:42 | Warnen spam
servus.

hier mal n beispielcode. alle anderen zellen werden freigegeben und
nur die mit formel (kennzeichen "=") werden gesperrt und die formeln
ausgeblendet. danach wird das ganze blatt mit "abc" gesperrt.

Sub formeln_sperren()
ActiveSheet.UsedRange.Select
selection.Locked = False
' Befehl für Formel anzeigen ist FormulaHidden
selection.FormulaHidden = False
For Each Zelle In Selection
If InStr(1, CStr(Zelle.Formula), "=") <> 0 Then
Zelle.Locked = True
Zelle.FormulaHidden = True
End If
Next Zelle
ActiveSheet.Protect ("abc")
End Sub

Ähnliche fragen