tạo thời gian hết hạn cho file excel (1 người xem)

[Khải Huyền]

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 ạ.

 

[Phuocam]

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,

Bạn thử dùng code này

Private Sub TXTOK_Click()
If TextPASS = "123456" Then
    MsgBox "Chao Mung"
    Unload Me
Else
    iCount = iCount + 1
    If iCount < 3 Then
        MsgBox "INCORRECT PASSWORD " & iCount & " lan" & vbLf & _
        "PLEASE ENTER THE PASSWORD AGAIN!"
        Me.TextPASS.Text = ""
        Me.TextPASS.SetFocus
    Else
        Unload Me
        Excel.Application.Quit' Đóng chương trình Excel
        'ThisWorkbook.Close False' Chỉ đóng file
    End If
End If
End Sub

 

[Khải Huyền]

Bạn thử dùng code này

Private Sub TXTOK_Click()
If TextPASS = "123456" Then
    MsgBox "Chao Mung"
    Unload Me
Else
    iCount = iCount + 1
    If iCount < 3 Then
        MsgBox "INCORRECT PASSWORD " & iCount & " lan" & vbLf & _
        "PLEASE ENTER THE PASSWORD AGAIN!"
        Me.TextPASS.Text = ""
        Me.TextPASS.SetFocus
    Else
        Unload Me
        Excel.Application.Quit' Đóng chương trình Excel
        'ThisWorkbook.Close False' Chỉ đóng file
    End If
End If
End Sub

dạ được rồi ạ, em cảm ơn nhiều lắm ạ

 

[VetMini]

Không ăn thua gì đâu.
Người dùng chỉ việc đưa lên đây hỏi "em có một file Excel, nhập sai mật khẩu..." là xong hết.
Việc bảo mật ơpr diễn đàn này à của thiên trả địa.

 

[Khải Huyền]

Không ăn thua gì đâu.
Người dùng chỉ việc đưa lên đây hỏi "em có một file Excel, nhập sai mật khẩu..." là xong hết.
Việc bảo mật ơpr diễn đàn này à của thiên trả địa.

Dạ không sao ạ, em rảnh làm cái này chủ yếu để không cho ng ta ăn mì ăn liền thôi ạ, nếu ai tự mở được, or đưa lên diễn đàn thì coi như họ có tốn chút tâm tư để có được file em làm, thì cũng đáng có ạ.

 

[quyenpv]

Dạ không sao ạ, em rảnh làm cái này chủ yếu để không cho ng ta ăn mì ăn liền thôi ạ, nếu ai tự mở được, or đưa lên diễn đàn thì coi như họ có tốn chút tâm tư để có được file em làm, thì cũng đáng có ạ.

Đối với Office > 2013 khi mở lên người dùng nhấn ESC coi như form mở pass vô tác dụng

 

[Khải Huyền]

Đối với Office > 2013 khi mở lên người dùng nhấn ESC coi như form mở pass vô tác dụng

Hiện tại thì e đã test, nếu nhận esc sẽ không thoát, trừ trường hợp không nhấn enable thôi ạ...

 

[thuyyeu99]

Dạ không sao ạ, em rảnh làm cái này chủ yếu để không cho ng ta ăn mì ăn liền thôi ạ, nếu ai tự mở được, or đưa lên diễn đàn thì coi như họ có tốn chút tâm tư để có được file em làm, thì cũng đáng có ạ.

Cái này hay nè. Muốn ăn phải tự nấu chứ ai nấu sẵn cho ăn phải không

 

[Quang_Hải]

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 ạ.

Sau này khi bạn viết code tốt hơn thì tự nhiên bạn rất lười khóa code. Vả lại kiến thức luôn mang tính kế thừa, ai học được cứ để cho họ học.

 

[VetMini]

Dạ không sao ạ, em rảnh làm cái này chủ yếu để không cho ng ta ăn mì ăn liền thôi ạ, nếu ai tự mở được, or đưa lên diễn đàn thì coi như họ có tốn chút tâm tư để có được file em làm, thì cũng đáng có ạ.

100 người code VBA có đến 90 code kiểu mì ăm liền. Tư tưởng của bạn đi ngược với trào lưu.
Vào đây hỏi code cũng là một hình thức mì ăn liền. Bạn thấy có bao nhiêu người tự code lấy và chỉ hỏi một vài chỗ bí?

 

[Khải Huyền]

Sau này khi bạn viết code tốt hơn thì tự nhiên bạn rất lười khóa code. Vả lại kiến thức luôn mang tính kế thừa, ai học được cứ để cho họ học.

Em không phải khoá code mà khoá file thôi ạ, tại em lười cho người ta ăn mì ăn liền thôi ạ...nếu ai chịu khó mở ra thì lấy file ăn liền là xứng đáng...chứ em không thích kiểu người khác phải động não mà mình chỉ lấy rồi dùng ạ.

Bài đã được tự động gộp: 13/4/20

100 người code VBA có đến 90 code kiểu mì ăm liền. Tư tưởng của bạn đi ngược với trào lưu.
Vào đây hỏi code cũng là một hình thức mì ăn liền. Bạn thấy có bao nhiêu người tự code lấy và chỉ hỏi một vài chỗ bí?

Như code của em em cũng phải suy nghĩ, học hỏi từ ng này người kia, rồi làm thành vậy, nhưng vẫn thiếu không ra được kết quả em muốn nên em mới hỏi thêm mà?