Discussion :

[Landry85]

Bonjour à tous, je viens vous demander du secours sur le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private Declare PtrSafe Function GetSystemMenu Lib "User32" _ (ByVal hwnd As LongPtr, ByVal bRevert As LongPtr) As LongPtr Private Declare PtrSafe Function DeleteMenu Lib "User32" _ (ByVal hMenu As LongPtr, ByVal nPosition As LongPtr, _ ByVal wFlags As LongPtr) As LongPtr Private Declare PtrSafe Function FindWindowA Lib "User32" _ (ByVal lpClassName As String, ByVal lpWindowName _ As String) As LongPtr ' ' Adaptation du code de Vasant Nanavati, Andrew Baker (mpep) ' Signification du paramètre : ' 6 : désactive la croix de fermeture d'Excel ' et la commande Fermeture du menu système ' 5 : supprime le trait de séparation du menu système ' avant Fermeture ' 4 : supprime la commande Agrandissement du menu système ' et la commande Agrandir de la fenêtre ' 3 : supprime la commande Réduction du menu système ' et désactive la commande Réduire de la fenêtre ' 2 : désactive la commande Déplacement du menu système ' 1 : supprime la commande Déplacement du menu système ' et désactive la commande Dimension ' 0 : supprime la commande Restauration du menu système ' et désactive la commande Restaurer de la fenêtre Public Sub DisableSystemMenu() On Error Resume Next Dim lHandle As LongPtr, lCount As LongPtr, prm As Integer lHandle = FindWindowA(vbNullString, Application.Caption) If lHandle = 0 Then Exit Sub For prm = 6 To 0 Step -1 DeleteMenu GetSystemMenu(lHandle, False), prm, &H400 Next prm End Sub Private Sub EnableSystemMenu() Dim lHandle As LongPtr: On Error Resume Next lHandle = FindWindowA(vbNullString, Application.Caption) GetSystemMenu lHandle, True End Sub

Grâce à ce code, la croix pour quitter est grisée et inactive.
Mon problème est qu'il reste toujours les commandes "réduire" et "niveau inf."

Si quelqu'un voit la solution.
Merci d'avance

[unparia]

Bonjour
Bravo pour la "précision" ...
Bien malin serait celui qui devinerait de quelle fenêtre il s'agit .

[pijaku]

Bonjour Jacques,

Bien malin serait celui qui devinerait de quelle fenêtre il s'agit .

Au hasard, la fenêtre Application!

Voici une traduction de son code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hwnd As LongPtr, ByVal bRevert As LongPtr) As LongPtr
 Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As LongPtr, ByVal nPosition As LongPtr, ByVal wFlags As LongPtr) As LongPtr
 Private Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
 ' ' Adaptation du code de Vasant Nanavati, Andrew Baker (mpep)
 ' Signification du paramètre :
 ' 6 : désactive la croix de fermeture d'Excel et la commande Fermeture du menu système
 ' 5 : supprime le trait de séparation du menu système ' avant Fermeture
 ' 4 : supprime la commande Agrandissement du menu système ' et la commande Agrandir de la fenêtre
 ' 3 : supprime la commande Réduction du menu système ' et désactive la commande Réduire de la fenêtre
 ' 2 : désactive la commande Déplacement du menu système
 ' 1 : supprime la commande Déplacement du menu système ' et désactive la commande Dimension
 ' 0 : supprime la commande Restauration du menu système ' et désactive la commande Restaurer de la fenêtre
 Public Sub DisableSystemMenu()
 On Error Resume Next
 Dim lHandle As LongPtr, lCount As LongPtr, prm As Integer
 lHandle = FindWindowA(vbNullString, Application.Caption)
 If lHandle = 0 Then Exit Sub
 For prm = 6 To 0 Step -1
 DeleteMenu GetSystemMenu(lHandle, False), prm, &H400
 Next prm
 End Sub
 Private Sub EnableSystemMenu()
 Dim lHandle As LongPtr:
 On Error Resume Next
 lHandle = FindWindowA(vbNullString, Application.Caption)
 GetSystemMenu lHandle, True
 End Sub

[Landry85]

Bonjour,

Effectivement, excusez moi pour le manque de précision, et l'affichage illisible du code (j'y ai pourtant ajouté le[code] et le [\code]).
C'est donc bien pour l'application

Alors dans mon projet, lorsque j'ouvre le classeur, la feuil3 s'affiche en plein écran.
Le but est de bloquer la sortie du plein écran.
Sont déjà bloqués : la touche échappe et le clic droit.
Le retour à l'affichage excel classique est autorisé par un commandbutton avec mot de passe et il y a un autre commandbutton pour la fermeture du classeur.

En espérant avoir été plus clair