ich habe filgende Code um in VBA eine Kopie von einem Excel Sheet zu machen!
Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("C3").Select
Application.CutCopyMode = False
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Pfad = Ordner_vorhanden_Jahr(Verzeichnis, Sheets("Bericht").Range("J2"))
.SaveAs Filename:=Pfad & SpeicherName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End With
Ich möchte nun die Kopie direkt mit einem Blattschutz versehen! Was oder wie mache ich das?Gruß