Bonjour,
J'ai une Macro "Protéger" (voir ci dessous) qui me permet de protéger toutes les feuilles de n'importe quel fichier en laissant des cellules prédéfinies à l'avance (case vérouillée décochée dans format / cellule / protection) libre de toute saisie, et d'insérer des commentaires également sur les cellules protégées.
A cette macro générique, je souhaiterai également autoriser la fonction Grouper / Dissocier.
J'ai bien lu que mon salut viendrait de "EnableOutlining = True" par contre mes connaissances assez limitées ne me permettent pas de l'écrire correctement dans ma macro générique. (soit la macro bloque, soit l'action ne se réalise pas).
Je ne sais pas s'il faut également mettre du code dans ma macro "Déprotéger"
Si quelqu'un a une idée je suis preneur.
Merci d'avance
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect password:="reportingcg", DrawingObjects:=False
Next i
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect password:="reportingcg"
Next i
End Sub
J'ai une Macro "Protéger" (voir ci dessous) qui me permet de protéger toutes les feuilles de n'importe quel fichier en laissant des cellules prédéfinies à l'avance (case vérouillée décochée dans format / cellule / protection) libre de toute saisie, et d'insérer des commentaires également sur les cellules protégées.
A cette macro générique, je souhaiterai également autoriser la fonction Grouper / Dissocier.
J'ai bien lu que mon salut viendrait de "EnableOutlining = True" par contre mes connaissances assez limitées ne me permettent pas de l'écrire correctement dans ma macro générique. (soit la macro bloque, soit l'action ne se réalise pas).
Je ne sais pas s'il faut également mettre du code dans ma macro "Déprotéger"
Si quelqu'un a une idée je suis preneur.
Merci d'avance
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect password:="reportingcg", DrawingObjects:=False
Next i
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect password:="reportingcg"
Next i
End Sub