Beste,
Ik kreeg indertijd deze code van het forumlid Cobbe en heb ze uitgebreid met de regel Application.Quit.
Maar ik krijg het dialoogvenster om te bv. te annuleren en dat wil ik verhinderen. Gebruik je daarvoor de instructie Application.DisplayAlerts=False? Ik neem te weten dat Application.DisplayAlerts=True daarop moet volgen maar het bestand is dan toch gesloten. Anders oplossen?
Ik kreeg indertijd deze code van het forumlid Cobbe en heb ze uitgebreid met de regel Application.Quit.
Code:
Private Sub Workbook_Open()
user1 = Environ$("UserName")
'user2 = Application.UserName
If user1 & InputBox("Geef nu je toegangscode in : ") <> user & ww Then
MsgBox "Niet correct!": ' Application.Quit
Else: MsgBox ("Toegang verleend")
End If
End Sub