Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormCode Then Exit Sub
Dim message
message = InputBox("mot de passe demandé!" & Chr(13) & "MERCI!") 'boite de dialogue demandant la saisie
If message = "CC" Then
Unload Me
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub