tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par macro
Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par macro
Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vQhQDs6EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
F1FE1F24-062E-41BE-8988-453B77D834A6@microsoft.com...
Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par macro
Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" a écrit dans le message de news:Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .
Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
Obz1EAz6EHA.3236@TK2MSFTNGP15.phx.gbl...
Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vQhQDs6EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de news:
F1FE1F24-062E-41BE-8988-453B77D834A6@microsoft.com...
Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" a écrit dans le message de news:Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les macros
à l'ouverture du fichier, il peut aller mettre le "souk" dans le fichier
car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour Lesteph
Tes explications sont très claires, mais je pensais à JEAN afin qu'il ne
s'embarque pas vers quelque chose de trop complexe...
Désolé ;-)
Didier
"LeSteph" a écrit dans le message de news:
e$Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" a écrit dans le message de news:Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros à l'ouverture du fichier, il peut aller mettre le "souk" dans le
fichier car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de
news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour Lesteph
Tes explications sont très claires, mais je pensais à JEAN afin qu'il ne
s'embarque pas vers quelque chose de trop complexe...
Désolé ;-)
Didier
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
e$R6J116EHA.1292@TK2MSFTNGP10.phx.gbl...
Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .
Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" <didi@wanadoo.fr> a écrit dans le message de news:
Obz1EAz6EHA.3236@TK2MSFTNGP15.phx.gbl...
Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros à l'ouverture du fichier, il peut aller mettre le "souk" dans le
fichier car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23vQhQDs6EHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" <PHIL@discussions.microsoft.com> a écrit dans le message de
news: F1FE1F24-062E-41BE-8988-453B77D834A6@microsoft.com...
Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
Bonjour Lesteph
Tes explications sont très claires, mais je pensais à JEAN afin qu'il ne
s'embarque pas vers quelque chose de trop complexe...
Désolé ;-)
Didier
"LeSteph" a écrit dans le message de news:
e$Bonjour,
Mais non Didier voyons ces deux sub sont données à titre d'exemple pour
que Phil sache comment
ôter ou mettre la protection sur une ou plusieurs feuilles.
on va bien sûr pas les laisser telles que,
lire les indications que j'ai données, c'est à adapter,tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
dans Thisworkbook ou même en dans un option private module et
surtout le but est de reprendre la même instruction en début ou fin de
proc selon que l'on veut protèger ou déprotègere ,ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros
si l'utilisateur fait cela le reste risque de ne pas fonctionner non plus
on peut aussi faire que seule l'utilisation d'une macro permette
l'ouverture .Je préconise que les feuilles soient donc protégées manuellement.
Il n'y a aucune raison si le besoin est de protèger et déprotèger par
macro
on peut avoir besoin de le faire en code , je l'utilise régulièrement.
Il conviendra ensuite de protèger le projet..sinon cela est inutile.
Amicalement.
lSteph
"Didier" a écrit dans le message de news:Bonjour LeSteph
Le pb avec ta procédure est que si un utilisateur n'active pas les
macros à l'ouverture du fichier, il peut aller mettre le "souk" dans le
fichier car celui-ci, n'aura plus les feuilles protégées.
Je préconise que les feuilles soient donc protégées manuellement.
Outils / Protection / Protéger la feuille
Mais cela étant, il faudrait que JEAN-PHIL donne de plus amples
explications quant à la protection des feuilles.
Cordialement
Didier
"LeSteph" a écrit dans le message de news:
%Bonsoir PHIL,
tu pourra aussi appeler ces sub dans le thisworkbook sur évènement
open
ou en début et fin de macro pour en lever puis remettre remettre la
protection.
Ici j'ai envisagé que Sheet(1) était l'onglet que tu voulais ne pas
protèger mais tu peux adapter:
'***********
'A mettre dans un module Standard
'******
Sub protSpec()
'protège tout sauf une
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Protect ("passe")
Next
ThisWorkbook.Sheets(1).Unprotect ("passe")
End Sub
'**
Sub UnprotSpec()
'déprotège tout
Dim ws
For Each ws In ThisWorkbook.Sheets
ws.Unprotect ("passe")
Next
End Sub
'**************
'lSteph
"PHIL" a écrit dans le message de
news:Bonjour,
Je souhaite proteger 5 onglet sur 6 dans mon classseur.
j'ai des macros sur ce classeur.
je voudrai proteger ses feuilles sans qu'il n'y ai d'impact sur
l'execution
de mes macros.
merci
