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 Empêcher l'ouverture de la boîte "Personnaliser"

Empêcher l'ouverture de la boîte "Personnaliser"

12 réponses
Avatar
Marcel de Rennes
Je cr=E9e =E0 partir d'Excel des programmes utlisateurs=20
enti=E8rement verouill=E9s en utilisant des barres d'outils=20
personnalis=E9es que j'attache =E0 mon fichier. Les barres=20
par d=E9faut d'Excel sont masqu=E9es et les touches ou=20
combinaisons de touches qui ouvrent les bo=EEtes de=20
dialogue int=E9gr=E9es d=E9sactiv=E9es. Je d=E9sactive =E9galement=20
les menus contextuels par une formule emprunt=E9e =E0 Excel=20
95 =E0 savoir : Application.ShortcutMenus
(xlToolbar).enabled =3D false. Je n'ai pas trouv=E9 de=20
correspondance dans Excel 2000. Cette formule bien que=20
obsol=E8te marche bien sauf pour la bo=EEte de=20
dialogue "Personnaliser" d'Excel qui s'ouvre quand m=EAme=20
si on effectue un double clic dans l'ent=EAte d'Excel qui=20
contient les barres d'outils que j'ai cr=E9=E9es. Cette=20
ouverture permet de cr=E9er =E9ventuellement une barre=20
d'outils en ajoutant toute sorte de boutons, ce que je ne=20
veux pas dans mon programme.
J'aimerai r=E9soudre ce probl=E8me et am=E9liorer ma formule=20
pour d=E9sactiver les menus contextuels.

Merci aux grands sp=E9cialistes...
Signaler un problème avec ce contenu

2 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
1 2
Avatar
michdenis
;-))

"sabatier" a écrit dans le message de news:
bof, tu te tracasses bien pour pas gand'chose, denis : moi, pour éviter ce sautillement -assez désagréable, je te l'accorde-
j'ai
mis un gros pavé sur le moniteur et comme il est en pierre dorée, la fierté de la région, j'en profite pour y graver au burin
quelques procs de FS...
jps

michdenis wrote:

Bonsoir JPS,

Cependant, il me reste seulement un petit point d'interrogation...où je n'ai pas trouvé de réponse. Pourquoi après avoir
lancé la procédure Workbook_Open de la fenêtre Éditeur de macro, il y a un tout léger sautillement de la barre de titre de
la

fenêtre de l'éditeur de Macro ?

;-)

Salutations!

"sabatier" a écrit dans le message de news:
nous sommes donc au moins deux, denis michel!!!
jps

michdenis wrote:

Bonsoir Alain,

Enfin un truc qui fonctionne.. Facile à comprendre comme le dit JPS... ce n'est pas trop tôt !!

;-)

Merci.

Salutations!

"Alain CROS" a écrit dans le message de news:u5e%
Bonjour.

Tu peux essayer comme ça.

Dans le module ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
LeHook
End Sub
Private Sub Workbook_Open()
LeHook True
End Sub

Dans un module ordinaire

Private Declare Function LockWindowUpdate& Lib "user32" ( _
ByVal hwndLock&)
Private Declare Function PostMessage& Lib "user32" _
Alias "PostMessageA" (ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)
Private Declare Function FindWindowEx& Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1&, ByVal hWnd2&, ByVal lpsz1$, ByVal lpsz2$)
Private Declare Function GetWindowLong& Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd&, ByVal nIndex&)
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function SetWindowsHookEx& Lib "user32" _
Alias "SetWindowsHookExA" (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)
Private Declare Function GetWindowText& Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd&, ByVal lpString$, ByVal cch&)
Private Declare Function UnhookWindowsHookEx& Lib "user32" _
(ByVal hHook&)
Private lgHook&
Sub LeHook(Optional cache As Boolean)
Const GWL_HINSTANCE& = -6
If cache Then
InstallHook GetWindowLong(FindWindowEx(0&, 0&, "XLMAIN", _
Application.Caption), GWL_HINSTANCE)
Else
UnhookWindowsHookEx lgHook
End If
End Sub
Sub InstallHook(lgInst&)
Const WH_CBT& = &H5
#If VBA6 Then
lgHook = SetWindowsHookEx(WH_CBT, AddressOf WinHook, _
lgInst, GetCurrentThreadId)
#Else
lgHook = SetWindowsHookEx(WH_CBT, AddrOf("WinHook"), _
lgInst, GetCurrentThreadId)
#End If
End Sub
Private Function WinHook&(ByVal lMsg&, ByVal wParam&, ByRef lParam&)
Const HCBT_ACTIVATE& = &H5, WM_SYSCOMMAND& = &H112, SC_CLOSE& = &HF060&
Dim MYSTR$
If lMsg = HCBT_ACTIVATE Then
LockWindowUpdate wParam
MYSTR = Space$(100&)
MYSTR = Left$(MYSTR, GetWindowText(wParam, MYSTR, 100&))
If MYSTR = "Personnaliser" Or MYSTR = "Personnalisation" Then
PostMessage wParam, WM_SYSCOMMAND, SC_CLOSE, 0&
Else
LockWindowUpdate False
End If
End If
WinHook = False
End Function

Alain CROS.

"Marcel de Rennes" a écrit dans le message de news:
044d01c3ce1d$2843a0c0$
Je crée à partir d'Excel des programmes utlisateurs
entièrement verouillés en utilisant des barres d'outils
personnalisées que j'attache à mon fichier. Les barres
par défaut d'Excel sont masquées et les touches ou
combinaisons de touches qui ouvrent les boîtes de
dialogue intégrées désactivées. Je désactive également
les menus contextuels par une formule empruntée à Excel
95 à savoir : Application.ShortcutMenus
(xlToolbar).enabled = false. Je n'ai pas trouvé de
correspondance dans Excel 2000. Cette formule bien que
obsolète marche bien sauf pour la boîte de
dialogue "Personnaliser" d'Excel qui s'ouvre quand même
si on effectue un double clic dans l'entête d'Excel qui
contient les barres d'outils que j'ai créées. Cette
ouverture permet de créer éventuellement une barre
d'outils en ajoutant toute sorte de boutons, ce que je ne
veux pas dans mon programme.
J'aimerai résoudre ce problème et améliorer ma formule
pour désactiver les menus contextuels.

Merci aux grands spécialistes...




Avatar
AV
, le menu intégré "Personnaliser" s'active
toujours malgré le codage


Et en mettant en plein écran ?

AV

1 2