Ich habe ein Tabellenblatt wo eigentlich die ganze zeit Geschützt sein sollte. Aber es kommt manchmal vor das der Schutz geöffnet wird um am Zellenformat was zu ändern und es wird vergessen es wieder zu schließen.
Mein Problem: Wenn der Schutz nicht Aktiviert ist bekomme ich einen Laufzeitfehler 1004
„ Die Locked-Eigentschaft des Range Objekts kann nicht festgelegt werden“. Dann kann mein makro nicht mehr weiterarbeiten
Ich habe es versucht mit „ If ActiveSheet.Protect = False Then und .....=true then um den User aufzufordern es zu Schützen aber ich komme damit nicht weiter.
Hier mein Code vielleicht kann mir jemand weiterhelfen in der Recherche habe ich nichts mehr gefunden Vielen dank im vorraus!!!!!!!!
Mfg
Martin
Sub schuzt()
If ActiveSheet.Protect = False Then
MsgBox "Kein Blattschutz"
Else
Call Makro6
End If
Sub Makro6()
ActiveSheet.Range("A1:J39").Select
Range("G36").Activate
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="Haube", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub