Comments on: Determine If Event Exists

By: Rob van Gelder

Rob van Gelder — Fri, 03 Sep 2004 11:05:00 +0000

I personally wouldn't check for existence of strings within modules. My approach would be to leave that as an external auditing exercise.

That leaves the following as a much shorter check:

Sub test()
Dim bln As Boolean

bln = False
On Error Resume Next
bln = (ThisWorkbook.VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule.ProcStartLine("Workbook_Open", vbext_pk_Proc) * 0 = 0)
On Error GoTo 0

MsgBox bln
End Sub

PS: your site rocks - I love every day of it.

By: Jon Peltier

Jon Peltier — Thu, 02 Sep 2004 20:38:00 +0000

Another problem besides the Trust Access to Visual Basic Project setting is the name of the workbook's ThisWorkbook class module. Some people (like me) change this to something more descriptive.

This will break:

Workbooks("Book.xls").VBProject _
.VBComponents("ThisWorkbook").CodeModule

so you need something like this (untested):

Workbooks("Book.xls").VBProject _
.VBComponents(Workbooks("Book.xls").CodeName) _
.CodeModule

- Jon

By: ross

ross — Thu, 02 Sep 2004 18:07:00 +0000

could a flag of some sort not be used?