Option Explicit
Public CelaSvela As Boolean ' Definita a livello modulo (Dichiarazioni)
Sub CelaSvelaRibbon()
Application.ScreenUpdating = False
If Not CelaSvela Then
ActiveWindow.DisplayHeadings = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
ActiveWindow.DisplayWorkbookTabs = False '(fogli)
With Application
.DisplayFormulaBar = False 'barra della formula
.DisplayStatusBar = False 'barra di stato
.ShowWindowsInTaskbar = True 'barra delle applicazioni di Windows
End With
Else
ActiveWindow.DisplayHeadings = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
ActiveWindow.DisplayWorkbookTabs = True '(fogli)
With Application
.DisplayFormulaBar = True 'barra della formula
.DisplayStatusBar = True 'barra di stato
.ShowWindowsInTaskbar = True 'barra delle applicazioni di Windows
End With
End If
CelaSvela = Not CelaSvela
Application.ScreenUpdating = True
End Sub |