Private Sub Workbook_BeforeClose(Cancel As Boolean)
Pass = Application.InputBox("Donnez le mot de passe")
If Pass <> "PassWord" Then
MsgBox ("ce mot de passe n'est pas le bon, le fichier va etre fermé sans enregistrer les modifications effectuées")
ActiveWorkbook.Close savechanges:=False
End If
End Sub