Worksheet only open by one person at a time

[steventnorris]

I want to limit a workbook to only be open by one person at a time. I know it default to allow read-only access, but I am running a lot of VBA from button clicks that should only be usable by one person on a first-come-first-serve basis. How can I lock out all other users when the excel workbook is already opened by another user?

 

[Jon von der Heyden]

Welcome to the board!

Whack this code in the ThisWorkbook module:

Private Sub Workbook_Open()
    With Me
        If .ReadOnly Then
            Call MsgBox(Prompt:="The workbook is already open by another user!", _
                        Buttons:=vbExclamation + vbOKOnly, _
                        Title:="Closing...")
            Call .Close(SaveChanges:=False)
        End If
    End With
End Sub

 

[steventnorris]

Thank you sir. Worked perfectly.