Block VBE access

[mweaver]

Greetings From Salina, KS.

I am wanting to block VBE access to users on a small sample I am sending out. While I know this is close to impossible I am still wanting to make it as difficult as possible.

I am planning on using OZgrid's example to force users to accept macros to get to the workbook. I am going to add the following line, called from a Workbook_Open event, to close the VBE if it is already open.

Application.VBE.MainWindow.Visible = False


I am going to disable the shortcut keys use the OnKey method:

Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""

This effectively tells Excel to ignore the normal course of action for this combination of keys.

Also disable the menu option.

With Application.CommandBars("Tools").Controls
.Item("Macro").Enabled = False
End With

now I can only think of one way to get to VBE and that is right click on sheet tabs.


Is there simple code to disable the right click View Code menu item on ALL visible sheet tabs???




I am thinking all this MUST
be reversed on workbook close event!!


thanks

mweaver

 

[Ivan F Moala]

On 2002-09-07 13:29, mweaver wrote:
Greetings From Salina, KS.

I am wanting to block VBE access to users on a small sample I am sending out. While I know this is close to impossible I am still wanting to make it as difficult as possible.

I am planning on using OZgrid's example to force users to accept macros to get to the workbook. I am going to add the following line, called from a Workbook_Open event, to close the VBE if it is already open.

Application.VBE.MainWindow.Visible = False


I am going to disable the shortcut keys use the OnKey method:

Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""

This effectively tells Excel to ignore the normal course of action for this combination of keys.

Also disable the menu option.

With Application.CommandBars("Tools").Controls
.Item("Macro").Enabled = False
End With

now I can only think of one way to get to VBE and that is right click on sheet tabs.


Is there simple code to disable the right click View Code menu item on ALL visible sheet tabs???




I am thinking all this MUST
be reversed on workbook close event!!


thanks

mweaver

Hi mweaver
Lookup commandbar("Ply") and disable this.

Also

Disable double clicking on the commandbars
will also activate the customize menu so
disable this

Lookup Application.OnDoubleClick

All you need to do is Redirect the Action to
a Dummy macro

 

[Legacy 98055]

I see Ivan already gave you an answer but since I took the time to figure out what the popups name was, "Ply", this code will disable(grey out) View Code. Use the same code with TRUE when your workbook is closed or deactivated. What does "Ply" stand for?

Application.CommandBars("Ply").Controls("&View Code").Enabled = False

Tom

 

[mweaver]

Tom & Ivan;

Thanks

That Should do it for me!

mweaver