Interdire a l'utilisateur de fermer un userform

Interdire a l'utilisateur de fermer un userform - VB/VBA/VBS - Programmation

Marsh Posté le 02-05-2005 à 09:24:51    

Bonjour, je viens d'achever un prog sur VBA et j'ai utilisé des userforms. Je souhaite interdire a l'utilisateur de les fermer, cad d'appuyer sur la croix en haut a droite. Comment dois je faire?merci de votre aide


---------------
Arkancylla
Reply

Marsh Posté le 02-05-2005 à 09:24:51   

Reply

Marsh Posté le 02-05-2005 à 10:46:15    

Regarde dans les propriétés des forms. Tu peux enlever la case "fermer"...
 
Mais n'oublie pas de prévoir un bouton "quitter" (ou un menu) pour que tes utilisateurs puisses fermer ton programme

Reply

Marsh Posté le 02-05-2005 à 11:07:17    

merci mais tu ne sais pas dans quelle propriété il faut que jaille voir?


---------------
Arkancylla
Reply

Marsh Posté le 02-05-2005 à 22:26:22    

arkancylla a écrit :

merci mais tu ne sais pas dans quelle propriété il faut que jaille voir?


 
je supose que tu fais ca sous excel?
 
une solution de laurent longre du mpfe  voir site "disciplus simplex"
 
'Supprimer la croix de fermeture d'un UserForm
'A placer au début du module de code de ton UserForm :
'L Longre, mpfe
 
Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D" ) & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
 
nb: il est possible d'en faire autant pour les feuilles de calcul.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed