Tunga2k41
Thành viên mới

- Tham gia
- 19/3/08
- Bài viết
- 33
- Được thích
- 0
Vì mục VBA đang bị lock nên em post ở đây. Em lấy ví dụ của 1 anh trên GPE về Aut
pen, Khi bật Excel AAAA có Macro sau lên cần có password:
, Và có một ứng dụng em mới biết là:tạo Macro Aut
pen để không cho ai đó xem File Excel của mình! Nhưng có 1 lỗ hổng là: Nếu như tạo chỉnh lại :menu/Tools/Option/Security/Macro Security/Security Leve = High . Thì Macro báo lỗi Secủity và lại vào được file Excel AAAA mà không cần password.
Cho em hỏi làm thế nào để bảo mật dữ liệu Excel của mình bằng cách này hiệu quả hơn! Và bonus cho em cách bảo mật nào cũng thú vị như thế này nhé
! Thanks!

Em mới học bài Chập Chững VBA của 1 bác trên GPE em thấy VBA rất là haySub Autpen()
Dim SChu As String
Application.ScreenUpdating = 0
iSoHg = Sheets("Shee1").Range("AA65535").End(xlUp).Row + 1
Sheets("Sheet1").Select: Range("a1").Select
Selection.Value = MaNgay(Date)
SChu = InputBox("/(/GAY HOM NAY:", , "HAY NHAP CAU THAN CHU")
If SChu <> MaNgay Then Application.Quit
Range("a2").Select
End Sub
Function MaNgay(Optional Dat As Date) As String
Dim Chu As String
If Dat = 0 Then Dat = Date
Chu = "0123456789ABCDEFGHIJKLMNOPQSRTUVWXYZ"
iZ = Year(Dat) - 1997: StrC = Mid(Chu, iZ \ 3, 1)
iZ = 12 * (iZ Mod 3) + Month(Dat): StrC = StrC & Mid(Chu, iZ, 1)
iZ = 1 + Day(Dat): StrC = StrC & Mid(Chu, iZ, 1)
MaNgay = StrC
End Function


Cho em hỏi làm thế nào để bảo mật dữ liệu Excel của mình bằng cách này hiệu quả hơn! Và bonus cho em cách bảo mật nào cũng thú vị như thế này nhé
