Home » Blogs » Vishesh's blog

Set Excel Environment

Vishesh's picture
Submitted by Vishesh on 3 March, 2011 - 15:21

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
»