bonjour voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub SUPPR()
'
' SUPPR Macro
' Macro enregistrée le 2008-03-30 par André
msg = "TOUTE LES DONNÉES SERONT SUPPRIMÉ.... VOULEZ-VOUS CONTINUER ?"
Style = vbYesNo + vbDefaultButton1
Title = "SUPPRIMER"
Réponse = MsgBox(msg, Style, Title)
If Réponse = vbYes Then
Set MaSélection = Application.ActiveCell
    Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Interior.ColorIndex = xlNone
    Selection.ClearContents
    Range("A1").Select
Else
Range("A2").Select
End If
 
End Sub
il ouvre une boite d'avertissement , oui ou non

j'aimerais que en clicant "oui" il me demande un mot de passe avant de supprimer si le mot de passe est correct il execute si non il annule la demande (le mot de passe je pourrai defenir?)
le code presentement est trop facile a executer , besoin de securité