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"
regarde le code ci-dessous si il peut t'aider, enfin si j'ai bien compris, pas sûr :
Code:
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "NomFeuille" Then
With ws
.EnableAutoFilter = True
.Protect "toto", userinterfaceonly:=True, AllowSorting:=False
End With
End If
Next ws
End Sub
merci pour le code! Ca fonctionne, même si parfois le recalcul ne s'effectue pas entièrement (dans ce cas là, je change d'onglet, et je reviens, et tout rentre dans l'ordre!)
Merci pour l'aide!
Cordialement,
Nicolas