ich möchte per makro den blattschutz auf alle blätter der arbeitsmappe anwenden.
habe auch bereits ein "fast" passenden script gefunden. leider fehlt mir dabei der passwortschutz und die option zum anklicken eines fledes darf nicht vorhanden sein. leider mache ich beim einfügen dieser optionen einen fehler...
Sub AlleBlaetterSchuetzen()
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next
End Sub
hier fehlt noch die option: ActiveSheet.EnableSelection = xlNoSelection
und der passwortschutz
wie füge ich dies in obiges script ein?
im voraus besten dank!!!