Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Page 804

Le
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
Lire les 3 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #1578999
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" 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






Répondre en citant
garnote
Le #1578997
Super ! Grand chef toi être :-)))

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

Serge


"ChrisV" 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" 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










Répondre en citant
ChrisV
Le #1578456
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" news:mM2yc.68$%
Super ! Grand chef toi être :-)))

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

Serge


"ChrisV" 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" 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














Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme