Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

copy Blattschutz

copy Blattschutz
14.04.2016 13:49:22
snewi133
Hallo,
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ß

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: copy Blattschutz
14.04.2016 14:25:23
Rudi
Hallo,

.Range("C3").Select
.Protect
Gruß
Rudi

AW: copy Blattschutz
14.04.2016 14:30:24
snewi133
Danke klappt!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige