Comment désactiver momentanément en début de macro l'affichage du menu
contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas.
et comment par la suite le réactiver.
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 Jacky,
Pas sûr d'avoir bien saisi...
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
' suite de la procédure
With Application .ScreenUpdating = True .CommandBars("Toolbar List").Enabled = True End With For Each cbar In CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = true End If Next cbar
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
Bonjour Jacky,
Pas sûr d'avoir bien saisi...
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
' suite de la procédure
With Application
.ScreenUpdating = True
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = true
End If
Next cbar
ChrisV
"Jacky" <jacky.jaeg_enlevez@wanadoo.fr> a écrit dans le message de news:
umpaH3l7DHA.696@tk2msftngp13.phx.gbl...
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu
contextuel généré par le clique droit de la souris, pour que dans le cas
de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas.
et comment par la suite le réactiver.
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
' suite de la procédure
With Application .ScreenUpdating = True .CommandBars("Toolbar List").Enabled = True End With For Each cbar In CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = true End If Next cbar
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
RaMa
bonjour
Ma façcon de faire
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) na na na na na na
Application.ScreenUpdating = False Application.SendKeys ("{ESCAPE}") Application.ScreenUpdating = True End Sub
RaMa "Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
bonjour
Ma façcon de faire
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean)
na
na
na
na
na
na
Application.ScreenUpdating = False
Application.SendKeys ("{ESCAPE}")
Application.ScreenUpdating = True
End Sub
RaMa
"Jacky" <jacky.jaeg_enlevez@wanadoo.fr> a écrit dans le message de
news:umpaH3l7DHA.696@tk2msftngp13.phx.gbl...
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu
contextuel généré par le clique droit de la souris, pour que dans le cas
de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas.
et comment par la suite le réactiver.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) na na na na na na
Application.ScreenUpdating = False Application.SendKeys ("{ESCAPE}") Application.ScreenUpdating = True End Sub
RaMa "Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
popi
Salut Jacky, en complément tu peux créer une variable publique, lui affecter la valeur false en début de macro et dans l'évènement clic droit tester cette variable
Dans un module standard : Public autorizai
Sub ta_macro() autorizai = False ...... ..... ..... ..... autorizai = True End Sub
Et dans le module de feuille : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If autorizai = False Then Cancel = True End Sub
@+ popi
Salut Jacky,
en complément tu peux créer une variable publique, lui affecter la valeur
false en début de macro et dans l'évènement clic droit tester cette variable
Dans un module standard :
Public autorizai
Sub ta_macro()
autorizai = False
......
.....
.....
.....
autorizai = True
End Sub
Et dans le module de feuille :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If autorizai = False Then Cancel = True
End Sub
Salut Jacky, en complément tu peux créer une variable publique, lui affecter la valeur false en début de macro et dans l'évènement clic droit tester cette variable
Dans un module standard : Public autorizai
Sub ta_macro() autorizai = False ...... ..... ..... ..... autorizai = True End Sub
Et dans le module de feuille : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If autorizai = False Then Cancel = True End Sub
@+ popi
Jacky
Merci beaucoup Chris
Pas sûr d'avoir bien saisi... Si...si
Ce sont les codes que je cherchais. Placer au bon endroit, ils fonctionnent à merveille. Amicalement JJ
"ChrisV" a écrit dans le message de news:%
Bonjour Jacky,
Pas sûr d'avoir bien saisi...
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
' suite de la procédure
With Application .ScreenUpdating = True .CommandBars("Toolbar List").Enabled = True End With For Each cbar In CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = true End If Next cbar
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
Merci beaucoup Chris
Pas sûr d'avoir bien saisi...
Si...si
Ce sont les codes que je cherchais.
Placer au bon endroit, ils fonctionnent à merveille.
Amicalement
JJ
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:%23alMbJm7DHA.2300@TK2MSFTNGP10.phx.gbl...
Bonjour Jacky,
Pas sûr d'avoir bien saisi...
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
' suite de la procédure
With Application
.ScreenUpdating = True
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = true
End If
Next cbar
ChrisV
"Jacky" <jacky.jaeg_enlevez@wanadoo.fr> a écrit dans le message de news:
umpaH3l7DHA.696@tk2msftngp13.phx.gbl...
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu
contextuel généré par le clique droit de la souris, pour que dans le cas
de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range,
Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas.
et comment par la suite le réactiver.
Ce sont les codes que je cherchais. Placer au bon endroit, ils fonctionnent à merveille. Amicalement JJ
"ChrisV" a écrit dans le message de news:%
Bonjour Jacky,
Pas sûr d'avoir bien saisi...
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
' suite de la procédure
With Application .ScreenUpdating = True .CommandBars("Toolbar List").Enabled = True End With For Each cbar In CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = true End If Next cbar
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
Jacky
Bonjour Rama, Bonjour Popi
Merci d'avoir prêté attention à ma demande, le code de Chris me convient parfaitement. Bonne soirée JJ
"Jacky" a écrit dans le message de news:
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu contextuel généré par le clique droit de la souris, pour que dans le cas de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas. et comment par la suite le réactiver.
Bonne journée JJ
Bonjour Rama, Bonjour Popi
Merci d'avoir prêté attention à ma demande, le code de Chris me convient
parfaitement.
Bonne soirée
JJ
"Jacky" <jacky.jaeg_enlevez@wanadoo.fr> a écrit dans le message de
news:umpaH3l7DHA.696@tk2msftngp13.phx.gbl...
Bonjour
Comment désactiver momentanément en début de macro l'affichage du menu
contextuel généré par le clique droit de la souris, pour que dans le cas
de
l'appel de:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel
As Boolean).
en fin de macro la fenêtre de ce menu n'apparaît pas.
et comment par la suite le réactiver.
