Interdire la fermeture par la croix

[apdf1]

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

 

[apdf1]

Re : Interdire la fermeture par la croix

Bonjour Jean Marcel

Je te remercie beaucoup et je te souhaite une bonne journée

@

Max

 

[Softmama]

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 :

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.

 

[apdf1]

Re : Interdire la fermeture par la croix

Bonjour Softmama,

Je te remercie beaucoup et je te souhaite une bonne journée

@

Max

 

[Softmama]

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 😛

Oublié réparé ici :

 

[apdf1]

Re : Interdire la fermeture par la croix

Re

Je te remercie beaucoup

Bonne journée

@
Max

 

[YANN-56]

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

 

[apdf1]

Re : Interdire la fermeture par la croix

Bonjour Yann

Et merci de t on intervention.

Bonne soirée

Max