Disable Editing tool bars
Gord,
I just noticed that when I close with the "X" in the upper right corner, ( I
have no other way as all the tool bars are gone) as soon as I click the "X",
the formula bar and the status bar return, and if I cancel out they remain.
Whats up with that?
Mike
"Gord Dibben" wrote:
Mike
In the Sub workbook_open add this line
Application.DisplayFormulaBar = False
Change to = True in the Sub workbook_beforeclose
Gord
On Thu, 8 Dec 2005 14:15:03 -0800, "Mike Rogers"
wrote:
Gord, Thanks a ton...it works!!! (but you knew it would)
One more question, and I know there may not be an answer. The formula bar
can be removed via tools/options etc. If the user has this selected for
their perferences can I un-select it some how when running my application and
the put it back when my application is closed.
"Gord Dibben" wrote:
Mike
Take the code out of the standard module and place it in the Thisworkbook
module.
To disable the right-click menu.......
Application.CommandBars("Cell").Enabled = False
Gord Dibben Excel MVP
On Wed, 7 Dec 2005 19:15:03 -0800, "Mike Rogers"
wrote:
I posted the other day and got some direction. Thank you Peter Ellis. Now I
need some help with what I found. I found a set of macros that should
disable on opening, and enable on closing. The problem is they don't work
and I am not literate in macro syntax. I have researched and all I have found
says they should work. Here is what I am trying to work with:
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = False
Application.CommandBars("Formatting").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = True
Application.CommandBars("Formatting").Enabled = True
End Sub
This is in a standard module.
I also nee to encorporate code to stop "copy & Paste from working, or at
least the window that come from a right mouse click.
Mike Rogers
|