Question VBA - sur classeur protégé

SGB -
danielc0 Messages postés 1856 Date d'inscription Statut Membre Dernière intervention - 11 déc. 2024 à 19:30

Bonjour,

J'ai effectué une macro VBA pour permettre de grouper/dissocier sur une feuille protégée, mais par la même occasion les coches sur les différentes possibilités de protection de feuille (format de cellule, de colonnes etc.) se réinitialise à chaque fermeture du classeur.

j'aimerais conserver ma macro mais l'améliorer pour que l'utilisateur puisse modifier le formats des cellules non protégées de la feuille ainsi qu'ajouter des commentaires.

merci par avance pour votre aide

Bien cordialement

Windows / Firefox 128.0

A voir également:

Menu de restaurant l'héritage
Imprimer un classeur excel sur mac - Guide
Excel compter cellule couleur sans vba - Guide
Classeur numérique gratuit - Télécharger - Bureautique
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Étiquette classeur a imprimer gratuit excel - Forum Excel

2 réponses

Réponse 1 / 2

SGB

Voici ma macro :

Private Sub Workbook_Open()
With Worksheets("JANVIER 2025")

    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("FEVRIER 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("MARS 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("AVRIL 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("MAI 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("JUIN 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("JUILLET 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("AOUT 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("SEPTEMBRE 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("OCTOBRE 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("NOVEMBRE 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

   With Worksheets("DECEMBRE 2025")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True
End With

End Sub

Réponse 2 / 2

danielc0 Messages postés 1856 Date d'inscription Statut Membre Dernière intervention 229

Bonjour,

Essaie :

.Protect Contents:=True, Password:="SGB", UserInterfaceOnly:=True, Scenarios:= _
        True, AllowFormattingCells:=True

Daniel

Discussions similaires

fichier excel pour étiquettes

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

etiquette pour dos classeur

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires