Makro mit Blattschutz
05.06.2007 12:31:59
wolf
Mein Problem: habe ein file erstellt mit einigen Makros die den Blattschutz zu Beginn aufheben und dann wieder aktiviert - jedoch ohne Passwortvergabe. Einige sind jetzt aber doch so "schlau" und öffnen den Blattschutz und den Rest könnt ihr euch denken !
Meine Bitte: könnte mir jemand helfen in meine bestehenden Makros die richtige Codezeile einzufügen, damit der Blattschutz mit einem Passwort aktiviert wird. Ich hoffe das ist überhaupt nachträglich möglich!
Hier eines der Makros die ich mit dem Recorder erstellt habe:
Sub formatieren_kommentare()
ActiveSheet.Unprotect
Columns("D:D").Select
With Selection
.HorizontalAlignment = xlGeneral
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("D12").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Gruss
Wolf