VBA Excel - Comment verrouiller des cellules spécifiques mais permettre le filtrage et le tri

J'utilise le code suivant pour verrouiller le contenu de certaines cellules

Sub LockCell(ws As Worksheet, strCellRng As String)
  With ws
   .Unprotect
   .Cells.Locked = False
   .Range(strCellRng).Locked = True
   .Protect Contents:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, DrawingObjects:=True
  End With
End Sub

Il fonctionne bien verrouiller le contenu de ces colonnes spécifiques. Le problème est que le travail sur la feuille de calcul elle-même, les utilisateurs ne peuvent pas trier ni filtre ni d'appliquer des bordures aux cellules, puisque celles-excel éléments de menu sont désactivées. Je pensais que le AllowSorting:=TrueAllowFiltering:=True et DrawingObjects:=True permettrait que de la même manière le AllowFormattingColumns:=True et AllowFormattingRows:=True permis de redimensionnement.

Je vous remercie d'avance pour votre aide.

Ce qui concerne,
Ronald

source d'informationauteur Ronald Valdivia