Public Sub VeryFullScreen(oui_ou_non As Boolean)
Static Wstate As Long
With ActiveWindow
.DisplayHeadings = Not oui_ou_non
.DisplayGridlines = True 'oui_ou_non
.DisplayWorkbookTabs = oui_ou_non
.DisplayVerticalScrollBar = oui_ou_non
.DisplayHorizontalScrollBar = oui_ou_non
End With
DoEvents
With Application
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(oui_ou_non)) & ")"
.DisplayFormulaBar = Not oui_ou_non
.DisplayScrollBars = Not oui_ou_non
.DisplayStatusBar = Not oui_ou_non
.WindowState = Array(xlNormal, xlMaximized)(Abs(oui_ou_non))
If Not oui_non Then Notitem_menubar
End With
End Sub
Public Sub item_menubar()
With Application
Set bt = .CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
bt.Caption = "fermer le veryfullscreen"
bt.OnAction = "'VeryFullScreen " & 0 & "'"
End With
End Sub
Public Sub Notitem_menubar()
Application.CommandBars("Cell").Reset
End Sub