Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Sub ToggleCommandBars()
Dim cb As CommandBar
Dim sTmp As String
For Each cb In CommandBars
sTmp = "Turn On CommandBar: " & cb.Name & "?"
If MsgBox(sTmp, vbYesNo, "Toggle CommandBar") = vbYes Then
On Error Resume Next
CommandBars(cb.Name).Visible = True
If Err.Number <> 0 Then
Err.Clear
MsgBox "Could not turn on CommandBar: " & cb.Name
End If
End If
Next
End Sub