Schreibschutz aufheben über Makro
27.01.2014 12:31:11
Werner
mit folgendem Code speichere ich eine Excel-Datei zwischen und lege dazu gleichzeitig noch eine Sicherungskopie in einem Verzeichnis an:
Public Sub Zwischenspeichern()
Dim Altname As String, Neuname As String, Pfad As String
Pfad = "C:\Users\Werner\Desktop\Werner\Excel"
ThisWorkbook.Save
Altname = ThisWorkbook.FullName
If Right$(Pfad, 1) "\" Then Pfad = Pfad + "\"
Neuname = Pfad & "DatenBahnhof" & Worksheets("Dateneingabe").Range("J9").Value
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Neuname
Workbooks.Open (Altname)
Application.DisplayAlerts = True
ThisWorkbook.Close
End Sub
Was hier abläuft ist mir klar, er speichert zunächst die Sicherungskopie, öffnet anschließend die Originaldatei, da Excel ja nach dem Speichern die Sicherungskopie offen lässt. So weit so gut.Da die Originaldatei mit einem Kennwort schreibgeschützt ist blendet er jetzt die Eingabebox zum Eingeben des Kennwortes ein, was ja auch logisch ist. Gleichzeitig ist es aber auch lästig.
Lässt sich der Code dahingehend ändern, dass das Kennwort beim Öffnen der Originaldatei gleich über das Makro mit übergeben wird, so dass eine händische Eingabe nicht notwendig ist?
Danke für die Hilfe
Werner