CheckIfFileOpen.bas

Sub CheckIfFileOpen()

Dim fileName As String
  fileName = "C:\Users\marks\Documents\......." 'Tên file kèm đường dẫn

'Gọi function kiểm tra file đóng hay mở
  If IsFileOpen(fileName) = False Then
      'Câu lệnh thực hiện khi file đang đóng
  Else
    'File đang mở hoặc lỗi khác
      MsgBox fileName & " is already open."
    
  End If
End Sub