Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Protéger feuilles de calcul avec mot de passe

Protéger feuilles de calcul avec mot de passe

17 réponses
Avatar
Jean-Claude
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe, une série de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement il protège la
feuille mais sans introduire de mot de passe donné lors de l'enregistrement.

Le mot de passe est identique pour toutes les feuilles à protéger!


Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le liront et lui
donneront une idée...


Merci à tous.


Jean-Claude
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean-Claude
Bonsoir Joël,


Merci beaucoup pour ton aide, j'ai donc supprimé la ligne inutile;
malheureusement, comme je l'ai écrit, les feuilles voulues sont bien
protégées mais on peut les déprotéger sans donner le mot de passe!

Que fais-je faux?


Question nouvelle et subsidiaire: peut-on cacher la macro pour que le mot de
passe écrit en "dur" ne puisse être lu?

Encore une fois merci pour ton aide et celle des autre!


Jean-Claude qui apprend...



"Joel" a écrit dans le message de
news:4152d201$0$750$
Bonsoir,

On peut se passer de la premièere ligne de protect...

Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" a écrit dans le message de
news:
Bonsoir à tous,


Merci pour votre aide bienvenue et appréciée!

Ne devant pas protéger toutes les feuilles du classeur, j'ai essayé de
reprendre ce que j'avais déjà enregistré avec l'enregistreur

de macros et d'y inclure ce que vous m'avez donné: cela ne fonctionne
pas,


la feuille est protégée mais je peux la déprotéger sans
donner le joli mot de passe proposé par vous!

Que fais-je faux?

Est-ce que c'est ainsi que l'on apprend les macros?



Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

End Sub


Le béotien qui vous remercie: Jean-Claude




"Joel" a écrit dans le message de news:
cis7m5$4ot$

Bonsoir,

Conseil : déclarer le mot de pass comme constante :

Global Const App_Password = "MonMotDePasse"

Sub ProtegerTout()
Dim oSheet as Worksheet
For Each oSheet in Worksheets
oSheet.Protect App_Password
Next
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:cis74u$jud$
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe, une
série




de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement il
protège



la
feuille mais sans introduire de mot de passe donné lors de
l'enregistrement.


Le mot de passe est identique pour toutes les feuilles à protéger!


Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le liront
et




lui
donneront une idée...


Merci à tous.


Jean-Claude
















Avatar
Joel
Re-Bonsoir,

Je ne vois pas comment, sans le mot de passe, il est possible de
"déprotéger" les feuilles à partir d'excel...

Quant à protéger l'environnement VB, dans l'éditeur VBA, ::
Menu Outils>Propriétés de VBA Project... onglet Protection

Prévoir un mot de passe que personne ne pourra deviner (sauf toi, c'est
mieux !)

En espérant que cela fonctionne...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le message de
news:ciuojk$db8$
Bonsoir Joël,


Merci beaucoup pour ton aide, j'ai donc supprimé la ligne inutile;
malheureusement, comme je l'ai écrit, les feuilles voulues sont bien
protégées mais on peut les déprotéger sans donner le mot de passe!

Que fais-je faux?


Question nouvelle et subsidiaire: peut-on cacher la macro pour que le mot
de

passe écrit en "dur" ne puisse être lu?

Encore une fois merci pour ton aide et celle des autre!


Jean-Claude qui apprend...



"Joel" a écrit dans le message de
news:4152d201$0$750$
Bonsoir,

On peut se passer de la premièere ligne de protect...

Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" a écrit dans le message de
news:
Bonsoir à tous,


Merci pour votre aide bienvenue et appréciée!

Ne devant pas protéger toutes les feuilles du classeur, j'ai essayé de
reprendre ce que j'avais déjà enregistré avec l'enregistreur

de macros et d'y inclure ce que vous m'avez donné: cela ne fonctionne
pas,


la feuille est protégée mais je peux la déprotéger sans
donner le joli mot de passe proposé par vous!

Que fais-je faux?

Est-ce que c'est ainsi que l'on apprend les macros?



Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

End Sub


Le béotien qui vous remercie: Jean-Claude




"Joel" a écrit dans le message de news:
cis7m5$4ot$

Bonsoir,

Conseil : déclarer le mot de pass comme constante :

Global Const App_Password = "MonMotDePasse"

Sub ProtegerTout()
Dim oSheet as Worksheet
For Each oSheet in Worksheets
oSheet.Protect App_Password
Next
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:cis74u$jud$
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe, une
série




de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement il
protège



la
feuille mais sans introduire de mot de passe donné lors de
l'enregistrement.


Le mot de passe est identique pour toutes les feuilles à protéger!


Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le liront
et




lui
donneront une idée...


Merci à tous.


Jean-Claude




















Avatar
Jean-Claude
Bonsoir Joël,


J'ai réessayé: avec cette macro les feuilles ne sont pas protégées avec le mot de passe mais simplement "protégées" sans mot de
passe.

Je dis cela car si je le fais manuellement, je protège la feuille, le mot de passe étant facultatif, je n'en mets pas et le résultat
est le même qu'avec la macro, dont ma déduction!

Par contre, si je protège la feuille manuellement et que je mets un mot de passe, je devrai obligatoirement mettre ce mot de passe
pour déprotéger!


Il me semble que je suis sur de cela mais le béotien ne sais pas que faire pour résoudre le pb!

Alors si tu as encore une once de patience...

Merci beaucoup de l'aide et bonne nuit!


Jean-Claude



"Joel" a écrit dans le message de news: 4152f325$0$745$
Re-Bonsoir,

Je ne vois pas comment, sans le mot de passe, il est possible de
"déprotéger" les feuilles à partir d'excel...

Quant à protéger l'environnement VB, dans l'éditeur VBA, ::
Menu Outils>Propriétés de VBA Project... onglet Protection

Prévoir un mot de passe que personne ne pourra deviner (sauf toi, c'est
mieux !)

En espérant que cela fonctionne...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le message de
news:ciuojk$db8$
Bonsoir Joël,


Merci beaucoup pour ton aide, j'ai donc supprimé la ligne inutile;
malheureusement, comme je l'ai écrit, les feuilles voulues sont bien
protégées mais on peut les déprotéger sans donner le mot de passe!

Que fais-je faux?


Question nouvelle et subsidiaire: peut-on cacher la macro pour que le mot
de

passe écrit en "dur" ne puisse être lu?

Encore une fois merci pour ton aide et celle des autre!


Jean-Claude qui apprend...



"Joel" a écrit dans le message de
news:4152d201$0$750$
Bonsoir,

On peut se passer de la premièere ligne de protect...

Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" a écrit dans le message de
news:
Bonsoir à tous,


Merci pour votre aide bienvenue et appréciée!

Ne devant pas protéger toutes les feuilles du classeur, j'ai essayé de
reprendre ce que j'avais déjà enregistré avec l'enregistreur

de macros et d'y inclure ce que vous m'avez donné: cela ne fonctionne
pas,


la feuille est protégée mais je peux la déprotéger sans
donner le joli mot de passe proposé par vous!

Que fais-je faux?

Est-ce que c'est ainsi que l'on apprend les macros?



Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

End Sub


Le béotien qui vous remercie: Jean-Claude




"Joel" a écrit dans le message de news:
cis7m5$4ot$

Bonsoir,

Conseil : déclarer le mot de pass comme constante :

Global Const App_Password = "MonMotDePasse"

Sub ProtegerTout()
Dim oSheet as Worksheet
For Each oSheet in Worksheets
oSheet.Protect App_Password
Next
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:cis74u$jud$
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe, une
série




de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement il
protège



la
feuille mais sans introduire de mot de passe donné lors de
l'enregistrement.


Le mot de passe est identique pour toutes les feuilles à protéger!


Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le liront
et




lui
donneront une idée...


Merci à tous.


Jean-Claude
























Avatar
LeSteph
Bonsoir,
Essaie de mettre le mot de passe normalement!
Comme il a pu t'être conseillé
en paramêtre de protect
.protect("totoferrari")
ou
.unprotect("totoferrari")
il me semble que cela fonctionne du moins
chez moi
et une fois cela testé , si c'est bon suis l'autre
conseil donné en protégeant ton projet cette fois manuellement.

Sinon les mots de passe ... c'est juste une question
de temps ou de moyens!

Amicalement
lSteph
.



"Jean-Claude" a écrit dans le message de
news:
Bonsoir Joël,


J'ai réessayé: avec cette macro les feuilles ne sont pas protégées avec le
mot de passe mais simplement "protégées" sans mot de

passe.

Je dis cela car si je le fais manuellement, je protège la feuille, le mot
de passe étant facultatif, je n'en mets pas et le résultat

est le même qu'avec la macro, dont ma déduction!

Par contre, si je protège la feuille manuellement et que je mets un mot de
passe, je devrai obligatoirement mettre ce mot de passe

pour déprotéger!


Il me semble que je suis sur de cela mais le béotien ne sais pas que faire
pour résoudre le pb!


Alors si tu as encore une once de patience...

Merci beaucoup de l'aide et bonne nuit!


Jean-Claude



"Joel" a écrit dans le message de news:
4152f325$0$745$

Re-Bonsoir,

Je ne vois pas comment, sans le mot de passe, il est possible de
"déprotéger" les feuilles à partir d'excel...

Quant à protéger l'environnement VB, dans l'éditeur VBA, ::
Menu Outils>Propriétés de VBA Project... onglet Protection

Prévoir un mot de passe que personne ne pourra deviner (sauf toi, c'est
mieux !)

En espérant que cela fonctionne...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:ciuojk$db8$
Bonsoir Joël,


Merci beaucoup pour ton aide, j'ai donc supprimé la ligne inutile;
malheureusement, comme je l'ai écrit, les feuilles voulues sont bien
protégées mais on peut les déprotéger sans donner le mot de passe!

Que fais-je faux?


Question nouvelle et subsidiaire: peut-on cacher la macro pour que le
mot



de
passe écrit en "dur" ne puisse être lu?

Encore une fois merci pour ton aide et celle des autre!


Jean-Claude qui apprend...



"Joel" a écrit dans le message de
news:4152d201$0$750$
Bonsoir,

On peut se passer de la premièere ligne de protect...

Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" a écrit dans le message de
news:
Bonsoir à tous,


Merci pour votre aide bienvenue et appréciée!

Ne devant pas protéger toutes les feuilles du classeur, j'ai essayé
de





reprendre ce que j'avais déjà enregistré avec l'enregistreur
de macros et d'y inclure ce que vous m'avez donné: cela ne
fonctionne





pas,
la feuille est protégée mais je peux la déprotéger sans
donner le joli mot de passe proposé par vous!

Que fais-je faux?

Est-ce que c'est ainsi que l'on apprend les macros?



Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

End Sub


Le béotien qui vous remercie: Jean-Claude




"Joel" a écrit dans le message de news:
cis7m5$4ot$

Bonsoir,

Conseil : déclarer le mot de pass comme constante :

Global Const App_Password = "MonMotDePasse"

Sub ProtegerTout()
Dim oSheet as Worksheet
For Each oSheet in Worksheets
oSheet.Protect App_Password
Next
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:cis74u$jud$
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe, une
série




de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement il
protège



la
feuille mais sans introduire de mot de passe donné lors de
l'enregistrement.


Le mot de passe est identique pour toutes les feuilles à
protéger!









Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le
liront







et
lui
donneront une idée...


Merci à tous.


Jean-Claude




























Avatar
Jean-Claude
Hello LeSteph,


Effectivement, en mettant le mot de passe comme paramètre de .protect cela
fonctionne; je dois mettre le mot de passe pour déprotéger les feuilles.

Saurais-tu alors comment le faire pour le mettre comme constante globale?
Voilà ce que j'ai fait actuellement sur l'exemple de Joël et qui protège les
feuilles mais sans mot de passe!


Global Const App_Password = "MonMotDePasse"

Sheets("Delaloye").Select
ActiveSheet.Protect MonMotDePasse

Si tu as une idée ou quelqu'un d'autre, merci par avance de l'aide au
béotien en la matière

Jean-Claude


"LeSteph" a écrit dans le message de
news:
Bonsoir,
Essaie de mettre le mot de passe normalement!
Comme il a pu t'être conseillé
en paramêtre de protect
.protect("totoferrari")
ou
.unprotect("totoferrari")
il me semble que cela fonctionne du moins
chez moi
et une fois cela testé , si c'est bon suis l'autre
conseil donné en protégeant ton projet cette fois manuellement.

Sinon les mots de passe ... c'est juste une question
de temps ou de moyens!

Amicalement
lSteph
.



"Jean-Claude" a écrit dans le message de
news:
Bonsoir Joël,


J'ai réessayé: avec cette macro les feuilles ne sont pas protégées avec
le


mot de passe mais simplement "protégées" sans mot de
passe.

Je dis cela car si je le fais manuellement, je protège la feuille, le
mot


de passe étant facultatif, je n'en mets pas et le résultat
est le même qu'avec la macro, dont ma déduction!

Par contre, si je protège la feuille manuellement et que je mets un mot
de


passe, je devrai obligatoirement mettre ce mot de passe
pour déprotéger!


Il me semble que je suis sur de cela mais le béotien ne sais pas que
faire


pour résoudre le pb!

Alors si tu as encore une once de patience...

Merci beaucoup de l'aide et bonne nuit!


Jean-Claude



"Joel" a écrit dans le message de news:
4152f325$0$745$

Re-Bonsoir,

Je ne vois pas comment, sans le mot de passe, il est possible de
"déprotéger" les feuilles à partir d'excel...

Quant à protéger l'environnement VB, dans l'éditeur VBA, ::
Menu Outils>Propriétés de VBA Project... onglet Protection

Prévoir un mot de passe que personne ne pourra deviner (sauf toi,
c'est



mieux !)

En espérant que cela fonctionne...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans le
message de


news:ciuojk$db8$
Bonsoir Joël,


Merci beaucoup pour ton aide, j'ai donc supprimé la ligne inutile;
malheureusement, comme je l'ai écrit, les feuilles voulues sont bien
protégées mais on peut les déprotéger sans donner le mot de passe!

Que fais-je faux?


Question nouvelle et subsidiaire: peut-on cacher la macro pour que le
mot



de
passe écrit en "dur" ne puisse être lu?

Encore une fois merci pour ton aide et celle des autre!


Jean-Claude qui apprend...



"Joel" a écrit dans le message de
news:4152d201$0$750$
Bonsoir,

On peut se passer de la premièere ligne de protect...

Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" a écrit dans le message
de





news:
Bonsoir à tous,


Merci pour votre aide bienvenue et appréciée!

Ne devant pas protéger toutes les feuilles du classeur, j'ai
essayé






de
reprendre ce que j'avais déjà enregistré avec l'enregistreur
de macros et d'y inclure ce que vous m'avez donné: cela ne
fonctionne





pas,
la feuille est protégée mais je peux la déprotéger sans
donner le joli mot de passe proposé par vous!

Que fais-je faux?

Est-ce que c'est ainsi que l'on apprend les macros?



Global Const App_Password = "TotoFerrariJ'aiPokématoto"
Sub Verrouillage_fichiers_auditeurs()

Sheets("Chassot").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

Sheets("Delaloye").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.Protect App_Password

End Sub


Le béotien qui vous remercie: Jean-Claude




"Joel" a écrit dans le message de news:
cis7m5$4ot$

Bonsoir,

Conseil : déclarer le mot de pass comme constante :

Global Const App_Password = "MonMotDePasse"

Sub ProtegerTout()
Dim oSheet as Worksheet
For Each oSheet in Worksheets
oSheet.Protect App_Password
Next
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <perlerjc(news)@ateliers-gerine.ch> a écrit dans
le







message de
news:cis74u$jud$
Bonjour à tous,


Est-il possible par macro, de protéger avec un mot de passe,
une








série
de
feuilles contenues dans un classeur?

J'ai essayé avec l'enregistreur de macro mais malheureusement
il








protège
la
feuille mais sans introduire de mot de passe donné lors de
l'enregistrement.


Le mot de passe est identique pour toutes les feuilles à
protéger!









Sheets("123").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Sheets("xyz").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True


Le béotien ne sait pas faire et il remercie tous ceux qui le
liront







et
lui
donneront une idée...


Merci à tous.


Jean-Claude
































Avatar
AV
Il y a confusion entre le nom de la variable et sa valeur :

Global Const PASS = "MonMotDePasse"
Sub protect()
Sheets("Feuil1").Select
ActiveSheet.protect PASS
End Sub

ou bien :

Sub protect()
Sheets("Feuil1").protect PASS
End Sub

AV
Avatar
Jean-Claude
Hello Alain,


Navré mais j'ai fait une erreur dans le code que j'avais écrit précédemment
ici: en fait c'était correct et ainsi:

Global Const App_Password = "MonMotDePasse"

Sheets("Delaloye").Select
ActiveSheet.Protect App_Password

Je viens en fait de trouver: la valeur de la constante n'était pas passée
car j'avais une autre macro sur cette même feuille!
En la supprimant tout est rentré dans l'ordre des choses qui fonctionnent
normalement si on ne fait pas d'erreurs...

Débutant, je vous l'avais dit!

Merci à tous pour cette aide sympathique.

Jean-Claude


"AV" a écrit dans le message de
news:%
Il y a confusion entre le nom de la variable et sa valeur :

Global Const PASS = "MonMotDePasse"
Sub protect()
Sheets("Feuil1").Select
ActiveSheet.protect PASS
End Sub

ou bien :

Sub protect()
Sheets("Feuil1").protect PASS
End Sub

AV




1 2