ist es möglich einzelne Zellen einer Arbeitsmappe zu schützen, damit andere Benutzer der Datei die Formeln nicht löschen können?
Wäre echt nett wenn mir jemand helfen könnte!
MfG
Alex
Sub Formelschutz()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Call ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Formel_Schutz()
Dim sc As Range
ActiveSheet.Unprotect
Cells.Locked = False
Cells.FormulaHidden = False
On Error GoTo SCHLUSS
Set sc = ActiveSheet.Cells.SpecialCells(-4123)
sc.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
SCHLUSS:
MsgBox "Keine Formeln gefunden!"
End Sub