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
Daniel
Bonsoir. VBA, oui (avec une boucle, car c'est quand même feuille par feuille) : For each ws in sheets ws.protect "toto" next ws (de mémoire) Cordialement. Daniel "JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
Bonsoir.
VBA, oui (avec une boucle, car c'est quand même feuille par feuille) :
For each ws in sheets
ws.protect "toto"
next ws
(de mémoire)
Cordialement.
Daniel
"JK" <jackkil@wanadoo.fr> a écrit dans le message de news:
eVxzuagnGHA.1204@TK2MSFTNGP04.phx.gbl...
Bonsoir
Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de
passe et, à l'inverse, oter la protection d'un couop aussi ?
VBA ?
Bonsoir. VBA, oui (avec une boucle, car c'est quand même feuille par feuille) : For each ws in sheets ws.protect "toto" next ws (de mémoire) Cordialement. Daniel "JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
Didier Novarin
Bonsoir Ici avec mot de passe "toto" Cordialement Didier
Sub Protège() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.Protect "toto", True, True, True Next End Sub
Sub déprotège() Dim f As Worksheet For Each f In ActiveWorkbook.Worksheets f.Unprotect "toto" Next End Sub
"JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
Bonsoir
Ici avec mot de passe "toto"
Cordialement
Didier
Sub Protège()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Protect "toto", True, True, True
Next
End Sub
Sub déprotège()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Unprotect "toto"
Next
End Sub
"JK" <jackkil@wanadoo.fr> a écrit dans le message de news:
eVxzuagnGHA.1204@TK2MSFTNGP04.phx.gbl...
Bonsoir
Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de
passe et, à l'inverse, oter la protection d'un couop aussi ?
VBA ?
Bonsoir, avec toto en mdp 'on protège For k = 1 To Sheets.Count Sheets(k).Protect "toto" Next
'on ôte la protection For k = 1 To Sheets.Count Sheets(k).Unprotect "toto" Next
Amicalement Youky
"JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
JK
Bonsoir
Merci à vous tous. Je teste et je vous tiens au courant Jack "Youky" a écrit dans le message de news:
Bonsoir, avec toto en mdp 'on protège For k = 1 To Sheets.Count Sheets(k).Protect "toto" Next
'on ôte la protection For k = 1 To Sheets.Count Sheets(k).Unprotect "toto" Next
Amicalement Youky
"JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
Bonsoir
Merci à vous tous.
Je teste et je vous tiens au courant
Jack
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OK74RvgnGHA.4728@TK2MSFTNGP05.phx.gbl...
Bonsoir,
avec toto en mdp
'on protège
For k = 1 To Sheets.Count
Sheets(k).Protect "toto"
Next
'on ôte la protection
For k = 1 To Sheets.Count
Sheets(k).Unprotect "toto"
Next
Amicalement Youky
"JK" <jackkil@wanadoo.fr> a écrit dans le message de news:
eVxzuagnGHA.1204@TK2MSFTNGP04.phx.gbl...
Bonsoir
Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot
de passe et, à l'inverse, oter la protection d'un couop aussi ?
VBA ?
Merci à vous tous. Je teste et je vous tiens au courant Jack "Youky" a écrit dans le message de news:
Bonsoir, avec toto en mdp 'on protège For k = 1 To Sheets.Count Sheets(k).Protect "toto" Next
'on ôte la protection For k = 1 To Sheets.Count Sheets(k).Unprotect "toto" Next
Amicalement Youky
"JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
JK
Re, Je viens de tester le code de Youki. Cela fonctionne du tonnerre. A + Jack "JK" a écrit dans le message de news: %
Bonsoir
Merci à vous tous. Je teste et je vous tiens au courant Jack "Youky" a écrit dans le message de news:
Bonsoir, avec toto en mdp 'on protège For k = 1 To Sheets.Count Sheets(k).Protect "toto" Next
'on ôte la protection For k = 1 To Sheets.Count Sheets(k).Unprotect "toto" Next
Amicalement Youky
"JK" a écrit dans le message de news:
Bonsoir Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot de passe et, à l'inverse, oter la protection d'un couop aussi ? VBA ?
Merci pour vos réponses Jack
Re,
Je viens de tester le code de Youki.
Cela fonctionne du tonnerre.
A +
Jack
"JK" <jackkil@wanadoo.fr> a écrit dans le message de news:
%23eYeqOtnGHA.4340@TK2MSFTNGP05.phx.gbl...
Bonsoir
Merci à vous tous.
Je teste et je vous tiens au courant
Jack
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OK74RvgnGHA.4728@TK2MSFTNGP05.phx.gbl...
Bonsoir,
avec toto en mdp
'on protège
For k = 1 To Sheets.Count
Sheets(k).Protect "toto"
Next
'on ôte la protection
For k = 1 To Sheets.Count
Sheets(k).Unprotect "toto"
Next
Amicalement Youky
"JK" <jackkil@wanadoo.fr> a écrit dans le message de news:
eVxzuagnGHA.1204@TK2MSFTNGP04.phx.gbl...
Bonsoir
Peut-on protéger d'un coup toutes les feuilles d'un classeur avec 1 mot
de passe et, à l'inverse, oter la protection d'un couop aussi ?
VBA ?