Regarding Visual basic editor

Hari_Word · July 26th, 2004, 12:12 AM

I don't want the user to access the vbe ? how to do it in word.
I have set the showvisualbasiceditor to false. But the user can go to tools and select macro and then can edit the vbe code.
I don't want this to happen how will you do it .

Kind Regards
Hari

chrislepingwell · July 26th, 2004, 04:12 AM

Well, you could always remove the Macro option from the Menu on loading the document. But remember to leave yourself a way back in :).

chris

There are two secrets to success in this world:
1. Never tell everything you know

gcianfanelli · July 26th, 2004, 11:17 AM

If you have Office XP or greater I believe you can set this in your admin tools as a group policy for all Office applications. This would be the most elegant solution, I think

if not, rather than messing around with removing/disabling toolbar menus, disable the internal Word functions directly.

First create a global Word template (eg. "lockDownVBEditor.dot") and place this in your Word Startup folder. Then, inside this project, create a module and add the following procedures.

Code:

Public Sub ToolsMacro()
'
End Sub

Public Sub ToolsRecordMacroToggle()
'
End Sub

Public Sub ViewVBCode()
'
End Sub

These act as overrides to built-in Word functions. You could replace the comment so that it warns the user that these features are disabled.

Of course, this isn't foolproof, but it's a hack that deters most users.

cheers,
Guido

Hari_Word · July 27th, 2004, 01:23 AM

How to disbale the macro option in tools menu. I have to do this only to the active document and not to the whole application.

Kind Regards
Hari

gcianfanelli · July 29th, 2004, 02:46 AM

to do it by specific document either include the following code in your document (if it is a one-off), or place it in a global template and perform a switch depending on the active document

Code:

Option Explicit

Public Sub AutoOpen()
  Call setVBEditorOptionState(False)
End Sub

Public Sub AutoClose()
  Call setVBEditorOptionState(True)
End Sub

Public Sub setVBEditorOptionState(enabledState As Boolean)
  Dim c As Office.CommandBarButton
  Dim bDirty As Boolean
  Application.CustomizationContext = NormalTemplate
  bDirty = NormalTemplate.Saved
  Set c = CommandBars("Tools").FindControl(ID:=1695, Recursive:=True)
  If Not c Is Nothing Then
    c.Enabled = enabledState
  End If
  NormalTemplate.Saved = bDirty
End Sub