Alle Formeln eines Tabellenblattes schützen (VBA)


Alle Formeln eines Tabellenblattes schützen (VBA)

Alle Formeln eines Tabellenblattes schützen (VBA)

Das folgende Makro schützt alle Formeln des aktiven Tabellenblattes aus. Die Formeln werden mit diesem Makro nicht ausgeblendet und sind in der Bearbeitungsleiste weiter sichtbar.

 

Sub Alle_Formeln_schuetzen()

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveSheet.Unprotect

    Selection.SpecialCells(xlCellTypeFormulas, 23).Select

    Selection.Locked = True

    Selection.FormulaHidden = False

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

 

Hinweis:

Das Makro vergibt beim Aktivieren des Blattschutzes kein Passwort.