Question VBA - sur classeur protégé
danielc0 Messages postés 2058 Date d'inscription Statut Membre Dernière intervention -
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
- Menu de restaurant l'héritage
- Imprimer un classeur excel sur mac - Guide
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Étiquette classeur a imprimer gratuit excel - Forum Excel
- Vba attendre 1 seconde ✓ - Forum VB / VBA
2 réponses
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
