Blatt kopieren mit AllowFormatting Cells
28.12.2022 13:42:20
Lennard
ich bin auf ein kleines Problem in unserer Firmenmaske gestoßen und bin für eure Hilfe dankbar.
Beim Öffnen der Datei werden dem Benutzer einige Rechte überlassen - trotz Blattschutz.
Private Sub Workbook_Open()
Dim objWorksheet As Worksheet
For Each objWorksheet In Worksheets
With objWorksheet
Call .Protect(Password:="1234", Userinterfaceonly:=True, AllowFormattingRows:=True, AllowFormattingCells:=True)
.EnableOutlining = True
End With
Next
End Sub
Private Sub CommandButton1_Click()
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Protect ("1234")
End Sub
Wie kann ich den Befehl "ActiveSheet.Copy" um die Formatierungsrechte "AllowFormattingRows & AllowFormattingCells" für das kopierte Blatt erweitern?
Vielen Dank vorab!
Grüße