Excel in VB

[fasi]

I have a vb 6 program that is writing to an excel sheet on the network. The users have access to this file as well. Some time when the users leave at night they leave the file open and the program cannot write to it. and hangs in the scheduler. Is there a way of checking if the file is already open and who has it open .

[dglienna]

you could shut down the pc, which closes everything off.

[RobDog888]

Here is some code to enumerate the Excel users on a workbook. Should do the trick.

Private Sub Workbook_Open()
 
    users = ActiveWorkbook.UserStatus
    With Workbooks.Add.Sheets(1)
        For Row = 1 To UBound(users, 1)
            .Cells(Row, 1) = users(Row, 1)
            .Cells(Row, 2) = users(Row, 2)
            Select Case users(Row, 3)
                Case 1
                    .Cells(Row, 3).Value = "Exclusive"
                Case 2
                    .Cells(Row, 3).Value = "Shared"
            End Select
        Next
    End With
 
End Sub

[RobDog888]

you could shut down the pc, which closes everything off.

Now why would you want to take the chance of corrupting the workbook with an unexpected shutdown/disconnection.