Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Seb,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Activate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = False .CommandBars(3).Controls(18).Enabled = False .CommandBars(3).Controls(19).Enabled = False End With End Sub
Private Sub Workbook_Deactivate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = True .CommandBars(3).Controls(18).Enabled = True .CommandBars(3).Controls(19).Enabled = True End With End Sub
ChrisV
"Seb" a écrit dans le message de news: 926201c3ea33$f44e4df0$ Bonjour,
comme indiqué dans l'objet, je voudrais savoir si il est possible d'interdire l'utilisation de la fonction trier. Merci
Bonjour Seb,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Activate()
With Application
.CommandBars(1).Controls(7) _
.Controls(1).Enabled = False
.CommandBars(3).Controls(18).Enabled = False
.CommandBars(3).Controls(19).Enabled = False
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.CommandBars(1).Controls(7) _
.Controls(1).Enabled = True
.CommandBars(3).Controls(18).Enabled = True
.CommandBars(3).Controls(19).Enabled = True
End With
End Sub
ChrisV
"Seb" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
926201c3ea33$f44e4df0$a501280a@phx.gbl...
Bonjour,
comme indiqué dans l'objet, je voudrais savoir si il est
possible d'interdire l'utilisation de la fonction trier.
Merci
Private Sub Workbook_Activate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = False .CommandBars(3).Controls(18).Enabled = False .CommandBars(3).Controls(19).Enabled = False End With End Sub
Private Sub Workbook_Deactivate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = True .CommandBars(3).Controls(18).Enabled = True .CommandBars(3).Controls(19).Enabled = True End With End Sub
ChrisV
"Seb" a écrit dans le message de news: 926201c3ea33$f44e4df0$ Bonjour,
comme indiqué dans l'objet, je voudrais savoir si il est possible d'interdire l'utilisation de la fonction trier. Merci
ben7249
bonjour
en protégeant la feuille ou le classeur la fonction sera interdite.
cela répond t il au problème ?
Benoit
"Seb" wrote in message news:<926201c3ea33$f44e4df0$...
Bonjour,
comme indiqu dans l'objet, je voudrais savoir si il est possible d'interdire l'utilisation de la fonction trier. Merci
bonjour
en protégeant la feuille ou le classeur la fonction sera interdite.
cela répond t il au problème ?
Benoit
"Seb" <anonymous@discussions.microsoft.com> wrote in message news:<926201c3ea33$f44e4df0$a501280a@phx.gbl>...
Bonjour,
comme indiqu dans l'objet, je voudrais savoir si il est
possible d'interdire l'utilisation de la fonction trier.
Merci
en protégeant la feuille ou le classeur la fonction sera interdite.
cela répond t il au problème ?
Benoit
"Seb" wrote in message news:<926201c3ea33$f44e4df0$...
Bonjour,
comme indiqu dans l'objet, je voudrais savoir si il est
possible d'interdire l'utilisation de la fonction trier. Merci .
Seb
Merci pour cette solution, c'est parfait.
-----Message d'origine----- Bonjour Seb,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Activate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = False .CommandBars(3).Controls(18).Enabled = False .CommandBars(3).Controls(19).Enabled = False End With End Sub
Private Sub Workbook_Deactivate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = True .CommandBars(3).Controls(18).Enabled = True .CommandBars(3).Controls(19).Enabled = True End With End Sub
ChrisV
"Seb" a écrit dans le message de news:
926201c3ea33$f44e4df0$ Bonjour,
comme indiqué dans l'objet, je voudrais savoir si il est possible d'interdire l'utilisation de la fonction trier. Merci
.
Merci pour cette solution, c'est parfait.
-----Message d'origine-----
Bonjour Seb,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_Activate()
With Application
.CommandBars(1).Controls(7) _
.Controls(1).Enabled = False
.CommandBars(3).Controls(18).Enabled = False
.CommandBars(3).Controls(19).Enabled = False
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.CommandBars(1).Controls(7) _
.Controls(1).Enabled = True
.CommandBars(3).Controls(18).Enabled = True
.CommandBars(3).Controls(19).Enabled = True
End With
End Sub
ChrisV
"Seb" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
Private Sub Workbook_Activate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = False .CommandBars(3).Controls(18).Enabled = False .CommandBars(3).Controls(19).Enabled = False End With End Sub
Private Sub Workbook_Deactivate() With Application .CommandBars(1).Controls(7) _ .Controls(1).Enabled = True .CommandBars(3).Controls(18).Enabled = True .CommandBars(3).Controls(19).Enabled = True End With End Sub
ChrisV
"Seb" a écrit dans le message de news:
926201c3ea33$f44e4df0$ Bonjour,
comme indiqué dans l'objet, je voudrais savoir si il est possible d'interdire l'utilisation de la fonction trier. Merci