Alle Formeln eines Tabellenblattes schützen und ausblenden (VBA)


Alle Formeln eines Tabellenblattes schützen und ausblenden (VBA)

Alle Formeln eines Tabellenblattes schützen und ausblenden (VBA)

Das folgende Makro schützt und blendet automatisch alle Formeln des aktiven Tabellenblattes aus:

Sub Alle_Formeln_schuetzen_ausblenden()

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

    ActiveSheet.Unprotect

    Selection.SpecialCells(xlCellTypeFormulas, 23).Select

    Selection.Locked = True

    Selection.FormulaHidden = True

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

End Sub

 

Hinweis:

Das Makro vergibt beim Aktivieren des Blattschutzes kein Passwort.