Userform - controle 2de gebruiker

[bartverhulst]

In mijn userform zou ik willen vermijden dat een 2de gebruiker toegang krijgt in 'read-only'. Ik zou dus willen een controle plaatsen met een pop-up bericht die vermeld dat er al een gebruiker is en dat deze persoon even moet wachten. Ik heb al gezocht naar een code hiervoor maar nergens iets gevonden.
Heeft iemand een idee?
Alvast bedankt
Bart

 

[Roncancio]

If Workbooks("Naam Bestand").ReadOnly Then MsgBox "ffff wachten"

Met vriendelijke groet,


Roncancio

 

[bartverhulst]

Beste,
Dank voor de code maar hoe moet ik dit intgreren in mijn bestaande code. Ik moet ze denk ik plaatsen bij de opstart van de userform. Ik heb al wat zitten testen maar ik slaag er niet in om het juist te krijgen. Momenteel heb ik dit staan :

Private Sub Workbook_Open()
   Application.Visible = False
   FormNaam.Show
End Sub

Alvast bedankt voor de hulp.
Bart

 

[Roncancio]

Private Sub Workbook_Open()
With ThisWorkbook
    If .ReadOnly Then
       MsgBox "ffff wachten"
        .Close
    Else
       Application.Visible = False
       FormNaam.Show
    End If
End With
End Sub

Met vriendelijke groet,


Roncancio

 

[bartverhulst]

Werkt perfect
Heel erg bedankt
Bart