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
Funktioniert auch. Das Makro hat nur einen Schönheitsfehler:
Excel gibt eine Fehlermeldung aus die besagt, dass diese Zelle geschützt ist, und wie man verfahren soll um den Schutz aufheben etc. etc. Ich möchte nun eine Passwortabfrage in besagtes Makro einbauen so dass der Blattschutz nicht ohne weiteres aufgehoben werden kann, weiss nur nicht wie.
Vielen Dank für eine Lösung
Hansueli