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ề Autpen, Khi bật Excel AAAA có Macro sau lên cần có 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à hay , Và có một ứng dụng em mới biết là:tạo Macro Autpen để 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.Sub 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é ! Thanks!