Sửa code close của thisworkbook cho userfom hiện

[Đỗ Quân]

Các anh chị giúp e với,e đang gặp 1 vấn đề về file Login.
E tạo 1 login excel với Userform.e viết code gần như đã ổn còn hết. duy nhất 1 điều e muốn là khi thoát thisworkbook thì userform sẽ hiện lên.và e muốn phải thoát chương trình excel bằng nút Exit e tạo trên userform.
File của e hiện tại đang là thoát thisworkbook thì sẽ thoát toàn bộ chương trình excel và userform ko hiện.
Các anh chị giúp e với ạ.
Xin hãy check file đính kèm ạ.
Password : 18121994
E cảm ơn nhiều nhiều ạ.

 

[Hau151978]

Bạn thêm thủ tục

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    UserForm1.CommandButtonLOGIN.Enabled = False
    UserForm1.Show
End Sub

Sửa thủ tục cmdexit_click thành

Private Sub CommandButtonEXIT_Click()
answer = MsgBox(" Ban co muon thoat khong ?", vbYesNo + vbQuestion, "EXIT")
If answer = vbYes Then
Application.EnableEvents = False
Unload Me
ThisWorkbook.Save
Application.Quit
End If
End Sub

Thường form thoát khác form đăng nhập, ở đây bạn dùng 1 form nên mình đặt thuộc tính enabled của nút login là false, bạn có thể đặt các control khác.

 

[Đỗ Quân]

Dạ vâng.e cảm ơn sự trợ giúp của a ạ.

 

[Đỗ Quân]

A ơi của e là.thisworkbook đóng(thisworkbook phải đóng rồi).userform sẽ hiện.và có thể exit thoát ctrinh excel hoặc ko muốn thoát thì có thể nhập lại pass để đăng nhập lại.
Code của a giúp e là trước khi thisworkbook đóng userform hiện.và trên màn hình thì có thể nhìn thấy thisworkbook và userform.và userform thì chỉ có thể exit và ko để đăng nhập lại.
A có thể giúp e viết lại code đc ko ạ.
E xin cảm ơn.!!!

 

[Hau151978]

A ơi của e là.thisworkbook đóng(thisworkbook phải đóng rồi).userform sẽ hiện.và có thể exit thoát ctrinh excel hoặc ko muốn thoát thì có thể nhập lại pass để đăng nhập lại.
Code của a giúp e là trước khi thisworkbook đóng userform hiện.và trên màn hình thì có thể nhìn thấy thisworkbook và userform.và userform thì chỉ có thể exit và ko để đăng nhập lại.
A có thể giúp e viết lại code đc ko ạ.
E xin cảm ơn.!!!

Bạn ơi nếu excel đóng rồi thì cần gì exit nữa. Trong nút exit bạn có cả code hỏi xem có muốn thoát không sau đó mới save workbook mà. Còn nếu bạn không muốn hiện workbook thì có thể ẩn đi.

 

[Đỗ Quân]

Dạ vâng đúng rồi a ạ.e muốn là ẩn thisworkbook đi và userform hiện lên để thoát ctrinh excel bằng nút exit trên userform hoặc ko muốn thoát thì có thể nhập pass để vào lại ạ.

Bài đã được tự động gộp: 16/7/18

Code a viết giúp e thì userform đã hiện r ạ.nhưng thisworkbook vẫn còn trên màn hình.và chỉ có thể thoát ko thể đăng nhập đc lại ạ.
Mong a giúp e với ạ.
E cảm ơn

 

[Hau151978]

Dạ vâng đúng rồi a ạ.e muốn là ẩn thisworkbook đi và userform hiện lên để thoát ctrinh excel bằng nút exit trên userform hoặc ko muốn thoát thì có thể nhập pass để vào lại ạ.

Bài đã được tự động gộp: 16/7/18

Code a viết giúp e thì userform đã hiện r ạ.nhưng thisworkbook vẫn còn trên màn hình.và chỉ có thể thoát ko thể đăng nhập đc lại ạ.
Mong a giúp e với ạ.
E cảm ơn

Trong module bạn thêm lệnh khai báo biến toàn cục

Public NotQuit As Boolean

Sửa thủ tục sự kiện

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    NotQuit = False
    Application.Visible = False
    UserForm1.Show
    If NotQuit Then Cancel = True
End Sub

Và thêm lệnh cho cmdLogin_click

Private Sub CommandButtonLOGIN_Click()
If TextBoxUsername.Text = "Quanchua8**@gmail.com" And TextBoxPassword.Text = "18121994" Then
    Application.Visible = True
    NotQuit = True
    Unload Me
Else
    MsgBox "Kiêm Tra Lai Password Cua Ban", vbExclamation, "Vào làm gì"
    TextBoxUsername.Text = ""
    TextBoxPassword.Text = ""
End If
End Sub

\

 

[Đỗ Quân]

E rất cảm ơn sự giúp đỡ nhiệt tình anh ạ.
Hnay để máy tính trên cty nên chưa thử đc.sáng mai e sẽ view code lại.
Xin cảm ơn a nhìu ạ..!!!!