Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Alpha
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Désolé Michel,
chez moi ta proc refuse de déprotéger
Erreur d'exécution 1004
Sub Deprotege()
Dim f as Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Unprotect "toto"
Next
End SubAlpha"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message
de news: 3FC78956.7E6D3ECC@Suppgaboly.com...
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour,
Je désire avoir la proc qui protège les feuilles de mon classeur,
for each sheetsetc...
Désolé
Merci
Alpha
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Alpha
Désolé, c'est une erreur de ma part, cela fonctionne très bien Alpha
"Alpha" a écrit dans le message de news:
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message
de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Désolé, c'est une erreur de ma part, cela fonctionne très bien
Alpha
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
O2THV2dtDHA.2224@TK2MSFTNGP09.phx.gbl...
Désolé Michel,
chez moi ta proc refuse de déprotéger
Erreur d'exécution 1004
Sub Deprotege()
Dim f as Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Unprotect "toto"
Next
End SubAlpha"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le
message
de news: 3FC78956.7E6D3ECC@Suppgaboly.com...
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour,
Je désire avoir la proc qui protège les feuilles de mon classeur,
for each sheetsetc...
Désolé
Merci
Alpha
Désolé, c'est une erreur de ma part, cela fonctionne très bien Alpha
"Alpha" a écrit dans le message de news:
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message
de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Re,
Il faut remplacer "toto" par ton mot de passe :-))
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Re,
Il faut remplacer "toto" par ton mot de passe :-))
Désolé Michel,
chez moi ta proc refuse de déprotéger
Erreur d'exécution 1004
Sub Deprotege()
Dim f as Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Unprotect "toto"
Next
End SubAlpha"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message
de news: 3FC78956.7E6D3ECC@Suppgaboly.com...
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour,
Je désire avoir la proc qui protège les feuilles de mon classeur,
for each sheetsetc...
Désolé
Merci
Alpha
Il faut remplacer "toto" par ton mot de passe :-))
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
;-))
Désolé, c'est une erreur de ma part, cela fonctionne très bien Alpha
"Alpha" a écrit dans le message de news:
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message
de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
;-))
Désolé, c'est une erreur de ma part, cela fonctionne très bien
Alpha
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
O2THV2dtDHA.2224@TK2MSFTNGP09.phx.gbl...
Désolé Michel,
chez moi ta proc refuse de déprotéger
Erreur d'exécution 1004
Sub Deprotege()
Dim f as Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Unprotect "toto"
Next
End SubAlpha"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le
message
de news: 3FC78956.7E6D3ECC@Suppgaboly.com...
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour,
Je désire avoir la proc qui protège les feuilles de mon classeur,
for each sheetsetc...
Désolé
Merci
Alpha
Désolé, c'est une erreur de ma part, cela fonctionne très bien Alpha
"Alpha" a écrit dans le message de news:
Désolé Michel, chez moi ta proc refuse de déprotéger Erreur d'exécution 1004 Sub Deprotege() Dim f as Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End SubAlpha"Michel Gaboly" a écrit dans le message
de news:
Rebonjour,
Tu peux faire un Copier/Coller à partir de cette page :
http://www.gaboly.com/VBA/Protege.html
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Misange
Bonjour tu trouveras en complément toute une page sur les protections sur excelabo
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Alpha wrote:
Merci beaucoup Alpha
"garnote" a écrit dans le message de news: XLLxb.69880$
Salut Alpha,
Tu purrais essayer :
Sub FullProtection() For i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Protect Password:="secret" Next i End Sub
Serge
"Alpha" a écrit dans le message de news:
Bonjour, Je désire avoir la proc qui protège les feuilles de mon classeur, for each sheetsetc... Désolé Merci Alpha
Bonjour
tu trouveras en complément toute une page sur les protections sur excelabo
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Alpha wrote:
Merci beaucoup
Alpha
"garnote" <rien@absent.net> a écrit dans le message de news:
XLLxb.69880$Ng3.2103@charlie.risq.qc.ca...
Salut Alpha,
Tu purrais essayer :
Sub FullProtection()
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Protect Password:="secret"
Next i
End Sub
Serge
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
uk6AxSdtDHA.1744@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je désire avoir la proc qui protège les feuilles de mon classeur,
for each sheetsetc...
Désolé
Merci
Alpha
