Microsoft 365 Mot de passe pour activation macro

[Nathan027]

Bonjour à toutes et tous.

Je sollicite votre aide.

J'ai un bouton "RAZ" dans mon fichier pour remettre à zéro la plage F11:F1500, j'aimerai que lorsque j'appuie sur mon bouton, avant de toute effacé, je voudrais qu'il y ai un mot de passe.
Cela est il possible ? (ci dessous mon code)

Sub RaS()
If MsgBox("Etes-vous certain de vouloir supprimer TOUTES les 1ère dates d'opérations ?", vbYesNo, "Demande de confirmation") = vbYes Then
Range("F11:F1500").ClearContents
Sheets("Planning").Select
MsgBox "Le contenu a été effacé !"
End If
End Sub

Cordialement

 

[sylvanu]

Bonjour Nathan,
Une possibilité très simple :

Sub RaS()
If MsgBox("Etes-vous certain de vouloir supprimer TOUTES les 1ère dates d'opérations ?", vbYesNo, "Demande de confirmation") = vbYes Then
    If InputBox("Mot de passe :") = "1234" Then  ' Changer le mdp
        Range("F11:F1500").ClearContents
        Sheets("Planning").Select
        MsgBox "Le contenu a été effacé !"
    End If
End If
End Sub

Cependant le mot de passe est visible à l'écriture, sinon il faut passer par un userform.
NB: Utilisez le balise </> pour le code c'est plus lisible. A droite de l'icone GIF.

 

[fanfan38]

Bonjour et bienvenu sur le forum
un fichier est TOUJOURS le bienvenu

Dim rep As String, message As String, titre As String
  message = "Saisir le mot de passe si vous êtes certain de vouloir supprimer TOUTES les 1ère dates d'opérations ?"
  titre = "Demande de confirmation"
  rep = InputBox(message, titre)
  If rep = "motdepasse" Then
    Range("F11:F1500").ClearContents
    Sheets("Planning").Select
    MsgBox "Le contenu a été effacé !"
  End If

A+ François

 

[fanfan38]

OUPS..
J'ai pas rafraichi...
Salut Sylvanu

 

[Nathan027]

Bonjour Nathan,
Une possibilité très simple :

Sub RaS()
If MsgBox("Etes-vous certain de vouloir supprimer TOUTES les 1ère dates d'opérations ?", vbYesNo, "Demande de confirmation") = vbYes Then
    If InputBox("Mot de passe :") = "1234" Then  ' Changer le mdp
        Range("F11:F1500").ClearContents
        Sheets("Planning").Select
        MsgBox "Le contenu a été effacé !"
    End If
End If
End Sub

Cependant le mot de passe est visible à l'écriture, sinon il faut passer par un userform.
NB: Utilisez le balise </> pour le code c'est plus lisible. A droite de l'icone GIF.

Nickel, pour l'affichage du mot de passe ce n'est pas très grave dans mon cas