Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
error number to determine if shared file is open on "this" machine
i've change the way a file is used: it is now shared...
so, this code which had been useful... no longer detects if a file is currently open on "this" computer what would the correct error number be? Select Case errnum ' No error occurred. ' File is NOT already open by another user. Case 0 IsFileOpen = False ' Error number for "Permission Denied." ' File is already opened by another user. Case 70 IsFileOpen = True ' Another error occurred. Case Else Error errnum End Select thanks in advance mark |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
error number to determine if shared file is open on "this" machine
you'll need to check workbook.userstatus try like: Private Sub Workbook_Open() 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") End Sub keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool "mark kubicki" wrote: i've change the way a file is used: it is now shared... so, this code which had been useful... no longer detects if a file is currently open on "this" computer |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Excel Discussion (Misc queries) | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Setting up and Configuration of Excel | |||
"Cannot access read-only document" (I get this error when I try to open an Excel file) | Excel Discussion (Misc queries) | |||
"Cannot access read-only document" (I get this error when I try to open an Excel file) | Setting up and Configuration of Excel | |||
error: "invalid character in text conent" How do I open this file | Excel Discussion (Misc queries) |