Discussion :

[jolzeviking]

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

[ucfoutu]

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 ...