tạo thời gian hết hạn cho file excel

[Xíu xíu]

cả nhà ơi, cho em hỏi với ạ!
em muốn khi nhập sai mật khẩu sai trên 3 lần sẽ hiện userform2 và sau đó file sẽ tự thoát, mà em làm được tới đây thì không biết làm nữa, mọi người giúp em được không ạ?
em xin cảm ơn ạ.

- code trong userform1:

Private iCount As Long

Private Sub TXTCANCEL_Click()
ThisWorkbook.Close
End Sub

Private Sub TXTOK_Click()
If TextPASS <> "186191" Then
iCount = iCount + 1
If iCount >= 3 Then TXTOK_Click
MsgBox "INCORRECT PASSWORD " & iCount & " lan" & vbLf & _
"PLEASE ENTER THE PASSWORD AGAIN!"
Me.TextPASS.Text = ""
Me.TextPASS.SetFocus
Else
Unload Me
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

- code trong thisworkbook:
Private Sub Workbook_Open()
If Date >= DateSerial(2020, 4, 12) Then
MsgBox "NEARLY EXPRIRED"
If Date >= DateSerial(2020, 4, 13) Then
UserForm1.Show
End If
End If
End Sub

 

[tuhocvba]

Bạn có thể bớt chút thời gian để trình bày lại cho dễ hiểu không ạ?

• Nếu bạn không biết cách upload ảnh lên diễn đàn, bạn vui lòng tham khảo topic sau:
  Bạn cần đăng nhập để thấy link
  .
• Bạn lưu ý phải sử dụng thẻ Code khi viết code trên forum. Xin xem mục 4 trong
  Bạn cần đăng nhập để thấy link
  .
• Bạn nên nói rõ Input là gì? Output muốn ra sao?
• Bạn nên có file demo. Bạn có thể upload file lên google drive hoặc mediafire.com rồi dẫn link về diễn đàn.

Một bài viết trình bày dễ hiểu là một bài viết sử dụng hình minh họa trực quan. Một bài viết chỉ toàn chữ sẽ khiến người khác không muốn đọc.

Một bài viết dễ hiểu sẽ giảm thiểu thời gian đọc hiểu cho người khác, bạn sẽ nhanh chóng nhận được hỗ trợ nếu bài viết của bạn là một bài viết dễ hiểu.
Chúng tôi mong bạn hiểu và hợp tác

 

[Deleted member 208]

Upload file demo lên google drive rồi kéo link về đây đi bạn ơi.

 

[vothanhthu]

Nhận thấy bài viết này của bạn bên GPE đã được hỗ trợ và bạn cũng đã chấp nhận kết quả Code. Cho nên, để tránh lại có Thành viên khác vào hỗ trợ lãng phí thời gian nên Topic này mình sẽ khóa lại tại đây.