dieses Makro habe ich geschrieben, um zellgeschützte Inhalte farbig (grün) zu ändern.
funktioniert über eine Schaltfläche sehr gut.
Das Problem:, dieses Makro ist bestimmt für eine ganze Reihe von Exceldateien. Aber beiversehentlicher Anwendung dieses Tools in nicht "vorgesehenen Listen" wird ja auch der Blattschutz aktiviert, was im allgemeinen dann zu Problemen führt.
Ich möchte dies ausschließen, in dem im Makro der Dateiname der aktiven Datei überprüft wird _ und dann gegebenen Falls das Makro mit End
Sub beendet wird. Das könnte dann so aussehen:
wenn aktive Datei Name = "2000*" ist, dann End Sub
.
Kann mir das einer in VBA übersetzen?
Danke Marco
Sub grün()
ActiveSheet.Unprotect Password:="xxxxxxx"
ActiveCell.Font.ColorIndex = 10
ActiveCell.Font.Bold = True
ActiveSheet.Protect Password:="xxxxxxx", DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub