Interdire la fermeture par la croix

apdf1

XLDnaute Impliqué
Bonjour,

Comment interdire de fermer un formulaire par la croix, avec message de fermer avec un bouton

Merci d'avance et bonne journée

Max
 

Softmama

XLDnaute Accro
Re : Interdire la fermeture par la croix

Bonjour apdf1,
Bonjour Jean-Marcel

Une autre proposition ici, en utilisant les API windows, pour supprimer la bande bleue de l'USF :

VB:
Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Sub CACHER_BANDE_BLEUE(USF As UserForm)
Dim hWnd&
  hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", USF.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And Not &HC00000: DrawMenuBar hWnd
End Sub

Sub goform()
    Load UserForm1
    CACHER_BANDE_BLEUE UserForm1
    UserForm1.Show
End Sub

Un exemple en fichier joint.
 

Pièces jointes

  • USF_sanscroix_apdf1.xls
    28.5 KB · Affichages: 82
  • USF_sanscroix_apdf1.xls
    28.5 KB · Affichages: 85
  • USF_sanscroix_apdf1.xls
    28.5 KB · Affichages: 91

Softmama

XLDnaute Accro
Re,

la macro est bonne, mais le fichier joint ne l'est pas !! Ca risquait pas de fonctionner, j'ai juste oublié le
userform1.show, pour qu'on le voit :p

Oublié réparé ici :
 

Pièces jointes

  • USF_sanscroix_apdf1.xls
    32 KB · Affichages: 99
  • USF_sanscroix_apdf1.xls
    32 KB · Affichages: 103
  • USF_sanscroix_apdf1.xls
    32 KB · Affichages: 104

YANN-56

XLDnaute Barbatruc
Re : Interdire la fermeture par la croix

Bonjour à tous,

Comme j'ai aperçu un "CACHER_BANDE_BLEUE" de mon cru,
(Pas le code, mais son adaptation), je me permets de suggérer que
que cet ordre soit dans l' "Initialise" de l'USF.

Peut-être plus confortable pour la lecture, quand l'on a beaucoup d'USF...
(A noter aussi qu'avec des versions 64 bits; il y a plantage)

A voir ...

Amicalement.

Yann
 

Pièces jointes

  • USF_sanscroix_apdf2.xls
    32 KB · Affichages: 73

Discussions similaires

  • Résolu(e)
Microsoft 365 Tri et Import
Réponses
4
Affichages
204

Membres actuellement en ligne

Statistiques des forums

Discussions
312 400
Messages
2 088 086
Membres
103 711
dernier inscrit
mindo