Microsoft 365 Mot de passe pour activation macro

Nathan027

XLDnaute Junior
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
 
Solution
Bonjour Nathan,
Une possibilité très simple :
VB:
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.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Nathan,
Une possibilité très simple :
VB:
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

XLDnaute Barbatruc
Bonjour et bienvenu sur le forum
un fichier est TOUJOURS le bienvenu
VB:
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
 

Nathan027

XLDnaute Junior
Bonjour Nathan,
Une possibilité très simple :
VB:
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 ;)
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
313 259
Messages
2 096 617
Membres
106 688
dernier inscrit
Cherif99