Datei mit Savecopy as Schreibgeschützt
16.12.2006 14:00:48
egonkernien
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