Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Page 804

Page 804

3 réponses
Avatar
garnote
Bonsoir, bonsoir,

Vu ça à la page 804 du volume de John Walkenbach
«Excel 2000 et VBA, le guide du développeur»

Peut-on invalider les menus de raccourcis qui apparaissent
quand l'utilisateur clique sur le bouton droit de la souris ?
Oui, l'instruction suivante fera le travail :
CommandBars("Tollbar List").Enabled = False

Mais elle ne fait rien pantoute, cette instruction-là !

Qu'est-ce à dire ?

Serge
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
ChrisV
Bonjour Serge,

Les proc suivantes placées dans la feuille de code de l'onglet concerné
désactivent bien le clic-droit, mais uniquement concernant les bo de la
feuille de calcul.

Private Sub Worksheet_Activate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
End Sub

Si tu désires inhiber tous les clics-droits...

Toujours dans la feuille de code (associées aux évènements
Activate/Deactivate) ou dans une proc "à lancer"...

Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub

Sub reinitCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar
End Sub


ChrisV



"garnote" a écrit dans le message de
news:Ff2yc.57$%
Bonsoir, bonsoir,

Vu ça à la page 804 du volume de John Walkenbach
«Excel 2000 et VBA, le guide du développeur»

Peut-on invalider les menus de raccourcis qui apparaissent
quand l'utilisateur clique sur le bouton droit de la souris ?
Oui, l'instruction suivante fera le travail :
CommandBars("Tollbar List").Enabled = False

Mais elle ne fait rien pantoute, cette instruction-là !

Qu'est-ce à dire ?

Serge






Avatar
garnote
Super ! Grand chef toi être :-)))

Et ça répond à la question d'Eliot Naiss
(09/06/04 12:09)

Serge


"ChrisV" a écrit dans le message de news:
u6L$
Bonjour Serge,

Les proc suivantes placées dans la feuille de code de l'onglet concerné
désactivent bien le clic-droit, mais uniquement concernant les bo de la
feuille de calcul.

Private Sub Worksheet_Activate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
End Sub

Si tu désires inhiber tous les clics-droits...

Toujours dans la feuille de code (associées aux évènements
Activate/Deactivate) ou dans une proc "à lancer"...

Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub

Sub reinitCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar
End Sub


ChrisV



"garnote" a écrit dans le message de
news:Ff2yc.57$%
Bonsoir, bonsoir,

Vu ça à la page 804 du volume de John Walkenbach
«Excel 2000 et VBA, le guide du développeur»

Peut-on invalider les menus de raccourcis qui apparaissent
quand l'utilisateur clique sur le bouton droit de la souris ?
Oui, l'instruction suivante fera le travail :
CommandBars("Tollbar List").Enabled = False

Mais elle ne fait rien pantoute, cette instruction-là !

Qu'est-ce à dire ?

Serge










Avatar
ChrisV
Et ça répond à la question d'Eliot Naiss


Pas sûr Serge, la question initiale d'Eliot ne me semblait pas très
claire...


ChrisV


"garnote" a écrit dans le message de
news:mM2yc.68$%
Super ! Grand chef toi être :-)))

Et ça répond à la question d'Eliot Naiss
(09/06/04 12:09)

Serge


"ChrisV" a écrit dans le message de news:
u6L$
Bonjour Serge,

Les proc suivantes placées dans la feuille de code de l'onglet concerné
désactivent bien le clic-droit, mais uniquement concernant les bo de la
feuille de calcul.

Private Sub Worksheet_Activate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
End Sub

Si tu désires inhiber tous les clics-droits...

Toujours dans la feuille de code (associées aux évènements
Activate/Deactivate) ou dans une proc "à lancer"...

Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub

Sub reinitCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar
End Sub


ChrisV



"garnote" a écrit dans le message de
news:Ff2yc.57$%
Bonsoir, bonsoir,

Vu ça à la page 804 du volume de John Walkenbach
«Excel 2000 et VBA, le guide du développeur»

Peut-on invalider les menus de raccourcis qui apparaissent
quand l'utilisateur clique sur le bouton droit de la souris ?
Oui, l'instruction suivante fera le travail :
CommandBars("Tollbar List").Enabled = False

Mais elle ne fait rien pantoute, cette instruction-là !

Qu'est-ce à dire ?

Serge