Tipps & Tricks
12.10.2012, 06:06 Uhr
Excel-Makro: Formeln verstecken und Arbeitsmappe schützen
Problem: Ich muss ca. 150 Arbeitsmappen mit je 30 Blättern schützen. Die Zellen sind schon geschützt, ich muss nur die Blätter (besser gesagt die ganze Arbeitsmappe) schützen. Ich möchte nicht bei jeder Mappe von Blatt zu Blatt springen. Ein Passwort brauche ich hierfür nicht; es geht nur um unbeabsichtigte Änderungen. Wie bringe ich das hin?
Lösung: Das geht mit einem Makro, das erstens die Formeln ausblendet und zweitens die Blätter schützt.
Verwenden Sie diesen Makrocode:
Sub Protect_all_Sheets()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.UsedRange.Cells.FormulaHidden = True
wks.Protect
Next wks
End Sub
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.UsedRange.Cells.FormulaHidden = True
wks.Protect
Next wks
End Sub
So brauchen Sie nicht jedes Blatt einzeln zu bearbeiten. Legen Sie einfach das Makro in eine neue Datei, die Sie als *.xlsm abspeichern, öffnen Sie nebenher die betroffenen Dateien und führen Sie in jeder einmal das Makro aus. Das kann auch direkt über die grüne Play-Taste im Visual-Basic-Editor erfolgen. (PCtipp-Forum)
Kommentare
Es sind keine Kommentare vorhanden.
