macros et toutes les feuilles protégées

[poipoi]

bonsoir
pour appliquer une macro A à toutes les feuilles de mon classeur
j'ai trouvé sur le web une autre macro B qui est censée déprotéger avant l’exécution de A et reprotéger à la fin.
j'ai remplacé: ActiveSheet par: Sheets("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "décembre").Protect "mdp", True, True, True


mais même en remplaçant Sheet("janvier......... par Sheets(Array("janvier", .........

sauf que rien ne marche.. la macro bloque)
normal je pense !!
pas vous?
merci

 

[kjin]

Re : macros et toutes les feuilles protégées

bonsoir,

tablo = Array("janvier", "février", "mars")
For i = 0 To UBound(tablo)
Sheets(tablo(i)).Protect "Mdp", 1, 1, 1
Next

A+
kjin

 

[poipoi]

Re : macros et toutes les feuilles protégées

bonsoir kjin
et merci déjà
je regarde dès demain matin au bureau ton code..
allez bonne soirée

 

[poipoi]

Re : macros et toutes les feuilles protégées

Bonjour
eh bien ça bloque encore "un peu" mais cette fois moins loin dans l'exécution
voici un extrait de ce que j'ai en code:

Sub MacroavecfeuilleProtect()

tablo = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "décembre")
For i = 0 To UBound(tablo)
Sheets(tablo(i)).Unprotect "mdp"
Next
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "décembre")).Select

Range("C6:AG145").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 101

( ainsi de suite...!!!)

ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Selection.ClearContents
Selection.ClearComments

‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
tablo = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", _
"septembre", "octobre", "novembre", "décembre")
For i = 0 To UBound(tablo)
Sheets(tablo(i)).Protect "mdp", 1, 1, 1
Next

End Sub

Voilà voilà.. je suis un peu coincé mais pas désespéré...
bonne journée à tous

 

[ERIC S]

Re : macros et toutes les feuilles protégées

Bonjour

pour autoriser les macros sur feuille protégée
dans Thisworkbook

Private Sub Workbook_Open()
Sheets("Feuil1").Unprotect Password:="toto"
Sheets("Feuil1").Protect Password:="toto", userinterfaceonly:=True
End Sub

le mot de passe est optionnel, mois perso j'évite d'en mettre, cela m'évite de l'oublier 🙄

 

[poipoi]

Re : macros et toutes les feuilles protégées

bonjour Eric S
eh ben punaise je bloque drôlement sur cette petite macro:!!
j'ai fait ce que tu m'avais dit: dans thisworkbook:

Private Sub Workbook_Open()
Sheets("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre").Unprotect Password:="mdp"
Sheets("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre").Protect Password:="mdp", userinterfaceonly:=True
End Sub

mais voilà ça coince à la ligne: .Pattern = xlNone

ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 101
---------- ainsi de suite---------------
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0

au cas ou voici ma macro complète:
Sub RAZ()
'
' RAZ Macro
'

'
Sheets(Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre")).Select

Range("C6:AG145").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 101
---------- ainsi de suite---------------
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Selection.ClearContents
Selection.ClearComments
Sheets("RECAP").Select
ActiveWindow.SmallScroll Down:=-6
Range("D6").Select
End Sub


une idée??

 

[kjin]

Re : macros et toutes les feuilles protégées

Bonjour,

Sub MacroavecfeuilleProtect()
For i = 1 To 12
    With Sheets(MonthName(i)) 'boucle sur les mois 1 à 12
        .Unprotect 'mdp éventuel
        '....
        With Range("C6:AG145").Interior
            .ColorIndex = 12
            '...
        End With
        '...
        .Protect 'mdp éventuel
    End With
Next
End Sub

Reviens si tu bloques
A+
kjin

 

[poipoi]

Re : macros et toutes les feuilles protégées

bonjour kjin
... et Merci

ma macro bloque toujours "au même endroit à la ligne:":.ColorIndex = 12"
toutes mes excuses je suis vraiment nul

 

[kjin]

Re : macros et toutes les feuilles protégées

Re,
Oui mon lapin mais on ne vas pas faire une pelote de ce fil d'autant que primo, je ne sais pas ce que tu veux faire et deusio, je ne sais pas ce que tu veux faire
Alors, un bout de fichier et une petite note d'explicatio, et on devrait aller boire l'apéro...même si c'est un peu tôt, mais ça rime
A+
kjin

 

[poipoi]

Re : macros et toutes les feuilles protégées

first i'm not your rabbit!!!
deusio: ok pour l'apéro ou l'aquavit (ça c'est pour la rime)
et troizio: tiens toi prêt mon canard, j'envoie du lourd

 

[kjin]

Re : macros et toutes les feuilles protégées

Re,
Voilà qui sait parler !
Euh, sauf que pour le coup le RAZ il est total ! impossible d'ouvrir le fichier
Désactives toutes les macros dans thisworkbook en cochant les lignes
A+
kjin

 

[poipoi]

Re : macros et toutes les feuilles protégées

re,
je ne comprends pas pourquoi, j'ai pu ouvrir le fichier sur un autre poste sans difficulté aucune...
bon maintenant après avoir "Désactives toutes les macros dans thisworkbook en cochant les lignes" ça plante à la ligne: .Unprotect "ppatoux" 'mdp éventuel

Sub RAZ()
'
' RAZ Macro
'
For i = 1 To 12
With Sheets(MonthName(i)) 'boucle sur les mois 1 à 12
.Unprotect "ppatoux" 'mdp éventuel
'
mais j'ai confiance et il me reste encore un peu de temps à vivre donc je saurai être patient!!
au fait.... merci!

 

[kjin]

Re : macros et toutes les feuilles protégées

Bonsoir,
7 minutes pour ouvrir le fichier, macros désactivées et recalcul manuel !

Sub RAZ()
For i = 1 To 12
    With Sheets(MonthName(i)) 'boucle sur les mois 1 à 12
        .Unprotect "ppatoux" 'mdp éventuel
        With .Range("C6:AG145")
            .ClearContents
            .ClearComments
            With .Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End With
        .Protect "ppatoux"
    End With
Next
End Sub

A+
kjin

 

[poipoi]

Re : macros et toutes les feuilles protégées

Bonjour Kjin..
et merci beaucoup d'avoir passé du temps la_dessus, c'est très sympa..
effectivement ce que tu as fais est beaucoup plus light..
par contre je ne comprends pas pourquoi chez moi la macro s’arrête à la 3e ligne:
"With Sheets(MonthName(i)) 'boucle sur les mois 1 à 12"

 

[kjin]

Re : macros et toutes les feuilles protégées

Bonsoir,
Je m'étais basé sur la version indiquée dans ton profil, excel2000, mais manifestement il s'agit d'un fichier excel2007 ou plus, me trompe-je ?
Pour ton pb, parce que moi je n'en ai pas, je ne vois que l'accent manquant sur août dans le nom de ta feuille, ce qui est une bonne raison mais peut-être pas le seule
A+
kjin