+ Reply to Thread
Results 1 to 3 of 3

Remove Formula Bar / Toolbars etc

  1. #1
    Registered User
    Join Date
    09-15-2003
    Posts
    21

    Post Remove Formula Bar / Toolbars etc

    Can anybosy please tell me how to remove all the users toolbars and formulae bars when the workbook is opened and then put them all back when the workbook is closed?

    Many Thank
    Benn

  2. #2
    Bob Phillips
    Guest

    Re: Remove Formula Bar / Toolbars etc

    Option Explicit

    Private mFormulaBar

    Private Sub Workbook_Open()
    Dim oCB As CommandBar

    'Remove commandbars
    For Each oCB In Application.CommandBars
    oCB.Enabled = False
    Next

    'RemoveFormulaBar
    mFormulaBar = Application.DisplayFormulaBar
    Application.DisplayFormulaBar = False
    End Sub

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim oCB As CommandBar

    'Restore commandbars
    For Each oCB In Application.CommandBars
    oCB.Enabled = True
    Next

    'RestoreFormulaBar
    Application.DisplayFormulaBar = mFormulaBar
    End Sub


    'This is workbook event code.
    'To input this code, right click on the Excel icon on the worksheet
    '(or next to the File menu if you maximise your workbooks),
    'select View Code from the menu, and paste the code





    --
    HTH

    Bob Phillips

    (remove nothere from email address if mailing direct)

    "cassy01" <[email protected]> wrote in
    message news:[email protected]...
    >
    > Can anybosy please tell me how to remove all the users toolbars and
    > formulae bars when the workbook is opened and then put them all back
    > when the workbook is closed?
    >
    > Many Thank
    > Benn
    >
    >
    > --
    > cassy01
    > ------------------------------------------------------------------------
    > cassy01's Profile:

    http://www.excelforum.com/member.php...nfo&userid=780
    > View this thread: http://www.excelforum.com/showthread...hreadid=502829
    >




  3. #3
    Dana DeLouis
    Guest

    Re: Remove Formula Bar / Toolbars etc

    > Can anybody please tell me how to remove all the users toolbars and
    > formulae bars


    Just throwing this out as a possible alternative...

    Sub FullScreenToggle()
    With Application
    .DisplayFullScreen = Not (.DisplayFullScreen)
    End With
    End Sub

    Perhaps in the Workbook_Open / Workbook_BeforeClose event.
    --
    Dana DeLouis
    Win XP & Office 2003


    "cassy01" <[email protected]> wrote in
    message news:[email protected]...
    >
    > Can anybosy please tell me how to remove all the users toolbars and
    > formulae bars when the workbook is opened and then put them all back
    > when the workbook is closed?
    >
    > Many Thank
    > Benn
    >
    >
    > --
    > cassy01
    > ------------------------------------------------------------------------
    > cassy01's Profile:
    > http://www.excelforum.com/member.php...nfo&userid=780
    > View this thread: http://www.excelforum.com/showthread...hreadid=502829
    >




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1