export aus geschützter datei in neue datei
04.02.2008 20:48:00
Roland
bin relativ neu und unerfahren mit dem Umgang mit "vba".
Das Meiste mache ich noch mit dem Recorder oder ich baue mir bestehende Quelltexte um.
Nun zu meienr Frage:
Im nachfolgenden Quelltext kopiere ich aus einer geschützten Mappe einen bestimmten Zelbereich, öffne dann eine neues Excelsheet, füge die Daten ein und kehre dann wieder zurück zum Ausgangsmappe und schütze dann wieder die Mappe per Passwort.
Dies funktioniert auch so weit. Aber wenn ich natürlich die Datei kopiere oder unter einem anderen Namen speichere, kommt natürlich ein Runtime Error, da im Quelltext natürlich explizit der Dateinamen angegeben ist.
Die Schwieigkeit ist, dass wenn ich die Datei vor dem "Paste" schütze, der Inhalt im Zwischenspeicher verloren geht. Denke eine Alternative wäre es, wenn man statt des Dateinamens eine Variable einfügen könnte.
Oder wie kann man Excel beibringen, dass es nach der Pasteaktion wieder zur ursprünglichen Datei zurückkehrt.
womöglich gibt es aber auch eine noch eine einfachere Methode, von der ich noch nichts weiß.
Bin über alle Lösungsmöglichkeiten dankbar!
Roland
Sub export_datei_erg()
ActiveSheet.Unprotect Password:="XXX"
Range("A1:AE27").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1:AE27").Select
Selection.Font.ColorIndex = 0
Selection.Interior.ColorIndex = xlNone
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 80
Range("A1").Select
Windows("pl_ver_5-3_12er.xls").Activate
Range("A1").Select
ActiveSheet.Protect Password:="XXX"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Anzeige