Microsoft 365 Mot de passe pour activation macro

Nathan027 · 13 Décembre 2023

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 · 13 Décembre 2023

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 · 13 Décembre 2023

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 · 13 Décembre 2023

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

fanfan38 · 13 Décembre 2023

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

Nathan027 · 14 Décembre 2023

sylvanu à dit:
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

Microsoft 365 Mot de passe pour activation macro

Nathan027

XLDnaute Junior

sylvanu

sylvanu

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Nathan027

XLDnaute Junior

Discussions similaires