Cách khóa phím và login bảo mật pdf

7. Cách khóa fím Shift
Bấm "modules" tab > New. (Bạn có thể mở 1 module khác nếu có sẵn)
* Lưu ý: Phải chắc chắn là thư viện DAO 3.6 được chọn:
Chọn Tools > References , tìm và chọn Microsoft DAO 3.6 Object Library
Chép function sau đây vào module và lưu với tên bất kỳ (khác
DisableShiftKeyBypass).
' Bắt đầu
Function DisableShiftKeyBypass() As Boolean
On Error GoTo errDisableShift
Dim db As Database
Dim prop As DAO.Property
Set db = CurrentDb()
On Error Resume Next
db.Properties.Delete "AllowByPassKey"
On Error GoTo errDisableShift
Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False, True)
db.Properties.Append prop
DisableShiftKeyBypass = True
exitDisableShift:
Set prop = Nothing
Set db = Nothing
Exit Function
errDisableShift:
MsgBox "Function DisableShiftKeyBypass did not complete successfully."
DisableShiftKeyBypass = False
Resume exitDisableShift
End Function
' Kết thúc
Vào Debug, Compile, và đóng module lại để lưu.
Tại database window, Gõ Ctrl-G để mở debug window.
Gõ: DisableShiftKeyBypass và bấm Enter.

Lần sau khi mở lại, phím Shift sẽ bị vô hiệu hóa.
(Bạn chỉ cần chạy 1 lần duy nhất - Trong trường hợp cần phục hồi lại phím Shift,
bạn sẽ cần đến file đã sao lưu, hoặc phục hồi từ một database khác).
8. Bảo mật không cho chỉnh sửa form và report trong file *.mdb
TOI GUI CHO BAN 1 MACRO de bao mat ACCESS tuyet voi
Nhung nho sao luu du phong truoc khi quay khong biet thi hoi toi

*****************************************
'Hàm ChangeProperty thay doi các thuoc tính cua CSDL
Function ChangeProperty(strPropName, varPropType, varPropValue)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_XuLyLoi
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_KetThuc:
Exit Function
Change_XuLyLoi:
'Thuoc tinh khong thay
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
'Không biet loi gì
ChangeProperty = False
Resume Change_KetThuc
End If
End Function

'Xu lý tình huong chon nút [Khóa database]
Private Sub cmdLock_Click()
'Bieu mau này duoc nap truoc
If txtPassword = "nguyenhuuhoang361983" Then
ChangeProperty "StartupForm", dbText, "Form1"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, False
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, False
'Không cho xài phím Shift de bo qua bieu mau frmKhoiDong
ChangeProperty "AllowBypassKey", dbBoolean, False
MsgBox "Co so du lieu dã duoc khóa! Ðe nghi dóng CSDL lai.", vbOKOnly,
"Thong bao"
cmdExit.SetFocus
cmdUnLock.Visible = True
cmdLock.Visible = False
txtPassword.Visible = True
Else
MsgBox "Ten nguoi su dung khong dung ! ", vbOKOnly, "Thong bao"
End If
txtPassword = ""
End Sub
'Xu lý tình huong chon nút [Mo database]
Private Sub cmdUnLock_Click()
'Không can bieu mau khoi dong nua
If txtPassword = "nguyenhuuhoang361983" Then
ChangeProperty "StartupForm", dbText, ""
ChangeProperty "StartupShowDBWindow", dbBoolean, True

ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
MsgBox "Co so du lieu dã duoc mo khóa ! Ðe nghi dóng CSDL lai.", vbOKOnly,
"Thong bao"
cmdExit.SetFocus
cmdLock.Visible = True
cmdUnLock.Visible = False
txtPassword.Visible = True
Else
MsgBox "Ten nguoi su dung khong dung !", vbOKOnly, "Thong bao"
End If
txtPassword = ""
End Sub
'Xu lý tình huong khi mo bieu mau
Private Sub Form_Open(Cancel As Integer)
Dim dbs As Database
Set dbs = CurrentDb
On Error GoTo KhongCoThuocTinh_Err
If dbs.Properties("AllowBypassKey") Then
cmdLock.Visible = True
cmdUnLock.Visible = False
txtPassword.Visible = True
Else
cmdLock.Visible = False
cmdUnLock.Visible = True
txtPassword.Visible = True

End If
Exit Sub
KhongCoThuocTinh_Err:
cmdLock.Visible = True
cmdUnLock.Visible = True
txtPassword.Visible = True
txtPassword = ""
End Sub
'Khi nguoi ta go mat khau va an phím Enter
Private Sub txtPassword_LostFocus()
If txtPassword = "nguyenhuuhoang361983" Then
cmdUnLock.Visible = True
End If
End Sub
Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click
DoCmd.Close
Exit_cmdExit_Click:
Exit Sub
Err_cmdExit_Click:
MsgBox Err.Description
Resume Exit_cmdExit_Click
End Sub
************************************************
code nay do nguoi khac viet , toi chi tham khao thoi