Discussion :

[ferriato]

Bonjour à tous

J'ai crée un document que je vais devoir partager à plusieurs personnes.
Celui ci comporte plusieurs usf et macros, et pour pouvoir les executer sans encombre j'appelle à chaque fois des modules qui me déverrouillent toutes les feuilles, puis me les re verrouillent à la fin de la macro.
Le code est le suivant

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub verouiller()
 
Feuil2.Protect 
Feuil4.Protect 
Feuil1.Protect 
Application.ScreenUpdating = True
 
End Sub

Problème, un simple appui sur le bouton "Oter la protection" d'excel est possible, sans mot de passe.
Du coup, si je rajoute Password:="xx", on me demande le mot de passe à chaque macro. Ce qui rend évidemment inutilisable le document.

J'aurais voulu savoir si il est possible de ne jamais demander le mot de passe lorsque le "sub deverouiller" est appelé, mais au contraire le demander si l'on veut déproteger la feuille avec le bouton du ruban excel.

J'espère avoir été clair, merci par avance !

Anto

[pgz]

Bonjour.

Dans la méthode WorkSheet.Protect, il y a un argument UserInterfaceOnly qui permet de limiter la protection à l'IHM.
Cela donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

osh.Protect "mot de passe", , , , True

C'est peut-être ce que tu cherches.

Cordialement,

PGZ

[ferriato]

salut, merci de ton aide!
J'ai trouvé une autre méthode qui me permet de supprimer par la même occasion pas mal de chose.
En tous cas merci quand même!

Anto