bonjour didier une réponse de denis michon du québec
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur
'--------------------------- Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub '---------------------------
Salutations!
fin de copie HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
jps
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
:
En complément de la réponse de Denis, si tu souhaites également supprimer le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
Didier Novarin
Mille merci, c'est parfait Bonne soirée Didier
"jps" a écrit dans le message de news:
bonjour didier une réponse de denis michon du québec
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur
'--------------------------- Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub '---------------------------
Salutations!
fin de copie HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
Mille merci, c'est parfait
Bonne soirée
Didier
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OTL6hgjYGHA.1204@TK2MSFTNGP04.phx.gbl...
bonjour didier
une réponse de denis michon du québec
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur
'---------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
'---------------------------
Salutations!
fin de copie
HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
bonjour didier une réponse de denis michon du québec
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur
'--------------------------- Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub '---------------------------
Salutations!
fin de copie HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
Didier Novarin
Euh... Merci beaucoup Jps Je prends celle de Michdenis ;-) Didier
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
Euh...
Merci beaucoup Jps
Je prends celle de Michdenis ;-)
Didier
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer
le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
Euh... Merci beaucoup Jps Je prends celle de Michdenis ;-) Didier
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
jps
up to you...comme se garderait bien de dire michdenis jps
"Didier Novarin" a écrit dans le message de news:
Euh... Merci beaucoup Jps Je prends celle de Michdenis ;-) Didier
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
up to you...comme se garderait bien de dire michdenis
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: u15T9mjYGHA.1196@TK2MSFTNGP03.phx.gbl...
Euh...
Merci beaucoup Jps
Je prends celle de Michdenis ;-)
Didier
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer
le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
up to you...comme se garderait bien de dire michdenis jps
"Didier Novarin" a écrit dans le message de news:
Euh... Merci beaucoup Jps Je prends celle de Michdenis ;-) Didier
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
Modeste
Hau ® ChrisV avec ferveur ;o))) vous nous disiez :
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
encore loin de Marseille ???
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Hau ® ChrisV avec ferveur ;o))) vous nous disiez :
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
encore loin de Marseille ???
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Hau ® ChrisV avec ferveur ;o))) vous nous disiez :
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
encore loin de Marseille ???
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
ChrisV
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre)
Salut JP, bonjour à tous,
Déménagement...
Changement de boulot...
L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer
le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
jps
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à se faire appeler "muguet" chris????? content de te voir en tous cas et encore bien danvantage dans les jours qui viennent toujours perpignannais? amicalement jps
"ChrisV" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à se
faire appeler "muguet" chris?????
content de te voir en tous cas et encore bien danvantage dans les jours qui
viennent
toujours perpignannais?
amicalement
jps
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
eQcKtoUbGHA.1536@TK2MSFTNGP02.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre)
Salut JP, bonjour à tous,
Déménagement...
Changement de boulot...
L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer
le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à se faire appeler "muguet" chris????? content de te voir en tous cas et encore bien danvantage dans les jours qui viennent toujours perpignannais? amicalement jps
"ChrisV" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
isabelle
le plaisir sera tout autant partagé ChrisV, contente de te relire. à bientôt bisou* isabelle
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
le plaisir sera tout autant partagé ChrisV, contente de te relire.
à bientôt
bisou*
isabelle
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre)
Salut JP, bonjour à tous,
Déménagement...
Changement de boulot...
L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer
le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
le plaisir sera tout autant partagé ChrisV, contente de te relire. à bientôt bisou* isabelle
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
ChrisV
;-))
toujours perpignannais?
Toujours JP... et à 5 ou 6 km de ma précédente habitation...
Donc à très bientôt... ;-)
ChrisV
"jps" a écrit dans le message de news:
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à se faire appeler "muguet" chris????? content de te voir en tous cas et encore bien danvantage dans les jours qui viennent toujours perpignannais? amicalement jps
"ChrisV" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
;-))
toujours perpignannais?
Toujours JP...
et à 5 ou 6 km de ma précédente habitation...
Donc à très bientôt... ;-)
ChrisV
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
e6qS93UbGHA.4424@TK2MSFTNGP02.phx.gbl...
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à
se faire appeler "muguet" chris?????
content de te voir en tous cas et encore bien danvantage dans les jours
qui viennent
toujours perpignannais?
amicalement
jps
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
eQcKtoUbGHA.1536@TK2MSFTNGP02.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre)
Salut JP, bonjour à tous,
Déménagement...
Changement de boulot...
L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uCdCfhjYGHA.4580@TK2MSFTNGP03.phx.gbl...
et celle de chrisV (dont on se demande bien où ce qu'il est passé le
bougre) :
En complément de la réponse de Denis, si tu souhaites également
supprimer le
clic-droit sur les BO, les onglets du classeur, etc...
Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate()
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
Private Sub Workbook_Deactivate()
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
fin de copie
re HTH
jps
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eUgF8cjYGHA.460@TK2MSFTNGP04.phx.gbl...
Bonsoir
Je désire désactiver le menu du clic droit dans une feuille de calcul
Je vous remercie
Didier
Toujours JP... et à 5 ou 6 km de ma précédente habitation...
Donc à très bientôt... ;-)
ChrisV
"jps" a écrit dans le message de news:
waouhhhhhhhhhhhh se manifester ainsi le jour du 1er mai, c'est un coup à se faire appeler "muguet" chris????? content de te voir en tous cas et encore bien danvantage dans les jours qui viennent toujours perpignannais? amicalement jps
"ChrisV" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre)
Salut JP, bonjour à tous,
Déménagement... Changement de boulot... L'adsl seulement installée dans le courant de la semaine prochaine...
donc bientôt, et avec grand plaisir, de retour sur MPFE ! ;-)
ChrisV
"jps" a écrit dans le message de news:
et celle de chrisV (dont on se demande bien où ce qu'il est passé le bougre) :
En complément de la réponse de Denis, si tu souhaites également supprimer le clic-droit sur les BO, les onglets du classeur, etc... Dans la feuille de code de ThisWorkbook,
Private Sub Workbook_Activate() 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
Private Sub Workbook_Deactivate() 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
fin de copie re HTH jps
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je désire désactiver le menu du clic droit dans une feuille de calcul Je vous remercie Didier
