Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1187 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Interdire a l'utilisateur de fermer un userform

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Interdire a l'utilisateur de fermer un userform

n°1068377
arkancylla
Posté le 02-05-2005 à 09:24:51  profilanswer
 

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
mood
Publicité
Posté le 02-05-2005 à 09:24:51  profilanswer
 

n°1068494
gfa
Posté le 02-05-2005 à 10:46:15  profilanswer
 

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

n°1068528
arkancylla
Posté le 02-05-2005 à 11:07:17  profilanswer
 

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


---------------
Arkancylla
n°1069537
scuny
Posté le 02-05-2005 à 22:26:22  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Interdire a l'utilisateur de fermer un userform

 

Sujets relatifs
comment supprimer la croix "pour fermer" d un userformInterface utilisateur multi-langue.
besoin d'aide: protéger userform ac mot de passeUserform & mot de passe
Exporter une table vers un repertoire de l'utilisateur courrantfermer un programme par l'invite de commande ms-dos ?
Vider le contenu des textbox d'un userformLogiciel simulant x utilisateur
Réinitialiser un Userform 
Plus de sujets relatifs à : Interdire a l'utilisateur de fermer un userform


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR