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:
Het lint wordt verborgen, dat wel, maar ik krijg steeds een foutmelding als de voorgaande code is uitgevoerd
De details die bij de fout horen:
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
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
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
Laatst bewerkt: