Hello and help.
I am getting frequent service desk calls regarding a heavily macro'd Excel
file freezing when it is being opened, and its all because the "Trust access
to Visual Basic Project" setting is not ticked.
I know the setting cannot be changed by code, for obvious security reasons,
so I am trying to get the file to check this setting at startup, give the
user a message to make the relevant setting changes, and to stop the file
from freezing.
Is there any simple code to check this setting and return a value to trigger
the above steps if required.
Thanks

I don't understand the freezing part because code will usually run or
generate an error. It doesn't just stop. But anyway this seems to return
whether VBE access is trusted.

Sub TestVBE_Trusted()
If VBE_Trusted Then
MsgBox "VBE Trusted"
Else
MsgBox "VBE NOT Trusted"
End If
End Sub

Function VBE_Trusted() As Boolean
Dim X As Variant
On Error Resume Next
Err.Clear
X = Application.VBE.Version
VBE_Trusted = (Err.Number = 0)
End Function

--
Jim
"Cresta" wrote in message
...
| Hello and help.
| I am getting frequent service desk calls regarding a heavily macro'd Excel
| file freezing when it is being opened, and its all because the "Trust
access
| to Visual Basic Project" setting is not ticked.
| I know the setting cannot be changed by code, for obvious security
reasons,
| so I am trying to get the file to check this setting at startup, give the
| user a message to make the relevant setting changes, and to stop the file
| from freezing.
| Is there any simple code to check this setting and return a value to
trigger
| the above steps if required.
| Thanks
|

Thats what I thought.

That bit of code has worked fine, thankyou.

"Jim Rech" wrote:

I don't understand the freezing part because code will usually run or
generate an error. It doesn't just stop. But anyway this seems to return
whether VBE access is trusted.

Sub TestVBE_Trusted()
If VBE_Trusted Then
MsgBox "VBE Trusted"
Else
MsgBox "VBE NOT Trusted"
End If
End Sub

Function VBE_Trusted() As Boolean
Dim X As Variant
On Error Resume Next
Err.Clear
X = Application.VBE.Version
VBE_Trusted = (Err.Number = 0)
End Function

--
Jim
"Cresta" wrote in message
...
| Hello and help.
| I am getting frequent service desk calls regarding a heavily macro'd Excel
| file freezing when it is being opened, and its all because the "Trust
access
| to Visual Basic Project" setting is not ticked.
| I know the setting cannot be changed by code, for obvious security
reasons,
| so I am trying to get the file to check this setting at startup, give the
| user a message to make the relevant setting changes, and to stop the file
| from freezing.
| Is there any simple code to check this setting and return a value to
trigger
| the above steps if required.
| Thanks
|