Protections Color pour les Onglets

Bonjour,

Voici un petit problème : Sur protection Onglets color.

Dans un classeur avec ts les mois en onglets (feuilles), j'ai créé 2 macros avec la commande du menu me permettant de protéger ou de déprotéger les feuilles.

J'ai pour avoir une vue de contrôle changé la couleur de chaque onglet selon qu'il soit protégé(vert) où déprotégé (orange).

Donc tout va bien , sauf.. dans le cas où on n'a déprotégé une feuille pour vérification, sur l'ensemble des onglets la couleur "protection" reste la même. Hors pour des raisons de sécurité, nous avons besoin d'être certain que toutes les feuilles sont bien protégées avant l'envoi du classeur au destinataire final.

Comme faire ?

Voici un fichier exemple.

Merci de votre aide.

DARYL.B

Bonjour,

dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    PROTECTION
End Sub

regarde si ça te va.

eric

PS : j'avais oublié de revoir ta sub protection :

Sub PROTECTION()
    ' PROTECTION Macro
    ' Touche de raccourci du clavier: Ctrl+Shift+P
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If Not sh.ProtectContents Or Not sh.ProtectDrawingObjects Then
            sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            With sh.Tab
                .ThemeColor = xlThemeColorAccent6
                .TintAndShade = 0.599993896298105
            End With
        End If
    Next sh
    Sheets("JANVIER").Select
    Range("J16").Select
End Sub

déprotection à faire sur le même modèle

Bonsoir,

Merci pour la réponse. Je regarde cela demain tranquillement au bureau.

Et je reviens pour te dire le résultat, mais cela à l'air d'être bien.

Bonne soirée.

Daryl.B

Bonsoir,

Je viens de jeter un œil, hum ! pas sur d'avoir tout compris.

Je vais m'y pencher demain, mais je ne suis qu'au début de la connaissance en VBA.

Mais j'ai compris la logique.

Merci encore..

DARYL.B

dans le module ThisWorkbook est impératif pour Workbook_BeforeSave()

Bonjour,

Merci pour la solution, cela fonctionne parfaitement en simplifiant la macro.

J'ai visité quelques sites et celui-ci est vraiment le plus réactif, je l'apprécie.

Et les archives des demandes passées m'ont bien aidées.

Bonne journée.

DARYL.B

"Malgré mon grand âge, j'apprends toujours..."