clear the file now available msgbox

[Jive]

Bob Phillips very kindly solved my problem in the link below,

However when the code finishes a "file now available" message box appears
whenever the code attempted to open the file and it was read only.

Can anyone now tell me how to clear the event and prevent the message box
showing upon completion?

http://msdn.microsoft.com/newsgroup...-DC48AB0DA5C9&dglist=&ptlist=&exp=&sloc=en-us

 

[CLR]

Post your code, someone will help.

Vaya con Dios,
Chuck, CABGx3

 

[Jive]

The code so far is as below;

Sub Update_To_DBase()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
DesignManager = ActiveWorkbook.Name
Do
Set wb = Workbooks.Open(Filename:="J:\ProSys\DataBase\Projects
Master.xls", Password:="*****")
If wb.ReadOnly Then Application.Wait Now + TimeSerial(0, 0, 1)
Loop Until Not wb.ReadOnly
ProjectsMaster = ActiveWorkbook.Name
Windows(DesignManager).Activate
For i = 1 To 1000
If Cells(i, 12) = True Then
ProjectID = Cells(i, 1).Value
DMCAD = Cells(i, 5).Value
DMType = Cells(i, 13).Value
DMTarget = Cells(i, 8).Value
DMNotes = Cells(i, 10).Value
Windows(ProjectsMaster).Activate
Range("A1").Activate
Cells.Find(What:=ProjectID, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
DBaseRow = ActiveCell.Row
Cells(DBaseRow, 5) = DMCAD
Cells(DBaseRow, 6) = DMType
Cells(DBaseRow, 8) = DMTarget
Cells(DBaseRow, 11) = DMNotes
Windows(DesignManager).Activate
End If
Next i
Windows(ProjectsMaster).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows(DesignManager).Activate
Update_From_DBase
End Sub