nickos2406
XLDnaute Junior
Bonjour,
Je reviens vers vous pour une petite question concernant un fichier excel dans lequel j'ai inséré le code suivant en ThisWorkbook:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = True
Sh.EnableAutoFilter = True
'If Sh.AutoFilterMode Then
' Sh.AllowSorting = True
' Sh.AllowFiltering = True
' Sh.Protect UserInterfaceOnly:=True
'Else
Sh.Protect UserInterfaceOnly:=True
'End If
End Sub
L'ojectif est de permettre d'accéder sur certaines feuilles du classeur au filtre, mais je voudrais désactiver le mode tri...
Bien sûr, je n'y arrive pas.
J'ai indiqué l'ensemble de la macro, et désactiver (') les lignes qui posent problème... Il n'aime pas le "AllowSorting"
Vous auriez une solution?
Merci de votre aide...
Nicolas
Je reviens vers vous pour une petite question concernant un fichier excel dans lequel j'ai inséré le code suivant en ThisWorkbook:
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = True
Sh.EnableAutoFilter = True
'If Sh.AutoFilterMode Then
' Sh.AllowSorting = True
' Sh.AllowFiltering = True
' Sh.Protect UserInterfaceOnly:=True
'Else
Sh.Protect UserInterfaceOnly:=True
'End If
End Sub
L'ojectif est de permettre d'accéder sur certaines feuilles du classeur au filtre, mais je voudrais désactiver le mode tri...
Bien sûr, je n'y arrive pas.
J'ai indiqué l'ensemble de la macro, et désactiver (') les lignes qui posent problème... Il n'aime pas le "AllowSorting"
Vous auriez une solution?
Merci de votre aide...
Nicolas