IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Verrouiller la position d'un userform


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 66
    Par défaut Verrouiller la position d'un userform
    Je cherches une solution pour verrouiller la position d'un userform pour éviter que l'opérateur ne bouge ma userform et accede au classeur. Je ne peux pas toucher au show modal car je dois le laisser.
    Merci les kings

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Tout en haut du code de ton userform :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    et où tu veux (par exemple dans l'évènement click d'un bouton de command :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     Dim couichwnd As Long
      couichwnd = FindWindow(vbNullString, Me.Caption)
      DeleteMenu GetSystemMenu(couichwnd, 0), &HF000&, &H0&
      DeleteMenu GetSystemMenu(couichwnd, 0), &HF010&, &H0&
    Et tu ne pourras ni déplacer ni étirer ...

Discussions similaires

  1. [OL-2010] Verrouiller la position d'un dossier
    Par patch2007 dans le forum Outlook
    Réponses: 0
    Dernier message: 08/03/2012, 14h16
  2. [XL 2003] position CommandButton dans UserForm
    Par guichedlm dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/12/2010, 12h28
  3. [XL-2007] Position d'une UserForm par rapport à une cellule
    Par ESVBA dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/10/2009, 17h23
  4. [XL-2003] Verrouiller textbox d'une listbox d'un Userform
    Par altra dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/08/2009, 09h08
  5. modifier la position d'un controle dans un userform
    Par JYL74 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/02/2008, 10h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo