Как узнать открыт ли Word файл? - VBA

Формулировка задачи:

Добрый день! Проблема следующая: на диске лежит файл word, его могут открывать кто угодно. Если пользователь открывает файл, и потом не закрывает его, то при следующем открытии, word предлагает открыть файл в режиме readonly, что логично Можно ли как-нибудь перед открытием узнать открыт ли данный файл?

Решение задачи: «Как узнать открыт ли Word файл?»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim i As String
Dim Workbook As Object
 
Private Sub CommandButton1_Click()
i= 'Добро пожаловать.'
For Each Workbook In Application.Workbooks
If Workbook.Name = 'Книга1.xls' Then i = 'Файл уже открыт для изменений!'
Next
MsgBox i
End Sub
                        