Protection TTe feuiiles dans une macro

Fermé

DAN41HOM Messages postés 23 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 - 8 déc. 2018 à 19:37
DAN41HOM Messages postés 23 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 - 11 déc. 2018 à 05:44

Bonjour le Forum,

Grâce à vous , que je remercie encore, j'ai pu réglé un problème de macro concernant la couleur de certains cadres.

Afin de complète cet exercice, j'aurai de nouveau besoin de vos lumières, je ne suis pas encore calé en Vba.

Reprenant ce dossier, j'aurai besoin que celui-ci Déprotège toutes les feuilles avant le lancement de la macro Color et que celle-ci se termine par une protection de toutes les feuilles sans mot de passe.
J'ai essayé sans succès.

le code

Public macouleur As Long

Sub ColorCadre()
    tabloF = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
    ChoixCouleur.Show
    For f = 0 To 11
        Set plage = Sheets(tabloF(f)).Range("C5:F5,H5:K5,M5:P5,C15:F15,H15:K15,M15:P15,C21:F21,H21:K21,M21:P21")
        plage.Interior.Color = macouleur
    Next f
End Sub

Merci à Vous.
DanVoit

A voir également:

Protection TTe feuiiles dans une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Sentinel protection installer - Télécharger - Antivirus & Antimalwares

3 réponses

Réponse 1 / 3

DAN41HOM Messages postés 23 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 4
8 déc. 2018 à 20:52

Bonsoir,

Après une recherche , j'ai trouvé la solution.
Merci malgré à tous.

Réponse 2 / 3

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
9 déc. 2018 à 10:55

Bonjour

Tant mieux si tu as trouvé.
Ce qui serait bien c'est que tu partages ta solution,d'autres pourraient en avoir besoin.
Cordialement

Réponse 3 / 3

DAN41HOM Messages postés 23 Date d'inscription mardi 4 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 4
11 déc. 2018 à 05:44

Bonjour,

Effectivement : il y a en fait 2 solutions,

La première :

Public macouleur As Long
Sub ColorCadre()
Application.ScreenUpdating = False
tabloF = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
ChoixCouleur.Show
For f = 0 To 11
Sheets(tabloF(f)).Activate
Sheets(tabloF(f)).Unprotect
Set plage = Sheets(tabloF(f)).Range("C5:F5,H5:K5,M5:P5,C15:F15,H15:K15,M15:P15,C21:F21,H21:K21,M21:P21")
plage.Interior.Color = macouleur
Sheets(tabloF(f)).Protect
Next f
Sheets(tabloF(0)).Activate
End Sub

------------------------------------------------------------------------------------------------
La deuxième qui reste très utile car il suffit de la coupler avec une autre Macro "Protection/Déprtotection en l'appelant ,

Donc d'abord la Macro Color (comme indiquer dans ma demande plus haut),
Puis insérer la commande suite :

Sub DeproColorProt()

Call DEPROTECTION 'macro deprotection
Call ColorCadre ' macro couleur cadre
Call PROTECTION ' macro protection
End Sub

C'est celle que je préfère, elle reste simple.
Bonne journée.

Discussions similaires

Rav antivirus

Anti-virus qui s'installe tout seul...

Rav antivirus trouve un virus mais...

Rav antivirus

comment contourner le drm ?

Discussions similaires

Newsletters