Hallo Zusammen,
habe eine Speicherroutine in der ich ein Abschnitt einer Mappe als JPG abspeichere.
Damit in dem Blatt nach dem Schutz noch die Schrift und Farbe der Schrift geändert werden können habe ic h dies dortr eingefügt :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Ich setze zum schutz ein Passwort,doch nach dem Speichern ist der Schutrz noch da aber das Passwort nicht mehr . Ich kann also den Schutz ohne Passwort entfernen.
Wo liegt der Fehler ?
Danke Uli
'ArbeitsmappeSpeichern()
ActiveSheet.Unprotect Password:="1234"
Application.ScreenUpdating = False
ActiveSheet.Range("A1:H49").CopyPicture Appearance:=xlScreen, Format:=xlPicture
With ActiveSheet.ChartObjects.Add(0, 0, Range("A1:H49").Width, Range("A1:H49").Height).Chart
.ChartArea.Select
.Paste
.Export "C:\Users\ElCapitan\Desktop\Schichtübergabe\Archiv\Frühschicht\" & Format(Now, "DD_MM_YYYY") & ActiveSheet.Name & ".jpg"
.Parent.Delete
End With
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Call Kill(PathName:=strFilePath)
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True