protection feuille multipass

secis

XLDnaute Nouveau
Bonjour à tout le monde!!!
J'aurai besoin d'un petit renseignement savoir si il est possible de proteger une feuille avec plusieurs mot de passe et pouvoir la deverouiller par l'un ou l'autre
Il me semble que sur le forum j'avais deja vu un discussion de ce style
Quelqu'un pourrait m'aider SVP ?!!!!!!!!!!!!
 

Macpoy

XLDnaute Impliqué
Re : protection feuille multipass

bonsoir le forum, Skoobi, secis,

Pourquoi ??, comment ???
ton lien ne donne rien mon bon skoobi.
mais voir en pièce jointe si cela est un début de réponse pour notre Xlnaute nouveau.
 

Pièces jointes

  • USF-PassWord-Multi-Levels-V01[1].00.zip
    28.7 KB · Affichages: 43
  • USF-PassWord-Multi-Levels-V01[1].00.zip
    28.7 KB · Affichages: 43
  • USF-PassWord-Multi-Levels-V01[1].00.zip
    28.7 KB · Affichages: 44

secis

XLDnaute Nouveau
Re : protection feuille multipass

ah c'est presque ça je voudrais pour la meme feuille deux mot de passe possible
du style
"ActiveWorkbook.Worksheets(i).Protect password:="pass", DrawingObjects:=True, contents:=True, Scenarios:=True"
je cherche l'endroit excat ou placer le deuxieme code?!!

Merci d'avance
 

Macpoy

XLDnaute Impliqué
Re : protection feuille multipass

Re à tous les participants,

ben sur ton lien skoobi, je ne vois pas de pièce jointe permettant d'avancer dans la question de secis, c'est pour cela que je me suis permis cette réflexion.
désolé si je me sui mal exprimé.
 

secis

XLDnaute Nouveau
Re : protection feuille multipass

voici les lignes ou je cherche a rajouter un deuxieme mot de passe

Dim nombre As Integer
Dim i As Integer
Dim passe As String
nombre = ActiveWorkbook.Worksheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
ActiveWorkbook.Worksheets(i).Protect password:="diadem", DrawingObjects:=True, contents:=True, Scenarios:=True
Next i

End Sub
 

Discussions similaires

Réponses
5
Affichages
387
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 668
Messages
2 090 739
Membres
104 643
dernier inscrit
adriano22