Zellen mit Formeln schützen (mit Makro)
05.08.2004 16:00:30
newbie
ich habe ein kleines problem:
ich habe mir ein kleines makro "zusammenkopiert" (nicht selber geschrieben, aber ein kleines bißschen verändert) und es funktioniert zum teil auch. mit diesem makro sollen alle zellen, in denen sich formeln befinden geschützt werden und bei bedarf soll das auch wieder rückgängig gemacht werden. das ganze funktionert aber nur im 1. tabellenblatt. was ist, wenn ich mehrere tabellenblätter habe? wie bekomme ich das hin, das makro nur in dem tabellenblatt in dem ich mich befinde gestartet wird? vielleicht kann mir auch noch jemand das ding so umbauen, dass das kleine fensterchen geöffnet wir und man auch noch ein passwort eingeben kann? wäre super!!!!
hier mein code:
---------------------------------------------------------
Sub FormelnSchützen()
Dim Bereich As Range
Cells.Locked = True
For Each Bereich In ActiveSheet.UsedRange.Cells
If Not Bereich.HasFormula Then
Bereich.Locked = False
Else
Bereich.Font.ColorIndex = 3
End If
Next Bereich
ActiveSheet.Protect
End Sub
Sub BlattschutzAufheben()
Dim Mappe As Workbook
Dim Blatt As Worksheet
For Each Mappe In Workbooks
For Each Blatt In Mappe.Worksheets
Blatt.Unprotect
Blatt.Cells.Font.ColorIndex = 0
Next Blatt
Next Mappe
End Sub