XL 2013 verrouillage par macro

[matte]

bonjour,
je cherche comment verrouiller et cacher 2 feuilles de mon classeur par macro avec un mot de passe définie dans la macro lorsque une date définie est atteinte
merci de l'aide que vous seriez en mesure de m'accorder

 

[Phil69970]

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

 

[sylvanu]

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.