retrais des 3 icone (minimiser,maximiser,fermer) serais la solution.
Le
Daniel Pelletier
Bonsoir à tous
j'ai une dizaine de fichier utilisant les même VBA.
Ce que je veut faire est empêcher mes collègue (très peut familier avec
Excel)
de mêler les fenêtres (en les fermant une a une , car cela blocque d'autre
macro).
Idéalement le retrais des 3 icone (minimiser,maximiser,fermer) serais la
solution.
A vous une solution :-) Gros merci de votre expertise.
j'ai une dizaine de fichier utilisant les même VBA.
Ce que je veut faire est empêcher mes collègue (très peut familier avec
Excel)
de mêler les fenêtres (en les fermant une a une , car cela blocque d'autre
macro).
Idéalement le retrais des 3 icone (minimiser,maximiser,fermer) serais la
solution.
A vous une solution :-) Gros merci de votre expertise.
Poser une question
Voici toujours pour la croix de fermeture :
http://perso.wanadoo.fr/frederic.si...Calcul.txt
Il me semble bien que le reste a fait l'objet d'une publication ici même, mais je ne retrouve pas pour
l'instant ; tente de ton côté via Google...
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Daniel Pelletier" news:fmzVb.23781$
J'e n'arrive pas a faire fonctionner cela, j"ai toujours des message
d'erreur. :-((
"Philippe.R" news:u10$
Voici une procédure parue ici sous la plume de Michel Perron
'Déclaration des API - Haut d'un module standard
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long _
, ByVal nPosition As Long, ByVal wFlags As Long) As Long
'-------------------------
Sub InhibeSysMenu()
Dim hSysMenu As Long, lCount As Long, hWnd As Long
hWnd = FindWindow("XLMAIN", Application.Caption)
hSysMenu = GetSystemMenu(hWnd, False)
If hSysMenu = 0 Then Exit Sub
lCount = GetMenuItemCount(hSysMenu)
If lCount Then
' Le menu système d'une application contient un minimum de 9 items.
For lCount = 1 To 9
RemoveMenu hSysMenu, 0, &H400&
Next
DrawMenuBar hWnd
End If
End Sub
'-------------------------
Sub RestoreSysMenu()
Dim hSysMenu As Long, lCount As Long, hWnd As Long
hWnd = FindWindow("XLMAIN", Application.Caption)
hSysMenu = GetSystemMenu(hWnd, True)
If hSysMenu Then DrawMenuBar hWnd
End Sub
'-------------------------
Salutations!
"Daniel Pelletier" Bonsoir à tous
j'ai une dizaine de fichier utilisant les même VBA.
Ce que je veut faire est empêcher mes collègue (très peut familier avec
Excel)
de mêler les fenêtres (en les fermant une a une , car cela blocque d'autre
macro).
Idéalement le retrais des 3 icone (minimiser,maximiser,fermer) serais la
solution.
A vous une solution :-) Gros merci de votre expertise..........
Cela fonctionne avec une fenêtre , mais ci il y en a plusieurs ,ont peut les
fermer une a une.
Moi je voudrait bloquer tout les Xrouge. :-((
"michdenis" news:
que tu ouvriras par la suite dans la même instance d'excel auront eux aussi leurs boutons de la barre des titres inhibés.
Salutations!
"Daniel Pelletier" Bonsoir
Cela fonctionne avec une fenêtre , mais ci il y en a plusieurs ,ont peut les
fermer une a une.
Moi je voudrait bloquer tout les Xrouge. :-((
"michdenis" news: