Đánh giá chủ đề:
  • 6 Votes - 2.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Set Security Low cho Access
#1
' site: http://thuthuataccess.com
' 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.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 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


File đính kèm
.zip   setlowSercurity.zip (Kích cỡ: 13.05 KB / Tải về: 290)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He , dau tay buon , ZUNGNN , KínhCận
#2
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ữ ký của dunglovenhac Xin chào, mình là dunglovenhac, Tham gia http://thuthuataccess.com/forum từ ngày 06-03 -12.
Reply
Những người đã cảm ơn Noname
#3
(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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(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

Noname dụ dỗ ban đầu đó em ui... ^..^
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
(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

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.
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(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?
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(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)
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(26-03-12, 12:03 PM)ledangvan Đã viết:
(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)
Thế nó có báo gì không?
Mã:
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Thế nó có báo gì không?
Mã:
MsgBox "Set successfull " & F & ". Quit and reOpen to Effect"

Nó có báo bác ơi nhưng chế độ security nó không thay đổi
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
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
cái này đâu thực hiện được reg đâu bạn, bạn xem lại đi bạn
Chữ ký của standapro Xin chào, mình là standapro, Tham gia http://thuthuataccess.com/forum từ ngày 14-06 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,306 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,740 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,711 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 380 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
Star Code tạo Serial, License Key cho Access nguoilinh229 3 503 06-11-15, 02:07 PM
Bài mới nhất: kieu manh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ