Bonjour,
je voudrais faire une macro qui met tous les mot de passe des feuilles de
mon classeur a "toto".
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour les
autres.
i = 0
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
For i = 1 To nombre
Worksheets(i).Unprotect Password:="titi"
Worksheets(i).Protect Password:="toto"
Next i
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas
toujours titi)
AVez vous des idées ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour les autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o))) une seule solution : retrouver les clés de la Ferrari !!!.
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Sikaar
Effectivement ce sont mes classeurs et les mots de passe me sont connus ... par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour les autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o))) une seule solution : retrouver les clés de la Ferrari !!!.
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Effectivement ce sont mes classeurs et les mots de passe me sont connus ...
par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous
m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour
les
autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas
toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra
de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o)))
une seule solution : retrouver les clés de la Ferrari !!!.
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Effectivement ce sont mes classeurs et les mots de passe me sont connus ... par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour les autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o))) une seule solution : retrouver les clés de la Ferrari !!!.
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Yoyo
Bonjour Sikaar et Modeste,
Un exemple de procédure avec gestion d'erreur (2 mots de passe : "titi" et "toto") :
Sub MdPasse() ' Dim nombre% Dim i% ' i = 0
On Error GoTo AutrePW For i = 1 To Sheets.Count Worksheets(i).Unprotect password:="titi" Worksheets(i).Protect password:="toto" Next i Exit Sub
AutrePW: '--------- Worksheets(i).Unprotect password:="toto" Resume Next End Sub
Amicalement Yoyo
"Sikaar" a écrit dans le message de news:
Effectivement ce sont mes classeurs et les mots de passe me sont connus ...
par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous
m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour
les autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas
toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra
de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o))) une seule solution : retrouver les clés de la Ferrari !!!.
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonjour Sikaar et Modeste,
Un exemple de procédure avec gestion d'erreur (2 mots de passe : "titi" et
"toto") :
Sub MdPasse()
'
Dim nombre%
Dim i%
'
i = 0
On Error GoTo AutrePW
For i = 1 To Sheets.Count
Worksheets(i).Unprotect password:="titi"
Worksheets(i).Protect password:="toto"
Next i
Exit Sub
AutrePW:
'---------
Worksheets(i).Unprotect password:="toto"
Resume Next
End Sub
Amicalement
Yoyo
"Sikaar" <Sikaar@discussions.microsoft.com> a écrit dans le message de
news:94724082-39CD-4E30-BC06-40E5C134BAB7@microsoft.com...
Effectivement ce sont mes classeurs et les mots de passe me sont connus
...
par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez
vous
m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto"
pour
les
autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est
pas
toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te
permettra
de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o)))
une seule solution : retrouver les clés de la Ferrari !!!.
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Un exemple de procédure avec gestion d'erreur (2 mots de passe : "titi" et "toto") :
Sub MdPasse() ' Dim nombre% Dim i% ' i = 0
On Error GoTo AutrePW For i = 1 To Sheets.Count Worksheets(i).Unprotect password:="titi" Worksheets(i).Protect password:="toto" Next i Exit Sub
AutrePW: '--------- Worksheets(i).Unprotect password:="toto" Resume Next End Sub
Amicalement Yoyo
"Sikaar" a écrit dans le message de news:
Effectivement ce sont mes classeurs et les mots de passe me sont connus ...
par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous
m en dire plus ?
Bonsour® Sikaar avec ferveur ;o))) vous nous disiez :
L'ancien mot de passe est "titi" pour certaines feuilles et "toto" pour
les autres.
Voila en gros mon code mais il plante ( normal le omt de passe n'est pas
toujours titi)
si ce sont "tes" classeurs, une gestion d'erreur avec boucle, te permettra
de proposer les differents mots de passe utilisés
mais si les mots de passe te sont inconnus... ???
;o))) une seule solution : retrouver les clés de la Ferrari !!!.
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
AV
| Effectivement ce sont mes classeurs et les mots de passe me sont connus ... | par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous | m en dire plus ?
Sub zzzz() On Error Resume Next For i = 1 To Sheets.Count Sheets(i).Unprotect password:="titi" Sheets(i).Unprotect password:="fifi" 'etc ... si autres mots de passe possibles Sheets(i).Protect password:="toto" Next End Sub
AV
| Effectivement ce sont mes classeurs et les mots de passe me sont connus ...
| par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous
| m en dire plus ?
Sub zzzz()
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Unprotect password:="titi"
Sheets(i).Unprotect password:="fifi"
'etc ... si autres mots de passe possibles
Sheets(i).Protect password:="toto"
Next
End Sub
| Effectivement ce sont mes classeurs et les mots de passe me sont connus ... | par contre la gestion d'erreur avec boucle m'est étrangere .... pourriez vous | m en dire plus ?
Sub zzzz() On Error Resume Next For i = 1 To Sheets.Count Sheets(i).Unprotect password:="titi" Sheets(i).Unprotect password:="fifi" 'etc ... si autres mots de passe possibles Sheets(i).Protect password:="toto" Next End Sub
