VBA Bouton commande inactif + Mot de passe + message Feuille

Armand11 · 18 Mai 2018

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 !

phlaurent55 · 18 Mai 2018

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

Lone-wolf · 18 Mai 2018

Bonjour Armand, Philippe, le Forum

@Armand11: ton fichier en retour. Le mot de passe est totox en P2, si le mp est faux, il y a deux autres inscriptions.

Armand11 · 18 Mai 2018

phlaurent55 à dit:

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

Armand11 · 18 Mai 2018

Lone-wolf à dit:
Bonjour Armand, Philippe, le Forum

@Armand11: ton fichier en retour. Le mot de passe est totox en P2, si le mp est faux, il y a deux autres inscriptions.

Merci aussi à toi Lone-Wolf !!
C'est nickel, comme ca ma première extraction ne bougera pas sans connaître le mot de passe...

Merci

VBA Bouton commande inactif + Mot de passe + message Feuille

Armand11

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Armand11

XLDnaute Occasionnel

Armand11

XLDnaute Occasionnel

Discussions similaires