Cố định không cho move form nhập liệu (1 người xem)

[hanhpptc]

Nhờ các bạn chỉ giúp mình cáh làm sao để cố định không cho người dùng di chuyển (move) form trong Excel

 

[siwtom]

Nhờ các bạn chỉ giúp mình cáh làm sao để cố định không cho người dùng di chuyển (move) form trong Excel

Bạn nói về UserForm?
Nếu bạn có lý do chính đáng thì bỏ thanh tiêu đề của Form đi

 

[hanhpptc]

Bạn nói về UserForm?
Nếu bạn có lý do chính đáng thì bỏ thanh tiêu đề của Form đi

Bạn có thể hướng dẫn giúp mình cụ thể hơn, để mình dể thực hiện. Cám ơn bạn.

 

[nghiaphuc]

Bạn có thể hướng dẫn giúp mình cụ thể hơn, để mình dể thực hiện. Cám ơn bạn.

Bạn tham khảo topic sau nhé, chú ý bài #15: Tạo hiệu ứng cho UserForm

 

[ndu96081631]

Cũng có cách không cần remove caption
Cho code này vào UserForm nhé:

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hme2nu 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

Private Sub UserForm_Initialize()
  Dim lHdl As Long, lMenu As Long
  lHdl = FindWindow(vbNullString, Me.Caption)
  lMenu = GetSystemMenu(lHdl, False)
  RemoveMenu lMenu, 0, &H400
  RemoveMenu lMenu, 0, &H400
End Sub

 

[hanhpptc]

Cũng có cách không cần remove caption
Cho code này vào UserForm nhé:

Cảm ơn ndu rất nhiều. Mình cứ loay hoay mãi mà không làm được