XL 2016 Boîte de dialogue

[Lucio]

Bonjour,
j'aimerais qu'une boîte de dialogue apparaisse à chaque fois que j'appuie sur un bouton de commande reset en demandant la confirmation du reset. Qui peut m'aider svp?
Et serait-ce possible que ca fonctionne quand la feuille est protégée?
Merci d'avance de votre aide.

 

[Wayki]

Une proposition :

Sub msgbox()
réponse = msgbox("Êtes vous sûr ?", vbYesNo + vbCritical, "Attention !")
If réponse = 7 Then
Exit Sub
Else
'suite du code
End Sub

A +

 

[Dudu2]

Bonjour,
Une variante:

Sub a()
    Dim Réponse As Variant
   
    Réponse = MsgBox("Confirmer le reset ?", vbOKCancel + vbQuestion, "Confirmation")
    If Réponse = vbOK Then
        'Code pour faire le reset
    End If
End Sub

 

[Lucio]

Une proposition :

A +

merci de ta réponse mais ca fonctionne pas.

 

[Lucio]

Bonjour,
Une variante:

Sub a()
    Dim Réponse As Variant
  
    Réponse = MsgBox("Confirmer le reset ?", vbOKCancel + vbQuestion, "Confirmation")
    If Réponse = vbOK Then
        'Code pour faire le reset
    End If
End Sub

merci de votre retour mais ca fonctionne pas. Voici le fichier si vous pouvez m'aider...

 

[JM27]

bonjour

 

[Lucio]

merci de ta réponse mais ca fonctionne pas.

bonjour

Superbe ! merci. Mais j'ai toujours un bog quand la feuille est protégée. En fait j'aimerais pouvoir rester en mode protégé et faire un reset sans qu on me demande de ôter la protection de la feuille (car si je ne le fais pas, ca bog). auriez-vous une solution ?

 

[Lucio]

Superbe ! merci. Mais j'ai toujours un bog quand la feuille est protégée. En fait j'aimerais pouvoir rester en mode protégé et faire un reset sans qu on me demande de ôter la protection de la feuille (car si je ne le fais pas, ca bog). auriez-vous une solution ?

En gros j'aimerais reseter tout en restant protéger.

 

[JM27]

Bonsoir
Avec le fichier que je t'ai joint il n'y a pas de pb.
Tu peux protéger ta feuille (sans mot de passe) et ensuite relancer la macro
Si tu mets un mot de passe il faut l'intégrer dans la macro !
lors du reset la macro la déprotège et le reprotège à la fin de la macro.
Ou est ton pb ?

Seul les cellules à documenter sont libres d'accès.

 

[Lucio]

Bonsoir
Avec le fichier que je t'ai joint il n'y a pas de pb.
Tu peux protéger ta feuille (sans mot de passe) et ensuite relancer la macro
Si tu mets un mot de passe il faut l'intégrer dans la macro !
lors du reset la macro la déprotège et le reprotège à la fin de la macro.
Ou est ton pb ?

Seul les cellules à documenter sont libres d'accès.

En fait j'aimerais que la feuille reste protégée sans que la boite de dialogue mot de passe s'affiche quand je reset

 

[JM27]

Bonsoir
j'ai pas compris.

En fait j'aimerais que la feuille reste protégée sans que la boite de dialogue mot de passe s'affiche quand je reset

Pas très clair
quel est le but de cette manip. ?
ordre :
1/Le message s'affiche
Si réponse non : on quitte sans déprotéger
Si message oui : on ôte la protection , on reset et on remet la protection.
que demander de mieux ?

 

[Lucio]

Bonsoir
j'ai pas compris.

Pas très clair
quel est le but de cette manip. ?
ordre :
1/Le message s'affiche
Si réponse non : on quitte sans déprotéger
Si message oui : on ôte la protection , on reset et on remet la protection.
que demander de mieux ?

J'aimerais que les utilisateurs ne puissent pas ôter la protection à part moi et que si je vais sur l'onglet. l'idée est que les personnes qui vont utiliser ce fichier ne puisse pas modifier certaines cellules que j'ai verrouillées. Quand je reset je ne veux pas forcement ôter la protection, la boite de dialogue pour déprotéger s'affiche et si j'annule le mot de passe un bog apparaît.

 

[GALOUGALOU]

re lucio le fil
j'ai l'impression que vous n'avez pas bien saisi les informations des membres de xld
pour ne pas avoir de boite de dialogue avec la saisie du mot de passe il faut l'intégrer à la macro.
les utilisateurs n'auront pas connaissance du mot de passe, il n'y aura pas de boite de dialogue.

Sub Ma_Macro()
  ActiveSheet.Unprotect "mdp"   'ou mdp est le mot de passe valide
  '
  ' la macro
  '
  ' remettre le mot de passe à la fin de l'exécution de la macro
  ActiveSheet.Protect "mdp"'ou mdp est le mot de passe valide
End Sub

cdt
galougalou

 

[GALOUGALOU]

re le fil
il ne faut pas oublier de protéger l'affichage du code vba, par un mot de passe, et forcer l'activation des macros, car sinon n'importe quel utilisateur un peu au fait de l'informatique aura vite fait de contourner vos protections. Et même comme ça, cela ne tiendrait pas longtemps pour un utilisateur averti.
cdt

 

[Phil69970]

Bonjour à tous

Juste en passant :
Les MDP divers et variés sous excel ne valent souvent que le temps de les écrire ...

Voir ici une autre manière de voir les choses....

Autrement si tu tiens absolument à tes MDP

Private Sub Workbook_Open()
Dim Ws As Worksheet

For Each Ws In Worksheets
       '"Mon_Mot_de_Passe_qui_va_bien" <== à adapter
       Ws.Protect Password:="Mon_Mot_de_Passe_qui_va_bien", UserInterFaceOnly:=True  
Next Ws

'*Si tu as d'autres procédures concernées par Workbook_Open il faut les mettre ici.
End Sub

Comment ça fonctionne:
==> Le/les codes VBA peuvent s'exécuter d'une manière transparente (Ta feuille est toujours protégée ).
Les utilisateurs sont bloqués sauf si il s connaissent le MDP ou ils connaissent l'informatique......(Voir le début de mon intervention) 😵

@Phil69970