làm sao để nhập đúng password mới cho phép lưu dữ liệu và thoát khỏi excel

[khanhnth02]

mọi người có thể giúp mình viết đoạn code như thế nào để khi nhập đúng password mới cho phép lưu dữ liệu và thoát khỏi excel

 

[nmhung49]

Bạn dùng sự kiện này

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Pass
Pass = Application.InputBox("Nhap", "Nhap Pass Vao", , , , , , 2)
If Pass = "GPE" Then
    Cancel = False:  Me.Save
Else
    Cancel = True
End If
End Sub

Hoặc

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
...............
End Sub

Mà cái này mà không enable cũng như không

 

[khanhnth02]

tôi đã làm rồi , rất hiệu quả. xong bạn có thể chỉ tôi cách làm thế nào để khi gõ pass vào sẽ tự mã hóa thành *****, chứ để như vậy thằng ngồi bên biết hết. và làm sao để bớt đi một lần gõ pass được không? vì khi tôi gõ pass một lần nó lại hiện tiếp lên một lần nữa để gõ pass rồi mới chịu lưu dữ liệu.
chân thành cảm ơn!

 

[huuthang_bd]

mọi người có thể giúp mình viết đoạn code như thế nào để khi nhập đúng password mới cho phép lưu dữ liệu và thoát khỏi excel

Excel có hỗ trợ cho bạn đặt Password mà. Password không cho đọc (Password to open) và Password không cho sửa ( Password to modify). Bạn đặt Password to modify là được chứ dùng code người ta không kích hoạt code thì cũng vô dụng.

 

[khanhnth02]

Excel có hỗ trợ pass nhưng rất bất tiện khi dùng, vì mình sử dụng liên tục nên không thể tắt mở pass to midify liên tục được