mình làm login trong word chỉ cho phép nhập mật khẩu 5 lần (3 người xem)

[ongtrungducmx25]

mình chỉ cho phép nhập 5 lần vào UF của mình thôi, nhưng gặp khó khăn là khi mình mở file của mình thì nó không có hiện UF lên, mỗi lần muốn hiện lên thì phải gõ phím tắt Alt+Q thì nó mới xuất hiện các bạn có cách nào để vào word thì nó xuất hiện bảng UF(loggin-password) không, để bảo mật
ps:852394

 

[dat2007]

Cách đơn giản nhất là bạn đặt Pass mở File.
Còn nếu bạn muốn dùng UF cho đẹp thì bạn thêm và sửa Code như sau

'DbClick vao ThisDocument -> Nhap doan Code sau
Private Sub Document_Open()
  UserForm1.Show
End Sub

' Sua lai doan Code trong Private Sub UserForm_QueryClose nhu sau:
Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer)
    If closeMode <> 1 Then Cancel = 1
    If TextBox1.Text = password Then Application.Quit
End Sub

 

[ongtrungducmx25]

Cách đơn giản nhất là bạn đặt Pass mở File.
Còn nếu bạn muốn dùng UF cho đẹp thì bạn thêm và sửa Code như sau

'DbClick vao ThisDocument -> Nhap doan Code sau
Private Sub Document_Open()
UserForm1.Show
End Sub
 
' Sua lai doan Code trong Private Sub UserForm_QueryClose nhu sau:
Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer)
If closeMode <> 1 Then Cancel = 1
If TextBox1.Text = password Then Application.Quit
End Sub

sau chỉ đăng nhập tới năm lần thì nó cho vào luôn zậy, mình muốn sau khi đăng nhập năm lần thì tự thoát ra luôn. mà mỗi lần mở file này thì có một dấu * xuất hiện mình muốn nó biến mất luôn thì sau.

 

[dat2007]

sau chỉ đăng nhập tới năm lần thì nó cho vào luôn zậy, mình muốn sau khi đăng nhập năm lần thì tự thoát ra luôn. mà mỗi lần mở file này thì có một dấu * xuất hiện mình muốn nó biến mất luôn thì sau.

==> Bạn sửa lại Code như sau:

Dim Password As String, Step As Byte
Private Sub UserForm_Initialize()
    Password = "*852394": Step = 0
    Me.TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
    If TextBox1.Text = Password Then
        Unload Me
    Else
        If (TextBox1.Text <> Password) And (Step < 5) Then
            Step = Step + 1
            TextBox1 = ""
            Me.TextBox1.SetFocus
            If Step >= 5 Then
                MsgBox ("Ban da nhap sai Password qua 5 lan")
                Application.Quit
            End If
        End If
    End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer)
    If closeMode <> 1 Then Cancel = 1
End Sub

 

[ongtrungducmx25]

mình muốn khi mở word ra thì chỉ xuất hiện UF thôi, còn có thể nào tạo textbox : usernametduc và password: *852394 có được không nhỉ!