lint zichtbaar-onzichtbaar

[SUVERMO]

ctrl+x = Macro ONZICHTBAAR
ctrl+w = Macro ZICHTBAAR


hou de ctrl-toets ingedrukt druk vervolgens op xwxwxwxwxw
na de 1°, 3° en 5° keer dat op w te drukken is wordt het lint toch niet zichtbaar, hoe kan dit verholpen worden

 

[HSV]

Ctrl+w is vastgelegd in Excel als zijnde "Sluit het actieve werkbook".

Gebruik Ctrl+Y of iets dergelijks

 

[SUVERMO]

de sneltoetsen zijn nu verwijderd maar het probleem blijft.

om te testen draai de macro ONZICHTBAAR_ZICHTBAAR

 

[SUVERMO]

Sorry voor het storen, probleem opgelost
CommandBars.ExecuteMso "HideRibbon" ontbrak in macro ZICHTBAAR

Sub ZICHTBAAR()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
CommandBars.ExecuteMso "HideRibbon"
Application.DisplayScrollBars = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
End Sub

 

[HSV]

Die regel had ik er juist uitgegooid in 'onzichtbaar'.