Jean-Pierre

bonjour Jean Pierre,

il n'est pas nécessaire de sélectionner la feuille, c'est ce qui cause
l'erreur.

Sheets("Sommaire").Protect ("pass2000")

isabelle

Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce personnes
ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas utilisé
les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que je
l'affiche ensuite, au moment où je clique sur "Protection"
ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici

Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre

Bonjour,

Si tu utilisais ce type de syntaxe, cela te faciliterait peut être la tâche

Cet exemple montre que l'on peut "protéger" une feuille même si elle n'est pas visible " et évidemment sans avoir besoin
de la sélectionner au préalable.

'-------------------
With Worksheets("Feuil1")
.Visible = xlVeryHidden
.Protect
End With
'-------------------

Est-ce que cela résout ta difficulté ?


Salutations!



"Méthode Protect" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c70201c438ed$3aab5c90$a401280a@phx.gbl...
Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce personnes
ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas utilisé
les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que je
l'affiche ensuite, au moment où je clique sur "Protection"
ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici


Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre

héhé! Denis, y a du timing c'matin ;-)

isabelle

Bonjour,

Si tu utilisais ce type de syntaxe, cela te faciliterait peut être la tâche

Cet exemple montre que l'on peut "protéger" une feuille même si elle n'est pas visible " et évidemment sans avoir besoin
de la sélectionner au préalable.

'-------------------
With Worksheets("Feuil1")
.Visible = xlVeryHidden
.Protect
End With
'-------------------

Est-ce que cela résout ta difficulté ?

Salutations!

"Méthode Protect" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c70201c438ed$3aab5c90$a401280a@phx.gbl...
Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce personnes
ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas utilisé
les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que je
l'affiche ensuite, au moment où je clique sur "Protection"
ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici

Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre

Bonjour Isabelle,

Bien sûr ! Mais je suis certain que tu devais avoir un tic-tac d'avance, ton message apparaît en premier !!!

;-))


Salutations!


"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:40A38224.2DEBB026@videotron.ca...
héhé! Denis, y a du timing c'matin ;-)

isabelle

Bonjour,

Si tu utilisais ce type de syntaxe, cela te faciliterait peut être la tâche

Cet exemple montre que l'on peut "protéger" une feuille même si elle n'est pas visible " et évidemment sans avoir
besoin

de la sélectionner au préalable.

'-------------------
With Worksheets("Feuil1")
.Visible = xlVeryHidden
.Protect
End With
'-------------------

Est-ce que cela résout ta difficulté ?

Salutations!

"Méthode Protect" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c70201c438ed$3aab5c90$a401280a@phx.gbl...
Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce personnes
ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas utilisé
les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que je
l'affiche ensuite, au moment où je clique sur "Protection"
ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici

Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre

Alors accrochez vous bien, parce que j'ai trouvé la
soluce...
en fait, c'est lorsque je clique sur mon bouton pour faire
revenir la page de navigation. A ce moment là, le focus
est SUR le bouton, et il est impossible de protéger une
feuille si un bouton a le focus... (d'ailleurs dans le
menu Outils -> Protection, Protéger la feuille reste grisé)

J'ai donc simplement fait un Range("A1").activate afin que
le focus se place sur la feuille.
Et ensuite seulement je peux protéger mes feuilles.

Pas simple, mais j'ai cherché un bon moment.
Merci pour votre aide.

Jean-Pierre

voila, en cherchant un peu on fini par trouver

-----Message d'origine-----
Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce
personnes

ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas
utilisé

les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que
je

l'affiche ensuite, au moment où je clique
sur "Protection"

ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici


Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre
.

Alors accrochez vous bien, parce que j'ai trouvé la
soluce...
en fait, c'est lorsque je clique sur mon bouton pour faire
revenir la page de navigation. A ce moment là, le focus
est SUR le bouton, et il est impossible de protéger une
feuille si un bouton a le focus... (d'ailleurs dans le
menu Outils -> Protection, Protéger la feuille reste grisé)

J'ai donc simplement fait un Range("A1").activate afin que
le focus se place sur la feuille.
Et ensuite seulement je peux protéger mes feuilles.

Pas simple, mais j'ai cherché un bon moment.
Merci pour votre aide.

Jean-Pierre

voila, en cherchant un peu on fini par trouver

-----Message d'origine-----
Bonjour
J'ai un problème sur une macro.
Sur une feuille de navigation j'ai quelque boutons
rattachés à mes macros.
Comme par ex. le bouton "Protection" qui s'occupe de
protéger toute les feuilles du classeur avec un mot de
passe en dur dans le code. Et qui fonctionne nickel.

Idem avec Déprotection

Précision: ce document est transmis à des tierce
personnes

ensuite, c'est pourquoi j'ai placer un bouton "bloquer la
navigation" afin que ces personnes ne puissent pas
utilisé

les macro que j'ai sur cette feuille et qui fait
hypercache la feuille.

Maintenant mon problème est le suivant:
Tant que je ne cache pas ma feuille de navigation avec le
bouton "bloquer la navigation", je peux sans problème
utiliser les 2 boutons "Protection" et "Déprotection" et
ceci à volonté.

DONC MON CODE FONTIONNE...

Maintenant si je cache ma feuille de navigation, et que
je

l'affiche ensuite, au moment où je clique
sur "Protection"

ou "Déprotection", j'ai l'erreur suivante:

Erreur d'execution'1004'
La méthode Protect de la classe worksheet à échoué

si je referme mon fichier et que je l'ouvre, je peux
recontinuer à protéger et déprotéger à volonté...

Bizarre, non...

Mon code pour protéger:

Sheets("Sommaire").Select
ActiveSheet.Protect ("pass2000")<--- le code s'arrête ici


Sheets("Récapitulation").Select
ActiveSheet.Protect ("pass2000")

Sheets("Reporting Prestations").Visible = 1
Sheets("Reporting Prestations").Select
ActiveSheet.Protect ("pass2000")

je suis à court d'idée...
Merci pour votre aide

JPierre
.

Alors accrochez vous bien, parce que j'ai trouvé la soluce...

Clic droit sur le bouton --> Propriétés --> TakeFocusOnClick --> False

AV