Hide the close X in excel

L

LiAD

Hi,

I have a code, (below), to hide toolbars and to prevent users from
tampering. I have a macro which performs some operations and then saves and
closes the file. I have just realised that the X to close excel on the top
right corner is still visible meaning the file can be closed without using
the macro. Is it possible to also hide this feature so users must close
using the macro?

Thanks

Private mFormulaBar

Private Sub Workbook_BeforeClose()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB

Application.DisplayFormulaBar = mFormulaBar
End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB

mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
End Sub
 
P

paul.robinson

Hi
Too much alteration of the excel interface will annoy your users more
than it is worth. If your users have more than one excel file open,
for example, any code will probably stop them closing those files as
well as yours, even if they are not saving your file.
Try putting your macro code that runs when excel closes into your
before_close macro, so that it runs automatically.
regards
Paul
 
R

Rick Rothstein

How come your Workbook_BeforeClose event header does not have a "Cancel"
argument? Is the one you posted your own creation or was it provided by the
VB interface? If VB provided it, what version of Excel are you using? On my
XL2003 system, the BeforeClose event comes with the Cancel argument allowing
you to stop the user requested shut down of the workbook.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

RunWhen error 4
Code Stopped 1
Works too well - Hide toolbar Macro 4
Unable to disable macro 11
Close help 2
Help! Combine Macros 2
Restoring ToolBars/Commandbars 6
enable right click 2

Top