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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
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
Bonsoir !
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
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
Bonsoir !
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
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
Bonsoir !
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
