Bouton pour protéger et déprotéger une feuile avec MDP

Bjr, novice en excel VBA j'aurais voulu savoir si il était possible par le biais d'un bouton de pouvoir protéger ma feuille et la déprotéger par un mot de passe.

Après tu changes tes paramètres de protection comme tu veux:

'Protection
Sheets("LeNomDeTaFeuille").Protect Password:="TonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

'Deprotection
Sheets("LeNomDeTaFeuille").Unprotect Password:="TonMotDePasse"

Bonjour,

c'est possible, avec un code de funkyfoenky

que je te livre

   'Protection
    Sheets("LeNomDeTaFeuille").Protect Password:="TonMotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

    'Deprotection
    Sheets("LeNomDeTaFeuille").Unprotect Password:="TonMotDePasse"

     

Pierrot