EXCEL: Onverwachte fout bij verbergen lint

Status
Niet open voor verdere reacties.

hausi

Gebruiker
Lid geworden
17 jan 2010
Berichten
84
Ik heb een werkboek gemaakt waarvan ik wil dat het lint bij openen wordt verborgen.
Daarvoor gebruik ik de volgende code:
Code:
Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"

End Sub

Het lint wordt verborgen, dat wel, maar ik krijg steeds een foutmelding als de voorgaande code is uitgevoerd
Foutmelding.JPG

De details die bij de fout horen:
Code:
Error Message:

Uitzondering van HRESULT: 0x800A03EC

Stack Trace:

Microsoft.Mashup.Client.Excel.Shim.NativeExcelException: Uitzondering van HRESULT: 0x800A03EC ---> System.Runtime.InteropServices.COMException: Uitzondering van HRESULT: 0x800A03EC
   --- Einde van intern uitzonderingsstackpad ---
   bij Microsoft.Mashup.Client.Excel.NativeExcelFunctions.ValidateResult(Int32 result, Int32[] expectedValues)
   bij Microsoft.Mashup.Client.Excel.NativeExcelFunctions.Microsoft.Mashup.Client.Excel.INativeExcelFunctions.LoadMashupData(IntPtr workbookPointer)
   bij Microsoft.Mashup.Client.Excel.Shim.NativeWorkbookStorageServices.LoadMashupData(IWorkbook workbook, Boolean throwOnCorrupted, MashupCustomXmlPart& data)
   bij Microsoft.Mashup.Client.Excel.Shim.IWorkbookStorageServicesExtensions.TryGetPackage(IWorkbookStorageServices workbookStorageServices, IWorkbook workbook, PackageComponents& excelPackage, PackageValidationResult& validatePackageResult)
   bij Microsoft.Mashup.Client.Excel.WorkbookPackageInfo.InitializeFromWorkbook(ExcelServices excelServices, IWorkbook workbook, IWorkbookIdentity workbookIdentity)
   bij Microsoft.Mashup.Client.Excel.PackageManager.InitializeWorkbookPackageInfo(IWorkbook workbook, IWorkbookIdentity workbookIdentity, Boolean allowCreateNew)
   bij Microsoft.Mashup.Client.Excel.PackageManager.EnsureWorkbookPackageInfo(IWorkbook workbook, Boolean allowCreateNew)
   bij Microsoft.Mashup.Client.Excel.ActiveQueryCache.CacheEntry.GetWorkbookQueries(IWindowContext windowContext, PackageManager packageManager)
   bij Microsoft.Mashup.Client.Excel.ActiveQueryCache.CacheEntry.Create(IWindowContext windowContext, IWorkbookServices workbookServices, PackageManager packageManager)
   bij Microsoft.Mashup.Client.Excel.ActiveQueryCache.CreateAndSetCacheEntry(IWindowContext windowContext)
   bij Microsoft.Mashup.Client.Excel.ActiveQueryCache.GetOrCreateCacheEntry(IWindowContext windowContext)
   bij Microsoft.Mashup.Client.Excel.CustomTaskPaneManagers.UpdateQueriesTaskPaneVisibility(IWindowContext windowContext)
   bij Microsoft.Mashup.Client.Excel.ExcelEventHandler.PerformPeriodicUpdate(IEnumerable`1 queriesTaskPaneVisibilityUpdateWindows)
   bij Microsoft.Mashup.Client.Excel.NativeEventHandler.<OnIdle>b__0()
   bij Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)

Invocation Stack Trace:

   bij Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
   bij Microsoft.Mashup.Client.ClientShared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace)
   bij Microsoft.Mashup.Client.ClientShared.FeedbackErrorInfo..ctor(String message, Nullable`1 errorCode, String requestId, Exception exception)
   bij Microsoft.Mashup.Client.ClientShared.UnexpectedExceptionHandler.<>c__DisplayClass1.<HandleException>b__0()
   bij Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.SendAndMarshalExceptions(SynchronizationContext context, Action callback)
   bij Microsoft.Mashup.Client.ClientShared.UnexpectedExceptionHandler.HandleException(Exception e)
   bij Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
   bij Microsoft.Mashup.Client.Excel.NativeEventHandler.OnIdle()
   bij Microsoft.Mashup.Client.Excel.NativeExcelConnector.<OnIdleCallback>b__3c()
   bij Microsoft.Mashup.Client.Excel.NativeExcelConnector.InvokeAndReturnHResult(Action action)
   bij Microsoft.Mashup.Client.Excel.NativeExcelConnector.OnIdleCallback()

Ik heb het werkboek er maar bijgevoegd, bevat willekeurige bedragen.
Ik heb de code om het lint te verwijderen ook in een nieuw werkboek gebruikt, daar krijg ik de foutmelding niet.

Iemand enig idee?

Groeten,
Hans
 

Bijlagen

  • DagVerkopen.zip
    205,8 KB · Weergaven: 20
Laatst bewerkt:
Even de zoekfunctie gebruiken kan ook wel eens helpen. Hoef ik hier niet vragen naar alle relevante informatie die je niet vermeldt. https://www.helpmij.nl/forum/showthread.php/947114-Lint-minimaliseren?highlight=lint

Dit vat ik niet, ik heb uiteraard de zoekfunctie gebruikt voor ik de vraag postte.
Ik zie niet dat de bedoelde post een oplossing biedt. Verder vermeld ik, voor zover ik kan overzien, alle info die bij het probleem hoort.
Heb je de bijlage geopend en de foutmelding gezien? Als dat zo is, waarom treedt die dan op?
Ik begrijp jouw opmerking niet.
 
De macro's in de bijlage uit bericht#1, werken bij mij goed, excel2007nl.
Misschien dat je voor nieuwe versies van excel een ietwat andere code nodig hebt, ik weet niet waar je deze vandaan hebt.
 
Laatst bewerkt:
@alphamax
De code heb ik gezocht en gevonden in verschillende fora.
Als ik het gebruik in een nieuw leeg werkboek, dan krijg ik de foutmelding niet.
Ik heb de bijlage zelf nog eens gedownload, geopend en ik krijg dit te zien:

Foutmelding.JPG
 
En als je verbinding "ThisWorkbookDataModel" eruit gooit, is het dan opgelost?
 
Dan weet ik het ook niet meer.
 
Nee, bij werkt het perfect zonder foutmeldingen in excel2007nl.
 
Nadat ik de verbinding "ThisWorkbookDataModel" had verwijderd, bleef ik de foutmelding houden, maar na een herstart van Windows werkte het plotseling wel goed :)
Dank voor de ideeën.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan