XL 2010 Associer un mot de passe à un bouton effacer

[cyrille29]

Bonsoir à tous

Pourriez vous m'aider à partir du fichier joint.
Je cherche à créer un bouton qui me permettrait d'effacer une colonne par exemple mais suite à la demande d'un mot de passe, puis, une fois effacé, de pouvoir ré-écrire des données dans la même colonne .....
Cela afin d"éviter un effacement de donnée par quelqu'un non autorisé par exemple.
Merci

 

[DoubleZero]

Bonjour à toutes et à tous,

... Pourriez vous m'aider à partir du fichier joint...

Afin d'obtenir de l'aide, peut-être serait-il utile de communiquer le mot de passe permettant l'accès au fichier.

A bientôt

 

[Staple1600]

Bonsoir à tous

Avant d'effacer une colonne, il faudrait pouvoir ouvrir ton fichier protégé par un mot de passe.

EDITION: Bonsoir 00, j'aurai pas mieux dit
Les 17 minutes sont passées alors

 

[cyrille29]

Oupps Désolé ! voici le bon

 

[Staple1600]

Re à tous

Un petit exemple

Sub Effacerlacolonne()
mdp = InputBox("Mot de passe?")
If mdp = "toto" Then
    Range("C3:C13").ClearContents
    Else
    MsgBox "Mot de passe erroné!", vbCritical, "ERREUR"
End If
End Sub

 

[cyrille29]

Merci je vais essayer ça et quel boulet je suis pour le fichier de tout à l'heure !

 

[cyrille29]

Super c'est exactement ce qu'il me fallait. Merci beaucoup
Bonne soirée

 

[DoubleZero]

Re-bonjour, bonjour, Staple1600 ,

... Les 17 minutes sont passées alors

ui : Dame Nature a repris le dessus...

A bientôt