Sheets("Février").Unprotect que mettre pour que toutes les feuilles
soit deproteger car mettre all à la place de fevrier par exemple cela
ne marche pas
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Sub zzzz() For i = 1 To Sheets.Count Sheets(i).Unprotect Next End Sub
AV
Claude Trouet
Bonsoir, Ayant été confronté récemment à ce problème, j'ose apporter mon grain de sel sur la solution proposée. Effectivement, elle fonctionne pour toutes les feuilles protégées ( celles qui ne le sont pas sont ignorées ) et à condition que le mot de passe soit le même et égal à vide.
Pour toute feuille protégée, Excel affiche une boite d'invite dans laquelle l'utilisateur doit renseigner le mot de passe. Si ce dernier est le même pour toutes feuilles, 'améliorer' la procédure en remplaçant Sheets(i).Unprotect par Sheets(i).Unprotect Password:="mettre le mot de passe qui va bien" S'il est différent , créer un tableau dans la procédure, par exemple :
Sub zzzz() Dim cPswd(4) As String 'cPswd(0) n'est pas utilisé pour être en phase avec le compteur de feuilles cPswd(1) = "Tata" cPswd(2) = "Riri" cPswd(3) = "Fifi" cPswd(4) = "Loulou"
For i = 1 To Sheets.Count Sheets(i).Unprotect Password:=cPswd(i) Next End Sub
PS : j'ai découvert ce forum au cours de cette semaine et je trouve cela génial. C'est, quand on le peut, un bonheur que de proposer sa modeste contribution CT
"AV" a écrit dans le message de news:
Sub zzzz() For i = 1 To Sheets.Count Sheets(i).Unprotect Next End Sub
AV
Bonsoir,
Ayant été confronté récemment à ce problème, j'ose apporter mon grain de sel
sur la solution proposée.
Effectivement, elle fonctionne pour toutes les feuilles protégées ( celles
qui ne le sont pas sont ignorées )
et à condition que le mot de passe soit le même et égal à vide.
Pour toute feuille protégée, Excel affiche une boite d'invite dans laquelle
l'utilisateur doit renseigner le mot de passe.
Si ce dernier est le même pour toutes feuilles, 'améliorer' la procédure en
remplaçant
Sheets(i).Unprotect par Sheets(i).Unprotect Password:="mettre le
mot de passe qui va bien"
S'il est différent , créer un tableau dans la procédure, par exemple :
Sub zzzz()
Dim cPswd(4) As String
'cPswd(0) n'est pas utilisé pour être en phase avec le compteur de
feuilles
cPswd(1) = "Tata"
cPswd(2) = "Riri"
cPswd(3) = "Fifi"
cPswd(4) = "Loulou"
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:=cPswd(i)
Next
End Sub
PS : j'ai découvert ce forum au cours de cette semaine et je trouve cela
génial.
C'est, quand on le peut, un bonheur que de proposer sa modeste contribution
CT
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
u6Wl0iIqEHA.3464@tk2msftngp13.phx.gbl...
Sub zzzz()
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next
End Sub
Bonsoir, Ayant été confronté récemment à ce problème, j'ose apporter mon grain de sel sur la solution proposée. Effectivement, elle fonctionne pour toutes les feuilles protégées ( celles qui ne le sont pas sont ignorées ) et à condition que le mot de passe soit le même et égal à vide.
Pour toute feuille protégée, Excel affiche une boite d'invite dans laquelle l'utilisateur doit renseigner le mot de passe. Si ce dernier est le même pour toutes feuilles, 'améliorer' la procédure en remplaçant Sheets(i).Unprotect par Sheets(i).Unprotect Password:="mettre le mot de passe qui va bien" S'il est différent , créer un tableau dans la procédure, par exemple :
Sub zzzz() Dim cPswd(4) As String 'cPswd(0) n'est pas utilisé pour être en phase avec le compteur de feuilles cPswd(1) = "Tata" cPswd(2) = "Riri" cPswd(3) = "Fifi" cPswd(4) = "Loulou"
For i = 1 To Sheets.Count Sheets(i).Unprotect Password:=cPswd(i) Next End Sub
PS : j'ai découvert ce forum au cours de cette semaine et je trouve cela génial. C'est, quand on le peut, un bonheur que de proposer sa modeste contribution CT
"AV" a écrit dans le message de news:
Sub zzzz() For i = 1 To Sheets.Count Sheets(i).Unprotect Next End Sub
