Mot de passe !

Bonjoir(c) nesos

Si la fonction par défaut ne vous conviens pas, il faudrait alors
développer une macro, mais elle aurait un GROS inconvénient : elle ne
demanderais rien en cas de désactivation des macros par l'utilisateur !!!

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 06/03/2005 11:48 vous avez écrit ceci :

Bonjour !

Je voudrais faire en sorte qu'a l'ouverture de mon fichier une boite de
dialogue me demande un mot de passe pour pouvoir l'ouvrir et faire des modif
sinon avoir la possibilité de l'ouvrir en lecture seule.
Je voudrais également que cette boite de dialogue contienne un ptit texte
perso ! Est ce possible ! j'ai essayer l'option dans lors de
l'enregistrement sous mais cela ne correspond pas à se que j'attends !
Merci

Bonjour Cedric,
Copie ci dessous de la réponse de Gaenonius à to précédent message :

"=============================================================="
A appeler dans l'événement Workbook_Open du classeur :

Sub MotDePasse()
Dim MdP, Texte, i
MdP = "Mot de passe"
Texte = "Entrez ci-dessous" & vbCrLf _
& "le sésame requis" & vbCrLf & "(attention à la casse) :"
For i = 1 To 3
If InputBox(Texte) = MdP Then Exit Sub
Next
MsgBox "Vos 3 essais ont échoué."
End Sub

--
Gaenonius
"=============================================================="
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"nesos" <laine_cedric@yahoo.fr> a écrit dans le message de news:
e4Wk0mjIFHA.2648@TK2MSFTNGP14.phx.gbl...

Bonjour !

Je voudrais faire en sorte qu'a l'ouverture de mon fichier une boite de
dialogue me demande un mot de passe pour pouvoir l'ouvrir et faire des modif
sinon avoir la possibilité de l'ouvrir en lecture seule.
Je voudrais également que cette boite de dialogue contienne un ptit texte
perso ! Est ce possible ! j'ai essayer l'option dans lors de
l'enregistrement sous mais cela ne correspond pas à se que j'attends !
Merci

....mouais, faudrait pousser un peu plus loin :

dans le module "ThisWorkbook" de Visual Basic Editor :

Private Sub Workbook_BeforeClose()

ThisWorkbook.Protect "bidule", Structure:=True, Windows:úlse
For Each Feuille In Worksheets
Feuille.Protect "bidule", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Next

End Sub

Private Sub Workbook_Open()
MotDePasse
End Sub

et dans un module indépendant :

Sub MotDePasse()
Dim MdP, Texte, i
MdP = "Mot de passe"
Texte = "Entrez ci-dessous" & vbCrLf _
& "le sésame requis" & vbCrLf & "(attention à la casse) :"
For i = 1 To 3
If InputBox(Texte) = MdP Then
ThisWorkbook.Protect "bidule", Structure:úlse, Windows:úlse
For Each Feuille In Worksheets
Feuille.Protect "bidule", DrawingObjects:úlse,
Contents:úlse, Scenarios:úlse
Next
Exit Sub
End If
Next
MsgBox "Vos 3 essais ont échoué."
End Sub