XL 2016 Boîte de dialogue

Lucio · 22 Août 2021

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 · 22 Août 2021

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 · 22 Août 2021

Bonjour,
Une variante:

VB:

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 · 22 Août 2021

Wayki à dit:
Une proposition :

A +

merci de ta réponse mais ca fonctionne pas.

Lucio · 22 Août 2021

Dudu2 à dit:

Bonjour,
Une variante:

VB:

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 · 22 Août 2021

bonjour

Lucio · 22 Août 2021

Lucio à dit:
merci de ta réponse mais ca fonctionne pas.

JM27 à dit:
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 · 22 Août 2021

Lucio à dit:
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 · 22 Août 2021

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 · 22 Août 2021

JM27 à dit:
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 · 22 Août 2021

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 · 22 Août 2021

JM27 à dit:
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 · 22 Août 2021

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.

VB:

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 · 22 Août 2021

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 · 22 Août 2021

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

VB:

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

XL 2016 Boîte de dialogue

Lucio

XLDnaute Junior

Wayki

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

Lucio

XLDnaute Junior

Lucio

XLDnaute Junior

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Lucio

XLDnaute Junior

Pièces jointes

Lucio

XLDnaute Junior

JM27

XLDnaute Barbatruc

Pièces jointes

Lucio

XLDnaute Junior

JM27

XLDnaute Barbatruc

Lucio

XLDnaute Junior

Pièces jointes

GALOUGALOU

XLDnaute Accro

GALOUGALOU

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Discussions similaires