Discussion :

[lebeniste]

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é

[Invité]

Bonjour

Tu pourrais inclure une InputBox, ce qui te permettrait d'avoir une zone de saisie dont tu pourras tester la valeur.

Philippe

[laetitia]

bonjour lebeniste Philippe le forum pour faire jolie tu peus passer par un user aussi . protection suffisante pour un non bidouilleur excel

[lebeniste]

merci laetitia
je me suis amusé comme un fou , j'avais jamais fait de useform

il m'a fallut un peux de temps a comprendre mais sans le vouloir j'fait un double click sur le useform et j'ai vu apparaitre un code

j'ai adapter et ca fonctionne .
question il est nescessaire le petit timer ( sablier) ???
peut-on enlever ca ?

p.s.:peut-etre je vais reussir maintenant a me faire un listebox style html avec ces useforms


merci merci

une autre question

il y avait dans les feuilles une feuille gestion que j'ai creer pour le bon fonctionnement du useform..... elle s'en vas ou et elle sert a quoi cette feuille la ????? elle est plus dans les onglet ???

afin de tester , j'ai mis 3 ou 4 fois le mauvais mot de passe , j'ai cliqué annuler
et un message d'erreur a apparut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Next i
TextBox1.SetFocus: Beep dans cette ligne 
End If

peut-on limiter le nombre d'essais , disons 3 et apres la fenetre se ferme sans executer la macro ????


je demande beaucoup mais je ne connais rien et veux tout apprendre

[laetitia]

bonjour lebeniste Philippe le forum la feuille gestion ne sert a rien ce code a l origine c etait pour cacher une feuille ou la montrer
un autre exemple avec 3 essais sans label clignotant

[lebeniste]

salut laetitia et le forum

j'aime bien ton deuxieme , j'ai adapter et le probleme suivant arrive , rien de bien gros mais bon tu pourra surement me diriger:

quand je clic pour activer le useform la boite ouvre avec l'option entrer le code , validation , annuler. identique a la tienne. sauf que dans la tienne je peux entrer un code et faire "enter" tandit que dans la mienne je dois absolument faire valider si non elle se ferme automatiquement.


je ne peux entrer un code et appuiyer sur "enter" ???
ca peux dependre de quoi ?

j'avais oublier , en plus dans la tienne le curseur se place automatiquement dans la case d'entrer de code , et la j'ai copier ton code en entier .