Herbers Excel-Forum - das Archiv

Datei mit Savecopy as Schreibgeschützt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Datei mit Savecopy as Schreibgeschützt
von: egonkernien

Geschrieben am: 16.12.2006 14:00:48
Hallo!
Wer kann helfen
Mit diesem Code entferne ich Userformen Buttons usw. dann speichere ich eine Kopie in einen Ordner:
Problem: wie kann ich die Datei (Kopie) mit Schreib oder Blattschutz abspeichern?
Oder andere Lösung?
Worksheets("K5610").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveCopyAs "X:\GRP_D310\Pinwand\IP21\Laeuft\" & Format _(Now, "dd.mm.yy hh") & ".xls"
Schönen Samstag
Egon
Bild

Betrifft: AW: Datei mit Savecopy as Schreibgeschützt
von: Matthias G
Geschrieben am: 16.12.2006 14:03:43
Hallo Egon,
vor dem SaveCopyAs-Befehl das Blatt schützen:
With ActiveSheet
.Cells.Locked = True 'evtl. nicht nötig
.Protect Password:="123"
End With

Gruß Matthias
Bild

Betrifft: AW: Datei mit Savecopy as Schreibgeschützt
von: egonkernien
Geschrieben am: 16.12.2006 15:13:27
Hallo!
Danke, prima funzt.
Schönen Gruß
Egon
 Bild