XL 2013 verrouillage par macro

Bonjour Matte , le forum

Le principe pour est le suivant :
'Ici on cache les feuilles
Worksheets("Feuil1").Visible = False ' Nom de la feuille1
Worksheets("Feuil2").Visible = False ' Nom de la feuille2

'Ici on démasque les feuilles
Worksheets("Feuil1").Visible = True ' Nom de la feuille1
Worksheets("Feuil2").Visible = True ' Nom de la feuille2

Et pour le verrouillage/déverrouillage avec mot de passe
'Les feuilles sont verrouillées
Worksheets(“Feuil1”).Protect Password:=”toto” 'ici ton mot de passe
Worksheets(“Feuil2”).Protect Password:=”momo” 'ici ton mot de passe

'Les feuilles sont déverrouillées
Worksheets(“Feuil1”).Unprotect Password:=”toto” 'ici ton mot de passe
Worksheets(“Feuil2”).Unprotect Password:=”momo” 'ici ton mot de passe


Et apres on peut panaché les 2
'Les feuilles sont verrouillées
Worksheets(“Feuil1”).Protect Password:=”toto” 'ici ton mot de passe
Worksheets(“Feuil2”).Protect Password:=”momo” 'ici ton mot de passe

'Ici on cache les feuilles
Worksheets("Feuil1").Visible = False ' Nom de la feuille1
Worksheets("Feuil2").Visible = False ' Nom de la feuille2

etc....

Tu mets une condition
If Range("A1").Value = Now() Then
'ici ton code
'Les feuilles sont verrouillées
Worksheets(“Feuil1”).Protect Password:=”toto” 'ici ton mot de passe
Worksheets(“Feuil2”).Protect Password:=”momo” 'ici ton mot de passe

'Ici on cache les feuilles
Worksheets("Feuil1").Visible = False ' Nom de la feuille1
Worksheets("Feuil2").Visible = False ' Nom de la feuille2

End if


@Phil69970

Bonjour Matte, Phil,
On peut aussi rendre invisible les onglets dans la liste d'onglets en mettant la propriété de la feuille :

De cette façon cette feuille n'apparaitra pas dans la liste Afficher.
Evidemment c'est illusoire comme protection mais peut être suffisante s'il n'y a aucune tentative de malversation.