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

10 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
Joel
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
Starwing
Ou encore...

Sub MotDePasse()
Dim I As Integer, J As Integer
I = ActiveWorkbook.Sheets.Count
For J = 1 To I
Worksheets(J).Protect Password:="toto" ' Au goût de chacun
Next J
End Sub

Starwing
Avatar
Joel
... et au dégoût des autres
;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Starwing" a écrit dans le message de
news:%
Ou encore...

Sub MotDePasse()
Dim I As Integer, J As Integer
I = ActiveWorkbook.Sheets.Count
For J = 1 To I
Worksheets(J).Protect Password:="toto" ' Au goût de chacun
Next J
End Sub

Starwing




Avatar
LeSteph
Bonsoir Joel,
Quel est l'avantage ici d'une constante globale ?

lSteph

"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
Gaspareau
Tiens j'aurais penser à Ferrari comme mot de passe à la place de toto !!

Bonne journée


"Joel" a écrit dans le message de
news:cis90o$5ac$
... et au dégoût des autres
;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Starwing" a écrit dans le message de
news:%
Ou encore...

Sub MotDePasse()
Dim I As Integer, J As Integer
I = ActiveWorkbook.Sheets.Count
For J = 1 To I
Worksheets(J).Protect Password:="toto" ' Au goût de chacun
Next J
End Sub

Starwing








Avatar
Starwing
Moi j'avais pensé à:

J'aiPokématoto

Dany Heatley...

"Gaspareau" a écrit dans le message de
news:
Tiens j'aurais penser à Ferrari comme mot de passe à la place de toto !!

Bonne journée


"Joel" a écrit dans le message de
news:cis90o$5ac$
... et au dégoût des autres
;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Starwing" a écrit dans le message de
news:%
Ou encore...

Sub MotDePasse()
Dim I As Integer, J As Integer
I = ActiveWorkbook.Sheets.Count
For J = 1 To I
Worksheets(J).Protect Password:="toto" ' Au goût de chacun
Next J
End Sub

Starwing












Avatar
Jean-Claude
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
Jacky
Ferrari! Ferrari! Y a plus de place dans la Ferrari.
De toute façon, le mot est réservé aux demandeurs de MdP.
;o)))))

Salutations
JJ
"Gaspareau" a écrit dans le message de
news:
Tiens j'aurais penser à Ferrari comme mot de passe à la place de toto !!

Bonne journée


"Joel" a écrit dans le message de
news:cis90o$5ac$
... et au dégoût des autres
;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Starwing" a écrit dans le message de
news:%
Ou encore...

Sub MotDePasse()
Dim I As Integer, J As Integer
I = ActiveWorkbook.Sheets.Count
For J = 1 To I
Worksheets(J).Protect Password:="toto" ' Au goût de chacun
Next J
End Sub

Starwing












Avatar
Joel
Bonsoir,

Oups ! j'avais pas vu la quesion...

Je l'utilise lorsque j'en ai besoin dans n'importe quelle routine de
n'importe quel module, ou Private sub de l'application, alors, c'est devenu
une habiude pour u mot de passe...

@ plus!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"LeSteph" a écrit dans le message de
news:
Bonsoir Joel,
Quel est l'avantage ici d'une constante globale ?

lSteph

"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
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












1 2