Protéger un bouton

Bonjour à tous,

Dans mon fichier "ESSAI" , un bouton "SAUVEGARDE", que je voudrai protéger par un mot de passe.

Pourriez-vous m'aider?

Merci par avance,

Jean-Marie

Bonjour,

On peut protéger la sauvegarde en demandant un mot de passe via une inputbox :

Sub Enregistrer_double()
mdp = "test"
    If InputBox("Veuillez saisir le mot de passe pour valider l'enregistrement.", "Mot de passe") <> mdp Then
        MsgBox ("Le mot de passe renseigné n'est pas le bon, vous n'êtes pas autorisé à enregistrer.")
    Else
        ThisWorkbook.SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.1\Classeur11.xlsm"  'indique le chemin de sauvegarde 1 du fichier
         'indique le chemin de sauvegarde 2 du fichier recopier la ligne de dessus en indiquant le nouveau chemin
        ThisWorkbook.SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.0\Classeur1.xlsm"
        ThisWorkbook.Save
    End If
End Sub

Voici le fichier associé :

Bonjour,

Tu débutes ta procédure par recueil d'un mot de passe dans une InputBox et si mot de passe conforme tu donnes cours à l'enregistrement...

Style :

Sub Enregistrer_double()
    Dim pw$
    pw = InputBox("Saisir mot de passe")
    If pw = "mdp" Then
        With ThisWorkbook
            .SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.1\Classeur11.xlsm"                          
            .SaveCopyAs "C:\Users\djodj\Desktop\Essais\TEST 3.0\Classeur1.xlsm"
            .Save
        End With
    End If
End Sub

Cordialement.

edit: Salut Ausecour !

Bonjour MFerrand, bonjour AuSecour,

Un grand merci à vous, c'est ce que je recherchai

Merci et bonne journée à vous.

Amicalement,

Jean-Marie