Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
Fred
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
Jacky
Bonjour Si tu enregistres ton classeur par "enregistrer sous / option" tu peux mettre un mot de passe. Il te sera directement demandé à l'ouverture du même classeur.
Salutations JJ
"fredbzr" a écrit dans le message de news:4405b1b3$0$20139$
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide -- Fred
Bonjour
Si tu enregistres ton classeur par "enregistrer sous / option" tu peux
mettre un mot de passe. Il te sera directement demandé à l'ouverture du même
classeur.
Salutations
JJ
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de
news:4405b1b3$0$20139$8fcfb975@news.wanadoo.fr...
Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
Fred
Bonjour Si tu enregistres ton classeur par "enregistrer sous / option" tu peux mettre un mot de passe. Il te sera directement demandé à l'ouverture du même classeur.
Salutations JJ
"fredbzr" a écrit dans le message de news:4405b1b3$0$20139$
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide -- Fred
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté
d'utiliser LA fonction qui va bien dans Excel ?
Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en
désactivant les macros
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
Jacky
superfétatoire Tu n'as pas les droits d'auteur Jièl ;o)
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
superfétatoire
Tu n'as pas les droits d'auteur Jièl ;o)
Pfff
JJ
"JièL Goubert" <NoSPAM_JieL.Goubert@laposte-net.NoSPAM> a écrit dans le
message de news:e%23jThMUPGHA.2236@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté
d'utiliser LA fonction qui va bien dans Excel ?
Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en
désactivant les macros
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
fredbzr
Bonsoir Jacky & JièL merci pour votre rapidité je ne connaissait pas cette fonction d'excel (j'apprends tous les jours....) çà me convient mais lors de la sauvegarde, mon document n'est plus zippé y a t-il une autre fonction ou manip qui m'aurait échappée??
"Jacky" a écrit dans le message de news:
Bonjour Si tu enregistres ton classeur par "enregistrer sous / option" tu peux mettre un mot de passe. Il te sera directement demandé à l'ouverture du même classeur.
Salutations JJ
"fredbzr" a écrit dans le message de news:4405b1b3$0$20139$
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide -- Fred
Bonsoir Jacky & JièL
merci pour votre rapidité
je ne connaissait pas cette fonction d'excel (j'apprends tous les jours....)
çà me convient mais lors de la sauvegarde, mon document n'est plus zippé
y a t-il une autre fonction ou manip qui m'aurait échappée??
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
OKXPOLUPGHA.2040@TK2MSFTNGP14.phx.gbl...
Bonjour
Si tu enregistres ton classeur par "enregistrer sous / option" tu peux
mettre un mot de passe. Il te sera directement demandé à l'ouverture du
même
classeur.
Salutations
JJ
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de
news:4405b1b3$0$20139$8fcfb975@news.wanadoo.fr...
Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
Fred
Bonsoir Jacky & JièL merci pour votre rapidité je ne connaissait pas cette fonction d'excel (j'apprends tous les jours....) çà me convient mais lors de la sauvegarde, mon document n'est plus zippé y a t-il une autre fonction ou manip qui m'aurait échappée??
"Jacky" a écrit dans le message de news:
Bonjour Si tu enregistres ton classeur par "enregistrer sous / option" tu peux mettre un mot de passe. Il te sera directement demandé à l'ouverture du même classeur.
Salutations JJ
"fredbzr" a écrit dans le message de news:4405b1b3$0$20139$
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide -- Fred
fredbzr
Rebonjour Désolé je crois que je vais allé me coucher, je n'ai plus les yeux en face des trous !!! Bonne soirée à vous et encore merci "Jacky" a écrit dans le message de news:
superfétatoire Tu n'as pas les droits d'auteur Jièl ;o)
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
Rebonjour
Désolé je crois que je vais allé me coucher, je n'ai plus les yeux en face
des trous !!!
Bonne soirée à vous et encore merci
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
uqUAmbUPGHA.1460@TK2MSFTNGP10.phx.gbl...
superfétatoire
Tu n'as pas les droits d'auteur Jièl ;o)
Pfff
JJ
"JièL Goubert" <NoSPAM_JieL.Goubert@laposte-net.NoSPAM> a écrit dans le
message de news:e%23jThMUPGHA.2236@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
j'aurais besoin d'aide sur une macro pour protéger mon classeur à
l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté
d'utiliser LA fonction qui va bien dans Excel ?
Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en
désactivant les macros
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("mot de passe pour l'ouverture")
If mdp <> "toto" Then
cancel = True
MsgBox "désolé vous ne pouvez pas ouvrir"
End If
End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter?
Encore merci de votre aide
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Rebonjour Désolé je crois que je vais allé me coucher, je n'ai plus les yeux en face des trous !!! Bonne soirée à vous et encore merci "Jacky" a écrit dans le message de news:
superfétatoire Tu n'as pas les droits d'auteur Jièl ;o)
Bonjour à tous j'aurais besoin d'aide sur une macro pour protéger mon classeur à l'ouverture.
Avant de vous lancez dans le macrotage superfétatoire, avez vous tenté d'utiliser LA fonction qui va bien dans Excel ? Menu Fichier, Enregistrer sous, Outils, Options générales...
La vous pourrez mettre un mot de passe qui ne pourra pas être switché en désactivant les macros
Private Sub Workbook_Open() Dim mdp As String mdp = InputBox("mot de passe pour l'ouverture") If mdp <> "toto" Then cancel = True MsgBox "désolé vous ne pouvez pas ouvrir" End If End Sub
Avec ceci rien n'est verrouillé, que faut -il rajouter? Encore merci de votre aide
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
