Workbook_Open wird nicht aufgerufen

[kuki3000]

Was hindert Dich daran, das Problem mit der IT zu besprechen, wie ich es Dir bereits in #3 vorgeschlagen habe?

Wenn ich konkret sagen könnte, dass es an irgendeinem Sicherheitspatch o. Ä. liegt, dann wäre der Ball eindeutig im Spielfeld der IT. Bis jetzt ist es leider noch nicht mit Sicherheit zu sagen.

[Wastl]

Hi,

vielleicht hilft, bei der IT erstmal nur zu fragen, ob sie da etwas dran drehen können und wo vielleicht die Ursache sein könnte. Ohne gleich ans Bein zu pinkeln. Vielleicht haste ne junge (hübsche) Kollegin, die das für dich übernimmt?

[kuki3000]

Hi,

vielleicht hilft, bei der IT erstmal nur zu fragen, ob sie da etwas dran drehen können und wo vielleicht die Ursache sein könnte. Ohne gleich ans Bein zu pinkeln. Vielleicht haste ne junge (hübsche) Kollegin, die das für dich übernimmt?

 
Die junge Kollegin habe ich leider nicht. Die IT ist eigentlich mit involviert, hat aber bisher keine Idee.

[snb]

Wie sieht dann diese Workbook_Open aus ?

Wen du 'nichts siehst' <> 'dass nichts passiert'.

[kuki3000]

Wie sieht dann diese Workbook_Open aus ?

Wen du 'nichts siehst' <> 'dass nichts passiert'.

Hallo Snb,

Excel wird gestartet aber das Hauptfenster der Anwendung (Formular) erscheint nicht.
Keine Fehlermeldung o.Ä.!!

[schauan]

Hallöchen,

interessant wäre auch zu wissen, wie SAP die Datei erstellt. Ich verwende bei mir seit Jahren Scripte zum Öffnen von Excel-Dateien und muss hier die entsprechenden Startmakros aus dem Script heraus aufrufen, weil das WorkBook_Open nicht (mehr) funktioniert.

[snb]

Ich fragte wie das hier aussieht, wir reden VBA :

Code:

Private Sub Workbook_Open()

End Sub

NB. ein Userform öffnet nie automatisch !

[kuki3000]

Hallöchen,

interessant wäre auch zu wissen, wie SAP die Datei erstellt. Ich verwende bei mir seit Jahren Scripte zum Öffnen von Excel-Dateien und muss hier die entsprechenden Startmakros aus dem Script heraus aufrufen, weil das WorkBook_Open nicht (mehr) funktioniert.

Hallo André,
ja genau, Einsicht in die SAP-Datei wäre schon toll aber leider nicht möglich. 

Habe ich es richtig verstanden, hast du dasselbe Problem gehabt? Wann ist es erstmalig bei dir aufgetreten? Kann ich deine SAP-Routine sehen, worin Excel (zuvor) aufgerufen worden war?
VG

[schauan]

Hallo Kuki,

ich hatte kein SAP zum Aufruf, sondern ein VBS-Script. Aber die gleichen Symptome

[kuki3000]

[quote pid='123139' dateline='1528473153']
Ich fragte wie das hier aussieht, wir reden VBA :

Code:

Private Sub Workbook_Open()

End Sub

>>> s. u.

NB. ein Userform öffnet nie automatisch !

>>> ?? Habe ich doch gar nicht gesagt?!
[/quote]
--------------------------------------

Der Inhalt der SUB ist ja letztendlich egal, oder? Ich hätte auch stattdessen nur einen einzigen Befehl wie MSGBOX "Hello World" haben können.
Aber vielleicht hilft es ja.... :19:
Hier der Inhalt  Workbook_Open:

Private Sub Workbook_Open()
    ThisWorkbook.Activate
    unprotectWB
    PQP.CommandButton2.Caption = "Settings"
    PQP.CommandButton2.Caption = language("Settings")
    PQP.CommandButton2.visible = False
    Application.Cursor = xlDefault
    Application.StatusBar = False
    ThisWorkbook.Worksheets("PQP").Select
    
    iplModus = True
    
    isoReg
    
    If ThisWorkbook.Worksheets("Haupt").Cells(78, 8) = True Then
        If IsNumLockOn <> ThisWorkbook.Worksheets("Haupt").Cells(77, 8) Then ToggleNumLock
        ThisWorkbook.Worksheets("Haupt").Cells(78, 8) = False
    End If
    
    If ThisWorkbook.Worksheets("Haupt").Cells(67, 8) = True Then
        ufOptionen.Show
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    isAuthenticated = False
    setMasterHeader
    GlobalModule.ProtectWorkbook = True
    
    ThisWorkbook.Saved = True
    
    If Worksheets("Haupt").Cells(43, 8) = True Then
        Application.DisplayAlerts = False
        Application.AskToUpdateLinks = False
        Application.DisplayAlerts = True
        setKopfdaten
        Share_Input
        modPQP.startPQP
    ElseIf Worksheets("Haupt").Cells(39, 8) = True Then
        modPQP.startPQP
    Else
        If Application.visible Then
            modPQP.startPQP
        End If
    End If
    Application.ScreenUpdating = True
End Sub