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

Tout en haut du code de ton userform :

Code:

---

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:

---

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