Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
opening a shared workbook
I want to check if a SHARED workbook is open (on the user's machine), so
that I can run code to open it if it is not (otherwise I would get a message about opening an already open ... the workbook is HIDDEN to the user, to the message would be both inappropriate and confusing...) in the past I've used this procedure, but the workbook was NOT SHARED (since it is now shared, it would be possible to get an "is open" response even though it was not so on the user's machine: Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer On Error Resume Next filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err On Error GoTo 0 Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function it was suggested that I check for the workbooks status, but that doesn't tell me if it is "open" on the user's machine (only if is shared or exclusive...) Dim vMode On Error Resume Next If Me.ReadOnly Then vMode = 3 Else vMode = Application.VLookup(Application.UserName, Me.UserStatus, 3) End If MsgBox "Mode: " & Choose(vMode, "exclusive", "shared", "readonly") thanks in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
shared workbook - shared workbook options grayed out | Excel Discussion (Misc queries) | |||
Slow Opening Shared Workbook | New Users to Excel | |||
Shared workbook - opening to the correct worksheet | Excel Discussion (Misc queries) | |||
Printing viewing a shared workbook on a shared drive | Excel Discussion (Misc queries) | |||
update pivot in shared shared workbook | Excel Discussion (Misc queries) |