application et protection.

Didier

25/12/2004 à 12:09

Bonjour
La protection des feuilles est indépendante des macros.
Tu devrais faire le test.
Protège tes feuilles et lance les macros.
Bonne journée
Didier

"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

PHIL

25/12/2004 à 13:01

comment faire pour proteger mes feuilles?

ou placer mon code?

merci

Bonjour
La protection des feuilles est indépendante des macros.
Tu devrais faire le test.
Protège tes feuilles et lance les macros.
Bonne journée
Didier

"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

Didier

25/12/2004 à 14:22

???
Outils / Protection / Protéger la feuille
Didier

"PHIL" a écrit dans le message de news:

comment faire pour proteger mes feuilles?

ou placer mon code?

merci

Bonjour
La protection des feuilles est indépendante des macros.
Tu devrais faire le test.
Protège tes feuilles et lance les macros.
Bonne journée
Didier

"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

PHIL

25/12/2004 à 19:17

au niveau du code vba, ou le placer.

faut t'il placer ca dans le thisworkbook?

quel serait le code en consequent?
merci

"Didier" wrote:

???
Outils / Protection / Protéger la feuille
Didier

"PHIL" a écrit dans le message de news:

comment faire pour proteger mes feuilles?

ou placer mon code?

merci

Bonjour
La protection des feuilles est indépendante des macros.
Tu devrais faire le test.
Protège tes feuilles et lance les macros.
Bonne journée
Didier

"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

Monique Brunel

25/12/2004 à 19:29

Bonjour,

Je pense que tu devrais trouver réponse à ta question, avec des
exemples, sur cette page
http://www.excelabo.net/xl/protection.php

au niveau du code vba, ou le placer.

faut t'il placer ca dans le thisworkbook?

quel serait le code en consequent?
merci

"Didier" wrote:

???
Outils / Protection / Protéger la feuille
Didier

"PHIL" a écrit dans le message de news:

comment faire pour proteger mes feuilles?

ou placer mon code?

--
Amicalement,
Monique
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/ et http://www.opquast.org/
avec des navigateurs évolutifs http://www.mozilla-europe.org/
Pour les amateurs d'athlétisme : http://users.skynet.be/osga/

LeSteph

25/12/2004 à 21:32

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

Didier

26/12/2004 à 10:48

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

PHIL

26/12/2004 à 11:39

Bonjour,

Quand je met ce code du coup j'ai un probleme car, a l'ouverture de mon
fichier toutes les feuilles sont proteger.

et quand sur un combobox je selectionne cette valeur la valeur ne pourra pas
etre ecrite dans la cellule de la feuille proteger.

comment contourner ceci?

merci

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

PHIL

26/12/2004 à 11:47

du coup quand je met ce code

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

j'ai ensuite le message, imossible de definir la proprieté de la classe range.
j'ai ce message car ma feuille est protegé , donc il peut rien faire dessus.
comment faire pour que cela puisse s'executer normalement meme si la feuille
est proteger.

merci

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

Norbert

26/12/2004 à 15:25

T'a le niveau de la maternele et tu pose des kestions
niveau cours moyen
On dit aussi peter plus + haut ke son c..l
Resumé :
Tu nous lé broute avec les kestions ke tu pige meme pas et
les reponses ke tu pige encore moin !
Lache nous la grappe : achète toi un boukin; travaille et
kan tu saura un minimum revien voir !

nono

application et protection.

10 réponses

Veuillez sélectionner un problème