J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules
(de toutes les feuilles) d'un classeur ou éventuellement afficher à la place
un message du style
"Désolé pas de commandes dispo.".
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
jps
bonjour patissou15 peut-être ceci :
Application.CommandBars("Cell").Enabled = False
et True à la place de False pour réactiver le menu contextuel jps
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
merci pour l'aide
bonjour patissou15
peut-être ceci :
Application.CommandBars("Cell").Enabled = False
et True à la place de False pour réactiver le menu contextuel
jps
"patissou15" <ifpp.prof@wanadoo.fr> a écrit dans le message de news:
dn68ef$cvg$1@aphrodite.grec.isp.9tel.net...
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules
(de toutes les feuilles) d'un classeur ou éventuellement afficher à la
place un message du style
"Désolé pas de commandes dispo.".
et True à la place de False pour réactiver le menu contextuel jps
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
merci pour l'aide
ChrisV
Bonjour Patissou15,
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) Cancel = True End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt() With Application .ScreenUpdating = False .CommandBars("Toolbar List").Enabled = False End With For Each cbar In Application.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 Application.CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = True End If Next cbar End Sub
ChrisV
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
merci pour l'aide
Bonjour Patissou15,
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In Application.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 Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar
End Sub
ChrisV
"patissou15" <ifpp.prof@wanadoo.fr> a écrit dans le message de news:
dn68ef$cvg$1@aphrodite.grec.isp.9tel.net...
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules
(de toutes les feuilles) d'un classeur ou éventuellement afficher à la
place un message du style
"Désolé pas de commandes dispo.".
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) Cancel = True End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt() With Application .ScreenUpdating = False .CommandBars("Toolbar List").Enabled = False End With For Each cbar In Application.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 Application.CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = True End If Next cbar End Sub
ChrisV
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
merci pour l'aide
patissou15
Parfait
Merci ChrisV "ChrisV" a écrit dans le message de news: eJODUSx%
Bonjour Patissou15,
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) Cancel = True End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt() With Application .ScreenUpdating = False .CommandBars("Toolbar List").Enabled = False End With For Each cbar In Application.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 Application.CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = True End If Next cbar End Sub
ChrisV
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
merci pour l'aide
Parfait
Merci ChrisV
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
eJODUSx%23FHA.1288@TK2MSFTNGP09.phx.gbl...
Bonjour Patissou15,
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt()
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In Application.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 Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar
End Sub
ChrisV
"patissou15" <ifpp.prof@wanadoo.fr> a écrit dans le message de news:
dn68ef$cvg$1@aphrodite.grec.isp.9tel.net...
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules
(de toutes les feuilles) d'un classeur ou éventuellement afficher à la
place un message du style
"Désolé pas de commandes dispo.".
Merci ChrisV "ChrisV" a écrit dans le message de news: eJODUSx%
Bonjour Patissou15,
Dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) Cancel = True End Sub
Si toutefois tu souhaites interdire l'ensemble des menus contextuels...
Sub supCDt() With Application .ScreenUpdating = False .CommandBars("Toolbar List").Enabled = False End With For Each cbar In Application.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 Application.CommandBars If cbar.Type = msoBarTypePopup Then cbar.Enabled = True End If Next cbar End Sub
ChrisV
"patissou15" a écrit dans le message de news: dn68ef$cvg$
Bonjour,
Une question facile.
J'ai besoin d'une macro qui supprime le menu contextuel dans les cellules (de toutes les feuilles) d'un classeur ou éventuellement afficher à la place un message du style "Désolé pas de commandes dispo.".
