Do not open run if workbook is read only.

[Draconas1988]

Hey,

I have an excel sheet that multiple users will need to access at various times. I've recently run into the issue where a few of them have tried to open it at the same time as another, enter data, and try to save it while it is in read only. I tried a few macros to keep them from opening the workbook up while another user was in it but to little success.

So instead is there a way I can make it so the button will not open the form if the workbook is read only?

Thanks.

 

[rlv01]

It would be difficult to keep them from opening it, but you could put code like that shown below in the workbook open event to warn them, and optionally close the workbook.

Sub CheckWriteStatus()
    Dim Msg As String, Title As String, Ans As Integer
    Dim ReadOnly As Boolean

    Msg = "This file is currently read only and may be in use by another user"
    Title = "Warning"

    ReadOnly = GetAttr(ThisWorkbook.FullName) And vbReadOnly

    If ReadOnly Then
        MsgBox Msg, vbExclamation, Title
        ThisWorkbook.Close False
    End If
End Sub