Private Sub WorkBook_Open()
Dim mdp As String
mdp = InputBox("Saisir le mot de passe pour le mode administrateur")
If Not mdp = "passedemot" Then
MsgBox "Mauvais mot de passe, le classeur va être fermé"
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
ThisWorkbook.Close
End if
End sub