"Combo" wrote in message
...
Are there a function in VBA programming has return if a file of excel
if
already opeded by other user in my intranet?

The only way I know of is to just open the workbook and check to see if
VBA has opened as read-only. If so it means the workbook is already opened
by another user. For example:

Dim wkb As Workbook
Set wkb = Workbooks.Open("E:\Book1.xls", , , , , , True)
If wkb.ReadOnly Then
MsgBox wkb.Name & " is open by another user."
wkb.Close
End If

Note that the IgnoreReadOnlyRecommended flag has been set to True so you
don't mistake files saved as read-only recommended for files that are open
by another user.

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *