파일이 열려있는지 확인

다음 코드는 파일이 열려있는지 확인하는 간단한 사용자 정의 함수입니다.

Public Function IsFileOpen(ByVal filename As String) As Boolean

    Dim wb As Workbook

    On Error Resume Next

    Set wb = Workbooks(filename)
    
    On Error GoTo 0

    IsFileOpen = (Not wb Is Nothing)

End Function