@televisaos Obrigado
Codigo Final ficou assim:
Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
MsgBox "IMPOSSIVEL ACESSAR DOIS USUÁRIOS AO MESMO TEMPO!!!!!", vbCritical, ""
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------
Postado : 05/10/2020 3:27 pm