CarineDere
XLDnaute Nouveau
Hello,
je suis une grande novice de VBA et me retrouve bloquée 🙁
Je souhaite, à la fin de ma macro, protéger ma feuille en autorisant plein de choses dont le filtre automatique sur ma feuille.
Pour autant, impossible de filtrer à la fin de l'exécution de la macro, toutes les autres autorisations fonctionnent (Format de colonne/ligne par exemple).
Voici le bout de code juste avant puis le passage à la protection de la feuille :
' Mise à jour de la date de dernier refresh au niveau du fichier en cours
Range("LAST_UPDATE").Value = Now()
Range("OK_CREATION").Value = Now()
With Worksheets("SIMU")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, Password:="FOREVER", UserInterfaceOnly:=True
End With
Impossible de joindre un fichier. Données confidentielles
je suis une grande novice de VBA et me retrouve bloquée 🙁
Je souhaite, à la fin de ma macro, protéger ma feuille en autorisant plein de choses dont le filtre automatique sur ma feuille.
Pour autant, impossible de filtrer à la fin de l'exécution de la macro, toutes les autres autorisations fonctionnent (Format de colonne/ligne par exemple).
Voici le bout de code juste avant puis le passage à la protection de la feuille :
' Mise à jour de la date de dernier refresh au niveau du fichier en cours
Range("LAST_UPDATE").Value = Now()
Range("OK_CREATION").Value = Now()
With Worksheets("SIMU")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, Password:="FOREVER", UserInterfaceOnly:=True
End With
Impossible de joindre un fichier. Données confidentielles
Dernière édition: