Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGNPvj%23TJHA.4180@TK2MSFTNGP02.phx.gbl...
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme pour
chaque feuil. Je souhaiterais par macro oter ou remettre le mot de passe
pour toutes les feuil, j'ai essayé par l'enregisteur, ca fonctionne pour
les oter, mais pour les remettre il ne me remet pas le mot de passe. Est
ce possible de le faire ?
Merci
Manu
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme
pour chaque feuil. Je souhaiterais par macro oter ou remettre le mot de
passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
O6wWBP$TJHA.4744@TK2MSFTNGP05.phx.gbl...
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGNPvj%23TJHA.4180@TK2MSFTNGP02.phx.gbl...
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme
pour chaque feuil. Je souhaiterais par macro oter ou remettre le mot de
passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque feuil
une preotection sur certaines cellules, le mot de passe est le meme
pour chaque feuil. Je souhaiterais par macro oter ou remettre le mot de
passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e66L4%23$TJHA.5860@TK2MSFTNGP02.phx.gbl...
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
O6wWBP$TJHA.4744@TK2MSFTNGP05.phx.gbl...
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGNPvj%23TJHA.4180@TK2MSFTNGP02.phx.gbl...
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils /
Protection / oter la protection , je tape toto, et là ca ne fonctionne
pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas le
mot de passe. Est ce possible de le faire ?
Merci
Manu
Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" a écrit dans le message de news:Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils
/ Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas
le mot de passe. Est ce possible de le faire ?
Merci
Manu
Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
eFXsvEAUJHA.2040@TK2MSFTNGP02.phx.gbl...
Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e66L4%23$TJHA.5860@TK2MSFTNGP02.phx.gbl...
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
O6wWBP$TJHA.4744@TK2MSFTNGP05.phx.gbl...
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils
/ Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGNPvj%23TJHA.4180@TK2MSFTNGP02.phx.gbl...
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas
le mot de passe. Est ce possible de le faire ?
Merci
Manu
Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" a écrit dans le message de news:Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec, en
revanche quand je veux deproteger une seule feuil, je fais donc outils
/ Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre le
mot de passe pour toutes les feuil, j'ai essayé par l'enregisteur, ca
fonctionne pour les oter, mais pour les remettre il ne me remet pas
le mot de passe. Est ce possible de le faire ?
Merci
Manu
Merci, je test ce soir et te tiens au courant.
Manu
"Jacky" a écrit dans le message de news:Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" a écrit dans le message de news:Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec,
en revanche quand je veux deproteger une seule feuil, je fais donc
outils / Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre
le mot de passe pour toutes les feuil, j'ai essayé par
l'enregisteur, ca fonctionne pour les oter, mais pour les remettre
il ne me remet pas le mot de passe. Est ce possible de le faire ?
Merci
Manu
Merci, je test ce soir et te tiens au courant.
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O1LtKKAUJHA.5268@TK2MSFTNGP04.phx.gbl...
Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
eFXsvEAUJHA.2040@TK2MSFTNGP02.phx.gbl...
Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e66L4%23$TJHA.5860@TK2MSFTNGP02.phx.gbl...
Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
O6wWBP$TJHA.4744@TK2MSFTNGP05.phx.gbl...
Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec,
en revanche quand je veux deproteger une seule feuil, je fais donc
outils / Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGNPvj%23TJHA.4180@TK2MSFTNGP02.phx.gbl...
Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
exdtLR%23TJHA.1960@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre
le mot de passe pour toutes les feuil, j'ai essayé par
l'enregisteur, ca fonctionne pour les oter, mais pour les remettre
il ne me remet pas le mot de passe. Est ce possible de le faire ?
Merci
Manu
Merci, je test ce soir et te tiens au courant.
Manu
"Jacky" a écrit dans le message de news:Re...
Protège et déprotège avec l'ancien code AVANT de remplace par le nouveau
http://cjoint.com/?lAvefqSLGQ
--
Salutations
JJ
"Manu" a écrit dans le message de news:Ca ne fonctionne pas, il me lance le debogeur pour la deprotection sur
cette ligne : sh.Unprotect Password:="toto"
"Jacky" a écrit dans le message de news:
e66L4%23$Re...
Change contre ce code
'-------------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:="toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:="toto"
Next
End Sub
'--------------------
Comme quoi 2 petits points peuvent faire .......
--
Salutations
JJ
"Manu" a écrit dans le message de news:
O6wWBP$Merci à vous 2, j'ai pris la solution à Jackiy qui fonctionne impec,
en revanche quand je veux deproteger une seule feuil, je fais donc
outils / Protection / oter la protection , je tape toto, et là ca ne
fonctionne pas, comment que ca se fait ?
Manu
"Jacky" a écrit dans le message de news:
eGNPvj%Bonsoir,
'---------------
Sub protege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password = "toto"
Next
End Sub
'---------------
Sub deprotege()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password = "toto"
Next
End Sub
'----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
exdtLR%Bonsoir,
Je possede un fichier où j'ai une dizaine de feuil et dans chaque
feuil une preotection sur certaines cellules, le mot de passe est le
meme pour chaque feuil. Je souhaiterais par macro oter ou remettre
le mot de passe pour toutes les feuil, j'ai essayé par
l'enregisteur, ca fonctionne pour les oter, mais pour les remettre
il ne me remet pas le mot de passe. Est ce possible de le faire ?
Merci
Manu