Bonjour à tous et toutes,
J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune
des feuille est protégée par le même mot de passe (j'ai le mot de passe, la
question n'est pas là), malheureusement lors de modifications, la
manipulation de déprotection et reprotection prend bcp de temps.
Même si je selectionne toutes mes feuilles et que je veux déproteger, je
n'ai pas le droit, car "Oter la protection" est grisé.
Existe-t-il une solution ?
Par avance, merci pour votre support.
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
Lilou_masquee
Private Sub deverouillage() Dim i As Integer Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par 12 si tu est sûre que ca ne changera pas
Sheets(i).Activate ActiveSheet.Unprotect Password:="tonmotdepasse" Next End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu pourra y accéder depuis un bouton ou la liste des macros.
Bon courage Lilou_masquee
Bonjour à tous et toutes, J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune des feuille est protégée par le même mot de passe (j'ai le mot de passe, la question n'est pas là), malheureusement lors de modifications, la manipulation de déprotection et reprotection prend bcp de temps. Même si je selectionne toutes mes feuilles et que je veux déproteger, je n'ai pas le droit, car "Oter la protection" est grisé. Existe-t-il une solution ? Par avance, merci pour votre support.
Private Sub deverouillage()
Dim i As Integer
Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par
12 si tu est sûre que ca ne changera pas
Sheets(i).Activate
ActiveSheet.Unprotect Password:="tonmotdepasse"
Next
End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement
c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour
l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu
pourra y accéder depuis un bouton ou la liste des macros.
Bon courage
Lilou_masquee
Bonjour à tous et toutes,
J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune
des feuille est protégée par le même mot de passe (j'ai le mot de passe, la
question n'est pas là), malheureusement lors de modifications, la
manipulation de déprotection et reprotection prend bcp de temps.
Même si je selectionne toutes mes feuilles et que je veux déproteger, je
n'ai pas le droit, car "Oter la protection" est grisé.
Existe-t-il une solution ?
Par avance, merci pour votre support.
Private Sub deverouillage() Dim i As Integer Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par 12 si tu est sûre que ca ne changera pas
Sheets(i).Activate ActiveSheet.Unprotect Password:="tonmotdepasse" Next End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu pourra y accéder depuis un bouton ou la liste des macros.
Bon courage Lilou_masquee
Bonjour à tous et toutes, J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune des feuille est protégée par le même mot de passe (j'ai le mot de passe, la question n'est pas là), malheureusement lors de modifications, la manipulation de déprotection et reprotection prend bcp de temps. Même si je selectionne toutes mes feuilles et que je veux déproteger, je n'ai pas le droit, car "Oter la protection" est grisé. Existe-t-il une solution ? Par avance, merci pour votre support.
Stardust
Merci Lilou Ca marche nickel !!!! Bise
Private Sub deverouillage() Dim i As Integer Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par 12 si tu est sûre que ca ne changera pas
Sheets(i).Activate ActiveSheet.Unprotect Password:="tonmotdepasse" Next End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu pourra y accéder depuis un bouton ou la liste des macros.
Bon courage Lilou_masquee
Bonjour à tous et toutes, J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune des feuille est protégée par le même mot de passe (j'ai le mot de passe, la question n'est pas là), malheureusement lors de modifications, la manipulation de déprotection et reprotection prend bcp de temps. Même si je selectionne toutes mes feuilles et que je veux déproteger, je n'ai pas le droit, car "Oter la protection" est grisé. Existe-t-il une solution ? Par avance, merci pour votre support.
Merci Lilou
Ca marche nickel !!!!
Bise
Private Sub deverouillage()
Dim i As Integer
Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par
12 si tu est sûre que ca ne changera pas
Sheets(i).Activate
ActiveSheet.Unprotect Password:="tonmotdepasse"
Next
End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement
c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour
l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu
pourra y accéder depuis un bouton ou la liste des macros.
Bon courage
Lilou_masquee
Bonjour à tous et toutes,
J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune
des feuille est protégée par le même mot de passe (j'ai le mot de passe, la
question n'est pas là), malheureusement lors de modifications, la
manipulation de déprotection et reprotection prend bcp de temps.
Même si je selectionne toutes mes feuilles et que je veux déproteger, je
n'ai pas le droit, car "Oter la protection" est grisé.
Existe-t-il une solution ?
Par avance, merci pour votre support.
Private Sub deverouillage() Dim i As Integer Dim f As Integer
f = ActiveWorkbook.Sheets.Count 'Pour un nombre de feuilles variable
For i = 1 To f 'Tu peux enlever la ligne précédente et remplacer f par 12 si tu est sûre que ca ne changera pas
Sheets(i).Activate ActiveSheet.Unprotect Password:="tonmotdepasse" Next End Sub
Tu colle ca dans le code de ton classeur (This workbook) et normalement c'est bon. Si tu laisse le "private" devant sub, tu devra aller dans vba pour l'activer mais personne d'autre que toi n'y aura accès. Si tu l'enlève tu pourra y accéder depuis un bouton ou la liste des macros.
Bon courage Lilou_masquee
Bonjour à tous et toutes, J'ai plusieurs classeurs ou se trouve 12 feuilles dans chacun d'eux, chacune des feuille est protégée par le même mot de passe (j'ai le mot de passe, la question n'est pas là), malheureusement lors de modifications, la manipulation de déprotection et reprotection prend bcp de temps. Même si je selectionne toutes mes feuilles et que je veux déproteger, je n'ai pas le droit, car "Oter la protection" est grisé. Existe-t-il une solution ? Par avance, merci pour votre support.
