-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Checking for Read-Only on open
- Thread starter cyberwolf
- Start date
Richard Schollar
MrExcel MVP
- Joined
- Apr 19, 2005
- Messages
- 23,707
Hi
The following UDF will tell you whether a file can be currently opened with Write-access:
Use in code like:
The following UDF will tell you whether a file can be currently opened with Write-access:
Code:
Function IsFileWriteable(StrFilePath As String) As Boolean
Dim FileNum As Integer
IsFileWriteable = False
FileNum = FreeFile
On Error Resume Next
Open StrFilePath For Input Lock Read Write As #FileNum ' Open file and lock it.
If Err.Number = 0 Then IsFileWriteable = True 'Can write to file
Close FileNum
End FunctionUse in code like:
Code:
If IsFileWriteable("C:\myFile.xls") Then
Workbooks.Open "C:\myFile.xls"
'...
End If
Upvote
0
