Excel 2016 versucht selbständig Datei zu laden

Excel-Version ist 2016!
Hallo liebe Excel-Spezialisten,
ich habe ein längeres Makro erstellt, in welchem eine normal geladene Datei mit Inhalten versehen wird (Kopie aus anderer Datei) und dann mit Passworten auf einem anderen Laufwerk mit demselben Namen gespeichert wird. Anschließend schließe ich die gespeicherte Datei mit "Close". Nun will Excel die gerade gespeicherte Datei öffnen und bittet um die Eingabe der Passworte. Dies geschieht erst mit der Ausführung von "Close", vorher läuft alles normal ab. Ich muss noch hinzufügen, dass das Makro nicht von der Datei, die geschlossen wird, sondern von einer anderen Datei ausgeführt wird. Ich habe auch ein Modell konstruiert, welches die gleichen Anweisungs-Abfolgen enthält, also eine Steuerungsdatei, eine Datei die normal geladen wird und die anschließend mit Passwörtern gespeichert und geschlossen wird. Ich dachte, der genannte Fehler würde dann auch hier auftreten, aber leider nicht, alles lief ordnungsgemäß durch. Hat jemand eine Erklärung für dieses Verhalten von Excel 2016? Mit Sendkeys und "{enter}" kann ich zwar die Aufforderung zum Öffnen abwürgen, doch das ist ja keine "saubere" Lösung.
Mit freundlichem Gruß
Peter Kloßek

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

@Nepumuk
Hallo Nepumuk,
der Fehler taucht nur bei einer Steuerungsdatei auf. Mit anderen Steuerungsdateien wird die fragliche Datei mit demselben auto-open-Makro aufgerufen, aber mit "ActiveWorkbook.Save" und "Close" geschlossen. Dabei taucht der Fehler nicht auf. Ich habe jetzt auch in meinen Test-Dateien einen auto-Makro mit einer Verzögerung und einem weiterführenden Call eingebaut. Bei einem nochmaligen Test taucht der Fehler nicht auf.
Hier mein Makro. Der Fehler kommt nach der Anweisung "Close".

If Range("Tabelle1!h9") > 0 Then
MsgBox "Es sind nicht alle erforderlichen Felder ausgefüllt. Bitte fehlende Eintragungen ergänzen."
Exit Sub
End If
ActiveWorkbook.Unprotect Password:="Admin_011"
Sheets("Tab252").Visible = True
Sheets("Tab252").Unprotect Password:="Admin_020"
Laufw1 = Range("Tabelle1!h12")
Pfad1 = Range("Tabelle1!g12")
Sheets("Tabelle1").Unprotect Password:="Admin_010"
Kennwort1 = Range("Tab252!b12")
Kennwort2 = Range("Tab252!b13")
Datname4 = Range("Tabelle1!d15")
Datname5 = Range("Tab252!h7")
Datname10 = Range("Tabelle1!g13")
Workbooks.Open (Datname10)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 15
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
ActiveSheet.Unprotect Password:="Admin101"
Windows("LogIn_Patient.xlsm").Activate
Range("Tabelle1!g5:g6").Copy
Windows("Meine Datei.xlsm").Activate
Range("Tab536!i9").PasteSpecial xlPasteValues
Windows("Login_Patient.xlsm").Activate
Range("Tabelle1!g7").Copy
Windows("Meine Datei.xlsm").Activate
Range("Tab536!p3").PasteSpecial xlPasteValues
ActiveSheet.Protect Password:="Admin101"
ActiveWorkbook.SaveAs (Datname4), Password:=(Kennwort1), WriteResPassword:=(Kennwort2)
ActiveWorkbook.Close

Und dazu noch der auto-Makro (in der Datei, die fälschlich wiederaufgerufen werden soll):


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
'ActiveWindow.DisplayGridlines = False
'Application.DisplayFullScreen = True
With ActiveWindow
.WindowState = xlNormal
.Zoom = 90
.Top = 1
.Left = 1
.Width = 1440
.Height = 800
End With
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
Application.OnKey "^{PGDN}", ""
Application.OnKey "^{PGUP}", ""
Application.OnKey "^+{PGDN}", ""
Application.OnKey "^+{PGUP}", ""
Application.OnKey "^g", ""
Application.OnKey "^n", ""
Application.OnKey "^o", ""
Application.OnKey "^p", ""
Application.OnKey "^s", ""
Application.OnKey "{F5}", ""
Application.OnKey "%+{F1}", ""
Application.OnKey "^{F4}", ""
Application.OnKey "%{F4}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "+{F11}", ""
Application.OnKey "%{F11}", ""
Application.OnKey "{F12}", ""
For i = 1 To 12
N = Range("Tab536!b3")
Sheets(N).Select
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Range("Tab536!b3") = Range("Tab536!b3") + 1
Next i
Range("Tab536!b3") = 1
ActiveWindow.DisplayWorkbookTabs = False
Sheets("Tab536").Select
Range("Tab536!b2") = ThisWorkbook.Path
Call Makro50
Application.OnTime Now + TimeValue("00:00:03"), "Makro51"
Application.ScreenUpdating = True
End Sub

In den Makros 50 und 51 gibt es keinerlei Warte-Anweisungen.
Kannst Du mir freundlicherweise noch mitteilen, wie die Code-Zeile mit dem Schedule-Parameter genau lauten muß? Etwa "Application.OnTime Now + TimeValue("00:00:03") = False"
Und außerdem natürlich noch vielen herzlichen Dank für Eure Hilfestellung.
M.f.G. Kloßek

Beliebteste Forumthreads (12 Monate)

Excel 2016 versucht selbständig Datei zu laden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread