Check if Workbook is shared

[Ladymuck]

I would like an alert to pop up if someone tries to run a macro while the
workbook is in shared rather than exclusive mode. How would I do this?

Many thanks
Louise

 

[Dan R.]

Try this:

If ThisWorkbook.MultiUserEditing Then
MsgBox "Shared"
End If

 

[Ladymuck]

How simple is that! Thank you very much.

Try this:

If ThisWorkbook.MultiUserEditing Then
MsgBox "Shared"
End If