Set Excel Environment

Vishesh's picture

Here are a set of commands that you can use to set excel environment.

Sub TestRun()
    Call SetExcelEnvironment(True)
End Sub
Sub SetExcelEnvironment(blnShow As Boolean)
    With ActiveWindow
        .DisplayHeadings = blnShow 'Row Col Heading

        .DisplayWorkbookTabs = blnShow 'Sheet Tabs

        .DisplayHorizontalScrollBar = blnShow 'Horizontal Scrollbar

        .DisplayVerticalScrollBar = blnShow 'Vertical Scrollbar

    End With
    Application.DisplayFormulaBar = blnShow 'Formula Bar

    If Application.Version >= 12 Then
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & blnShow & ")" 'Excel 2007 Ribbon

    End If
End Sub