vba check if a read-only workbook is opened

Question

I cannot seem to get a definite feedback on whether or not a read-only workbook is opened or not. In my code I have it copy after closing/saving the workbook. I would like to be able to overwrite the read-only workbook if it's opened as read-only by another user. I tried this something like this bit of code, but had no luck, it just kept saying "File not open!" even when I had it opened. How can I check whether or not a "read-only .xlsx" file is opened or not in vba? ``` Sub Test_If_File_Is_Open_2() Dim wBook As Workbook On Error Resume Next Set wBook = Workbooks("C:\Users\" & Environ("username") & "\Documents\Dropbox\Systems\Open Machine Schedule\Open Machine Schedule.xlsx") If wBook Is Nothing Then 'Not open MsgBox "File is Not open!" Else 'It is open MsgBox "File is Open!" 'Never get this to display when I have the excel file open End If End Sub ``` What started the prompt for using this bit of code(above) was because I wanted the macro to not cause an error if the read-only workbo…

Accepted Answer

your first code is only testing to see if a workbook exist not its state.

You could use this instead:

```
If wBook.ReadOnly Then
    MsgBox "File is Read-only"
Else
    MsgBox "File is not read-only"
End If
```

vba check if a read-only workbook is opened

Solution

Problem