VBA Bouton commande inactif + Mot de passe + message Feuille

  • Initiateur de la discussion Initiateur de la discussion Armand11
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Armand11

XLDnaute Occasionnel
Bonjour à toute la communauté Excel Download,

En cet veille de weekend prolongé je vous sollicite sur une commande VBA. En effet j'aimerai connaître une fonction simple pour désactiver un bouton de commande après 1 seul clic et de pouvoir le rendre inactif même après réouverture du fichier. On pourra le rendre actif par un mot de passe seulement.....

En plus je souhaiterai indiquer un message texte après le premier clic . Pour l'instant j'utilise "MsgBox" mais je préfère l'indiquer sur la feuille en dur....

Merci d'avance pour votre aide précieuse...

Armand
PS: je vous ai mis à dispo un petit fichier....

Mille mercis !
 

Pièces jointes

Bonjour Armand,

remplace ton code par celui-ci:
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then Exit Sub
Range("b7:b11").Copy Range("d7:d11")
MsgBox "Utilisé le " & Date
End Sub

ou celui-ci
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then Exit Sub
Range("b7:b11").Copy Range("d7:d11")
[B4] = "Utilisé le " & Date & " à " & Time
End Sub

ou celui-ci
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then
    MsgBox ("Le mot de passe n'est pas valable")
    Exit Sub
End If
Range("b7:b11").Copy Range("d7:d11")
[B4] = "Utilisé le " & Date & " à " & Time
End Sub

à+
Philippe
 
Dernière édition:
Bonjour Armand,

remplace ton code par celui-ci:
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then Exit Sub
Range("b7:b11").Copy Range("d7:d11")
MsgBox "Utilisé le " & Date
End Sub

ou celui-ci
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then Exit Sub
Range("b7:b11").Copy Range("d7:d11")
[B4] = "Utilisé le " & Date & " à " & Time
End Sub

ou celui-ci
Code:
Sub macro1apo()
If InputBox("ENTREZ LE MOT DE PASSE") <> "TOTO" Then
    MsgBox ("Le mot de passe n'est pas valable")
    Exit Sub
End If
Range("b7:b11").Copy Range("d7:d11")
[B4] = "Utilisé le " & Date & " à " & Time
End Sub

à+
Philippe
Bonjour à tous et bonjour Philippe

C'est juste Parfait et génial , tout marche !!
Merci beaucoup pour votre aide

Bon weekend !

Armand
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour