Proteger une feuille par mot de passe

bonjour

je souhaiterai créer une petite macro pour rendre une feuille consultable mais non modifiable sauf par moi avec un mot de passe, si possible avec une macro pouvant être activé par le biais d'un bouton merci

Bonjour Noraix le forum

pour protéger ta feuille avec mot de passe Toto

maintenant si tu avais lu la charte tu aurais joint un petit fichier exemple, mais tu ne l'as pas fait alors il y a 99 % de chance que tu n'arrives pas à exploiter les deux macros que je t'ai fait !!!!!!!!!!!!

a+

Papou

sub protège()
feuil1.protect password:="Toto"
end sub

sub déprotège()
feuil1.unprotect password:="Toto"
end sub

Coucou, j'ai trouvé 2 astuces sympa pour demander un password à l'ouverture d'une feuille.

1ere possibilité : je cache ma feuille

à écrire dans le module feuille

Private Sub Worksheet_Activate()
AFFICHER_TDB_ASSO
End Sub

à écrire dans le module classique

Sub AFFICHER_TDB_ASSO()
Dim REP As String
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "GREG" Then
Worksheets("TDB_ASSO").Visible = True
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub
'------------------------------------------------------
Sub MASQUER_TDB_ASSO()
Columns("A:XFD").EntireColumn.Hidden = True
Worksheets("TDB_ASSO").Visible = False
End Sub

2e possibilité : je ne le fais qu'en on active la feuille (mais en mon sens, ça doit devenir très vite difficile si on bosse régulièrement avec plusieurs feuilles dont celle ci ...)

à écrire dans le module feuille

Private Sub Worksheet_Activate()
Dim REP As String
Columns("A:XFD").EntireColumn.Hidden = True
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "YOURPASSWORD" Then
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub

BIEN SUR CES CODES SONT A ADAPTER A TA FEUILLE

A+