Cách đóng form lại và mở workook ra

[tacdangnguoirung]

Chào các anh chị trong GPE !
Có ai biết xin vui lòng chỉ giáo zùm nhé!
Em có một file excel có chứa một form khởi động cùng workbook trên form có chứa 1 textbox là "mật khẩu" và 2 nút lệnh là "Đăng nhập" và "thoát" (Khi khởi động em đã dùng câu lệnh "application.visible = fasle" để ẩn workbook đi mà chỉ hiển thị form thôi). Bây giờ em muốn nếu mình nhập đúng pass thì form lại ẩn đi và Workbook hiện ra để mình làm việc. Không biết là có cách nào làm được không? Nếu anh chị nào biết thì chỉ giáo zùm em nhé! Rất cảm ơn!

 

[cadafi]

Chào các anh chị trong GPE !
Có ai biết xin vui lòng chỉ giáo zùm nhé!
Em có một file excel có chứa một form khởi động cùng workbook trên form có chứa 1 textbox là "mật khẩu" và 2 nút lệnh là "Đăng nhập" và "thoát" (Khi khởi động em đã dùng câu lệnh "application.visible = fasle" để ẩn workbook đi mà chỉ hiển thị form thôi). Bây giờ em muốn nếu mình nhập đúng pass thì form lại ẩn đi và Workbook hiện ra để mình làm việc. Không biết là có cách nào làm được không? Nếu anh chị nào biết thì chỉ giáo zùm em nhé! Rất cảm ơn!

Bạn xử lý sự kiện khi nút "Đăng nhập" được click như sau:

Private sub cmdDangNhap_Click()
Dim MyPW as string
MyPW="PassWordCanDat"
'-------------------------------------------
 If txtPassword=MyPW then
    Application.Visible = True
    Unload Me   '(Có thể thay thế Me bằng tên form)
 Else
    a = Msgbox ("Password nhập sai, vui lòng nhập lại",vbOKOnly,"Thông báo")
    Exit Sub
 End If
'--------------------------------------------
End Sub

 

[salam]

Thì bạn chuyển lại thành true

Me.hide
application.visible = true

 

[tacdangnguoirung]

Cám ơn các huynh thật nhiều!

 

[thaygiaochogao]

trinh do toi con yeu qua .toi co lam roi nhung khong duoc xin chi can ke hon toi cam on nhieu