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
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 :
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 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 tu ne pourras ni déplacer ni étirer ...
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&![]()
Partager