beveiligen van een bestand

[tkint]

Beste,

Ik kreeg indertijd deze code van het forumlid Cobbe en heb ze uitgebreid met de regel Application.Quit.

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

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?

 

[Timshel]

Probeer het eens met displayalerts.
Overigens is dit beveiliging van lik-me-vestje. Beter gebruik je de ingebouwde mogelijkheden: https://www.handleidingexcel.nl/exc...stand-beveiligen/#Beveiligen_door_opslaan_als