Hỏi cách khóa nút Close

[phuyen89]

Khi rm tạo Form đăng nhập thì là sao khi để người khác nhấn Nút X(Close) thì nó không được đóng lại.EM biết dùng sự kiện này.Nhưng code thì không biết viết.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub
Các anh chị giúp đơ giùm

 

[Pozsi]

Bạn dùng code này xem!

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
If CloseMode = 0 Then 
Cancel = True 
MsgBox "Xin bạn đóng bằng nút lệnh ĐÓNG!"
End If 
End Sub

 

[Hai Lúa Miền Tây]

Khi rm tạo Form đăng nhập thì là sao khi để người khác nhấn Nút X(Close) thì nó không được đóng lại.EM biết dùng sự kiện này.Nhưng code thì không biết viết.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub
Các anh chị giúp đơ giùm

Bạn dùng code này cho form:

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Vui long nhan nut thoat!"
  End If
End Sub

Cho nút thoát:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Chúc bạn thành công

 

[ndu96081631]

Khi rm tạo Form đăng nhập thì là sao khi để người khác nhấn Nút X(Close) thì nó không được đóng lại.EM biết dùng sự kiện này.Nhưng code thì không biết viết.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub
Các anh chị giúp đơ giùm

Bạn đã cố tình không dùng nút Close, vậy thì xóa nút ấy luôn cho rồi
Xem tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=24123
Form nhìn thế mới "bảnh"