How to avoid password dialog when adding reference to a lock workbook 1

[JRodrigues]

Hi list,

when i add a reference to a Workbook with VBproject lock the password dialog box pop's up. Even i press Cancel the reference is add and the program still run....

code...


Dim JJ
Application.Cursor = xlWait
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.VBProject.References.AddFromFile ("JOB1.XLS&quot
Set JJ = ActiveWorkbook.VBProject.References.Item(ActiveWorkbook. _
VBProject .References.Count)

TIA

JR