Noname > 20-11-10, 07:27 PM
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security]
"Level"=dword:00000001Sub setReg()
' site: http://thuthuataccess.com
' Write by Noname
' Vui long dung remove thong tin site va tac gia neu ban dung hoac share lai code nay
Dim F As String
F = "regedit.exe /s " & CurrentProject.Path
CurrVerAccess = Application.Version
Select Case Application.Version
Case "11.0"
F = F & "\ser2k3.reg"
Call Shell(F)
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"
DoCmd.Quit
Case Else
MsgBox "Phien ban hien tai chung toi chua co file reg"
End Select
End SubPrivate Sub Command0_Click()
setReg
End Subdunglovenhac > 24-03-12, 11:14 PM
Noname > 24-03-12, 11:53 PM
(24-03-12, 11:14 PM)dunglovenhac Đã viết: Em chào Anh Noname: Em là thành viên mới được Admin quan tâm em thấy vui lắm. Cảm ơn anh thật nhìu Anh nhé!
Chúc anh sức khoẻ, thành đạt hơn nữa.
Anh cho em hỏi tí Anh biết Nhut Tân ở Đồng Tháp phải ko? Em là bạn của Nhut Tan đó anh? Có gì mong anh chỉ giáo thêm.
Em chào anh!!
bomnhauag > 26-03-12, 01:57 AM
(24-03-12, 11:53 PM)Noname Đã viết:(24-03-12, 11:14 PM)dunglovenhac Đã viết: Em chào Anh Noname: Em là thành viên mới được Admin quan tâm em thấy vui lắm. Cảm ơn anh thật nhìu Anh nhé!
Chúc anh sức khoẻ, thành đạt hơn nữa.
Anh cho em hỏi tí Anh biết Nhut Tân ở Đồng Tháp phải ko? Em là bạn của Nhut Tan đó anh? Có gì mong anh chỉ giáo thêm.
Em chào anh!!
Chào mừng bạn gia nhập Thủ thuật Access. Nhựt tân trong này có nick Mr Lu. Nếu bạn của Nhựt Tân chắc cũng giỏi lắm! :P
ledangvan > 26-03-12, 10:33 AM
(20-11-10, 07:27 PM)Noname Đã viết: ' site: http://thuthuataccess.co.cc
' Write by Noname
' Vui lòng giữ thong tin site và tác giả nếu bạn dùng hoặc share lại code này
---------------------------------------------------------------------------------------
Như các bạn dùng Access đã biết. Mặc định khi cài thì chế độ sercurity của Access được set ở chế độ medium, nên khi mở Access, nó hiện bảng Security Warning rồi mới cho mở file. Thủ Thuật này cho phép bạn tạo 1 nút nhấn, cho phép người dùng tự Set chế độ sercurity thành low để lần sau không hỏi nữa!
Nguyên lý:
Mặc định, giá trị trong registry ở khóa HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security\ "Level" =2 vì vậy, ta phải set nó thành 1 thì lần sau nó không hỏi nữa.
Bước 1: Mở notepab, copy nội dung dưới đây vào và lưu lại với tên ser2k3.reg:
Mã:Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security]
"Level"=dword:00000001
Copy file này vào cùng thư mục với chương trình của bạn.
Tạo 1 đoạn code như sau:
Mã:Sub setReg()
' site: http://thuthuataccess.co.cc
' Write by Noname
' Vui long dung remove thong tin site va tac gia neu ban dung hoac share lai code nay
Dim F As String
F = "regedit.exe /s " & CurrentProject.Path
CurrVerAccess = Application.Version
Select Case Application.Version
Case "11.0"
F = F & "\ser2k3.reg"
Call Shell(F)
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"
DoCmd.Quit
Case Else
MsgBox "Phien ban hien tai chung toi chua co file reg"
End Select
End Sub
Giờ bạn có thể gọi đoạn code đó trong 1 sự kiện nút nhấn hoặc trong sự kiện load form
Mã:Private Sub Command0_Click()
setReg
End Sub
Chú ý: đối với Access XP bạn phải thay các chữ "11.0" thành 10.0 ( hoặc 12.0 đối với 2k7 )
Các bạn cũng có thể download demo đính kèm bên dưới về thử!
Chúc thành công
Noname > 26-03-12, 11:32 AM
ledangvan > 26-03-12, 12:03 PM
(26-03-12, 11:32 AM)Noname Đã viết:(26-03-12, 10:33 AM)ledangvan Đã viết: Bác Noname ơi sao em copy dùng thử mà nó chẳng thay đổi gì nhỉ, khi em nháy đúp vào FIle ser2k3 thì nó mới thực hiện.
Office của bạn là mấy, file của bạn đâu. Có chép file ser2k3.reg cùng thư mục với file access của bạn không?
Noname > 26-03-12, 01:51 PM
(26-03-12, 12:03 PM)ledangvan Đã viết:Thế nó có báo gì không?(26-03-12, 11:32 AM)Noname Đã viết:(26-03-12, 10:33 AM)ledangvan Đã viết: Bác Noname ơi sao em copy dùng thử mà nó chẳng thay đổi gì nhỉ, khi em nháy đúp vào FIle ser2k3 thì nó mới thực hiện.
Office của bạn là mấy, file của bạn đâu. Có chép file ser2k3.reg cùng thư mục với file access của bạn không?
Office của em là 2003 em đã copy File setlowSercurity của bác và File Serk.reg cùng vào một thư mục sao đó chạy File setlowSercurity và thử ấn nút trong đó mà không thấy thay đổi gì (Em đã vào Tool ... Macro .. để đổi nó thành Medium)
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"ledangvan > 26-03-12, 02:25 PM
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"standapro > 24-06-15, 12:58 AM
Sub setReg()
' site: http://thuthuataccess.co.cc
' Write by Noname
' Vui long dung remove thong tin site va tac gia neu ban dung hoac share lai code nay
Dim F As String
F = "regedit.exe /s " & CurrentProject.Path
CurrVerAccess = Application.Version
Select Case Application.Version
Case "11.0"
F = F & "\ser2k3.reg"
Call Shell(F)
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"
DoCmd.Quit
Case Else
MsgBox "Phien ban hien tai chung toi chua co file reg"
End Select
End Sub