interdire le tri sans protéger

Bonsoir Le nul,

Copie ce qui suit dans le ThisWorkbook de ton classeur


La propriété "codename" d'une feuille représente dans la fenêtre vbe la première section du "Nom de la feuille"

Feuil1(Feuil1)

Feuil1 = CodeName
(Feuil1) = Nom de l'onglet de la feuille.


'-------------------------------------
Private Sub Workbook_Activate()

If ActiveSheet.CodeName = "Feuil1" Then
With Application.CommandBars("Standard")
.Controls(19).Enabled = False
.Controls(20).Enabled = False
End With
With Application.CommandBars(1)
.Controls(7).Controls(1).Enabled = False
End With
End If

End Sub
'-------------------------------------
Private Sub Workbook_Deactivate()

With Application.CommandBars("Standard")
.Controls(19).Enabled = True
.Controls(20).Enabled = True
End With
With Application.CommandBars(1)
.Controls(7).Controls(1).Enabled = True
End With

End Sub
'-------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then
With Application.CommandBars("Standard")
.Controls(19).Enabled = False
.Controls(20).Enabled = False
End With
With Application.CommandBars(1)
.Controls(7).Controls(1).Enabled = False
End With

Else
With Application.CommandBars("Standard")
.Controls(19).Enabled = True
.Controls(20).Enabled = True
End With
With Application.CommandBars(1)
.Controls(7).Controls(1).Enabled = True
End With
End If
End Sub
'-------------------------------------


Salutations!



"le nul" <not@home.net> a écrit dans le message de news: 425c2b8d$0$1149$5402220f@news.sunrise.ch...
Bonjour,

Je cherche à empêcher le tri de données dans une feuille excel (en
désactivant la fonction par ex.) sans devoir la protéger par mot de passe,
car si je le fais, je n'arrive plus mettre à jour les données externes.
Est-ce possible et comment ?

Merci de m'expliquer simplement, je ne suis pas un expert...