Office: (Office 2016) VBA: Fehler 0x800a03ec beim Ribbon

Hallo,
ich habe eine Tabelle, die ich ohne Titelleiste anzeigen lassen möchte.
Dazu habe ich mir zwei Makros geschrieben

Code:

Sub AusBlenden()
    CommandBars("Worksheet Menu Bar").Enabled = False
    Application.DisplayFullScreen = False
    ActiveWorkbook.Protect Windows:=False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Sub EinBlenden()
    ActiveWorkbook.Unprotect
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    CommandBars("Worksheet Menu Bar").Enabled = True
    Application.DisplayFullScreen = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

Gebe ich die Makros im Direktfenster ein, werden sie einwandfrei ausgeführt.

Die Tabelle wird beim Start des Rechner geöffnet und soll ohne Titelleiste angezeigt werden.
Deswegen rufe ich Ausblenden in Workbook_Open auf.
Leider bleibt Excel dann mit dem Fehler

stehen. Quittiere ich die Fehlermeldung, läuft die Tabelle durchgehend einwandfrei (sie ruft zyklisch Daten aus dem www ab). In den Details steht folgendes:
Fehlermeldung:
Ausnahme von HRESULT: 0x800A03EC
Stapelablaufverfolgung:
Microsoft.Mashup.Client.Excel.Shim.NativeExcelException: Ausnahme von HRESULT: 0x800A03EC ---> System.Runtime.InteropServices.COMException: Ausnahme von HRESULT: 0x800A03EC
--- Ende der internen Ausnahmestapelüberwachung ---
bei Microsoft.Mashup.Client.Excel.NativeExcelFunctions.ValidateResult(Int32 result, Int32[] expectedValues)
bei Microsoft.Mashup.Client.Excel.NativeExcelFunctions.Microsoft.Mashup.Client.Excel.INativeExcelFunctions.LoadMashupData(IntPtr workbookPointer)
bei Microsoft.Mashup.Client.Excel.Shim.NativeWorkbookStorageServices.LoadMashupData(IWorkbook workbook, Boolean throwOnCorrupted, MashupCustomXmlPart& data)
bei Microsoft.Mashup.Client.Excel.Shim.IWorkbookStorageServicesExtensions.TryGetPackage(IWorkbookStorageServices workbookStorageServices, IWorkbook workbook, PackageComponents& excelPackage, PackageValidationResult& validatePackageResult)
bei Microsoft.Mashup.Client.Excel.WorkbookPackageInfo.InitializeFromWorkbook(ExcelServices excelServices, PackageManager packageManager, IWorkbook workbook, IWorkbookIdentity workbookIdentity)
bei Microsoft.Mashup.Client.Excel.PackageManager.InitializeWorkbookPackageInfo(IWorkbook workbook, IWorkbookIdentity workbookIdentity, Boolean allowCreateNew)
bei Microsoft.Mashup.Client.Excel.PackageManager.EnsureWorkbookPackageInfo(IWorkbook workbook, Boolean allowCreateNew)
bei Microsoft.Mashup.Client.Excel.ActiveQueryCache.CacheEntry.GetWorkbookQueries(IWindowContext windowContext, PackageManager packageManager)
bei Microsoft.Mashup.Client.Excel.ActiveQueryCache.CacheEntry.Create(IWindowContext windowContext, IWorkbookServices workbookServices, PackageManager packageManager)
bei Microsoft.Mashup.Client.Excel.ActiveQueryCache.CreateAndSetCacheEntry(IWindowContext windowContext)
bei Microsoft.Mashup.Client.Excel.ActiveQueryCache.GetOrCreateCacheEntry(IWindowContext windowContext)
bei Microsoft.Mashup.Client.Excel.CustomTaskPaneManagers.UpdateQueriesTaskPaneVisibility(IWindowContext windowContext)
bei Microsoft.Mashup.Client.Excel.ExcelEventHandler.PerformPeriodicUpdate(IEnumerable`1 queriesTaskPaneVisibilityUpdateWindows)
bei Microsoft.Mashup.Client.Excel.NativeEventHandler.<OnIdle>b__0()
bei Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)

Aufruf-Stapelablaufverfolgung:

bei Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
bei Microsoft.Mashup.Client.ClientShared.UnexpectedExceptionHandler.HandleException(Exception e)
bei Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
bei Microsoft.Mashup.Client.Excel.NativeExcelConnector.InvokeAndReturnHResult(Action action)

Befehle wie "Set Warnings = False" bringen leider keine Lösung.
Kommentiere ich die Zeile Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" aus, startet die Tabelle ohne Fehler, blendet aber natürlich die Menüleiste nicht aus. Dann habe ich eine Warteschleife eingebaut, in dem Verdacht, das Excel bei Workbook:Open noch nicht vollständig geladen ist, aber auch nach 5 Minuten bekomme ich den Fehler.

Kann mir jemand helfen? Was bedeutet der Fehlercode und wie verhindere ich ihn?

Gruß
Doming

 

Hallo Dopminig,

wenn ich das Open so mache, kein Fehler

Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub

 

Könnte sein, dass sich dein "Ausblenden" und PQ gegenseitig ins Gehege kommen und PQ bei der Initialisierung ("LoadMashupData") den Zugriff auf das aktuelle Fenster verliert. Versuche es mal so:

Code:

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub SicheresAusblenden()
    Dim i As Integer

    For i = 1 To 10
        DoEvents
        Sleep 200
    Next i

    On Error Resume Next
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    On Error GoTo 0
End Sub

oder andere Idee: schalte mal das automatische Laden oder aktualisieren der Daten in PQ testweise aus.

Alternativ: eigenes leeres Ribbon für diese Arbeitsmappe per XML definieren.

Knobbi38

 

Moin,

Du schaltest ja die Titelleiste mit Deinem Code nicht wirklich aus.
Den visuellen Effekt Deiner beiden Subs erreichst Du auch mit einem Einzeiler (Blattschutz ist damit nicht verbunden, es geht, wie gesagt, um den visuellen Effekt):

Code:

Application.DisplayFullScreen = Not Application.DisplayFullScreen