Đánh giá chủ đề:
  • 5 Votes - 3.4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tắt Security warning của Access
#1
Hỏi

khi mở database thì xuất hiện thông báo “Security warning Certain content in the database has been disabled” và chọn nút option thì xuất hiện tiếp bảng thông báo và phải chọn Enble this content.
Xin các bạn hướng dẫn viết code để khi sử dụng bất kỳ máy tính nào khi mở database này lên không còn xuất hiện thông báo nữa và mặc định là chọn Enble this content.

Đáp
Cái này là tùy chọn của hệ thống, không liên quan chương trình của bạn.
Để lần sau hệ thống không còn hỏi nữa, bạn mở ms Access lên. Vào Tool->macro ->sercurity. Chọn Low-> OK
--------------------------------------------------------------------
Cách Khác:
Tổng quát, vấn đề này do Windows quản lý trong registry, vì vậy bạn soạn 1 file text và chuyển thành đuôi .reg với nội dung sau. :

Code:
Mã:
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security]
"Level"=dword:00000001

Save lại và run trên máy có chạy ứng dụng Access
Chú ý, đây là mình đang dùng với Access2003
Bạn có thể sửa thông số tương ứng cho các bản Office khác.ví dụ Office 2007 thì đổi thành 12.0

AccessSer.rar‎
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thuc1605
#2
Xin chỉ rõ cách này được không ? Sao e thử cách vào Tool->macro ->sercurity. Chọn Low-> OK nhưng trong office 2007 lại không thấy nên không làm được.
Cách 2 ì vậy bạn soạn 1 file text và chuyển thành đuôi .reg đã làm thử nhưng vẫn không có kết quả.
Chữ ký của x_vananh_x Xin chào, mình là x_vananh_x, Tham gia http://thuthuataccess.com/forum từ ngày 27-05 -11.
Reply
Những người đã cảm ơn
#3
Tắt Security warning của Access 2007

Bước 1:
http://farm2.anhso.net/pic/o/4494/305201...nh-1-2.bmp
Bước 2:
http://farm2.anhso.net/pic/o/4494/305201...nh-1-3.bmp
Bước 3:
http://farm2.anhso.net/pic/o/4494/305201...nh-1-4.bmp
Bước 4:
http://farm2.anhso.net/pic/o/4494/305201...nh-1-1.bmp
Bước 5:
KHởi động lại access là ok

Chúc bạn thành Công
Chữ ký của khaccuong Xin chào, mình là khaccuong, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#4
Chào các Bạn,

Tôi vừa nhận được email của 1 Bạn hỏi về vấn đề này, thêm 1 trường hợp áp dụng là khi chạy với bản Runtime của Microsoft Access 2003.
Xin được trả lời chung như sau:
1. Nếu Bạn chạy ứng dụng trên bộ Microsoft Access 2003 đã được cài đặt bình thường:
Vào bên trong Access và khai báo Macro Security Level ở mức "Low" như 2 ảnh bên dưới là được:
- Gọi cửa sổ khai báo từ menu "Tools", chọn mục lệnh "Macro \ Security"
[Hình: njqb4oes2i2gfb74g.jpg]

- Trên cửa sổ Security được mở ngay sau đó, chọn mức "Low" như ảnh bên dưới và bấm OK
[Hình: r5rwq4d6qbg0cx44g.jpg]

2. Nếu Bạn viết ứng dụng và phân phối ứng dụng đó kèm theo bản Runtime của Microsoft Access 2003 thì cần phải viết thêm tiện ích cho phép người sử dụng ứng dụng tùy định lại chế độ "Macro Security Level", vì bản Runtime không cho phép Bạn mở cửa sổ khai báo như đã nêu ở trên.
Có nhiều cách để tùy định lại chế độ "Macro Security Level", nhưng cách dễ nhất là cập nhật lại Registry của Windows. Mã lệnh cũng rất đơn giản như sau:
Vì Registry của Windows 32-bit khác với Windows 64-bit nên ta cần 1 Function kiểm tra xem Windows đang sử dụng là loại nào. Function đó như sau:


+ Ở đầu module, tại đoạn khai báo chung của module (General Declaration) nhập vào nọi dung khai báo sau đây:
Mã:
Option Explicit

Type SYSTEM_INFO
    wProcessorArchitecture As Integer
    wReserved As Integer
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOrfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    wProcessorLevel As Integer
    wProcessorRevision As Integer
End Type

Declare Sub GetNativeSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Declare Function GetCurrentProcess Lib "kernel32" () As Long
+ Và Function Kiểm tra Windows như sau:
Mã:
Public Function Is64BitProcessor() As Boolean
   Const PROCESSOR_ARCHITECTURE_AMD64 As Integer = 9
   Const PROCESSOR_ARCHITECTURE_IA64 As Integer = 6
   Dim si As SYSTEM_INFO

   GetNativeSystemInfo si

   Is64BitProcessor = (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 Or si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64)
End Function

+ Procedure dùng để ghi giá trị vào Registry của Windows:
Mã:
Sub RegKeySave(i_RegKey As String, i_Value As String, Optional i_Type As String = "REG_SZ")

   'i_Type có các giá trị sau đây chỉ thị kiểu giá trị của khóa Registry:
   'REG_SZ 
   'REG_DWORD
   'REG_EXPAND_SZ
   'REG_BINARY
   Dim myWS As Object
   Set myWS = CreateObject("WScript.Shell")
   myWS.RegWrite i_RegKey, i_Value, i_Type
   Set myWS = nothing
End Sub
 

+ Function dùng để thiết lập lại chế độ "Macro Security Level":
Mã:
Function SetSecurityLevel(vLevel As Integer)
   'With Windows 64-bit
   'HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\11.0\Access\Security\Level
   '
   'With Windows 32-bit
   '"HKEY_LOCAL_MACHINE\Software\Microsoft\Office\11.0\Access\Security\Level"
   '
   'Value Set:
   '0= very high
   '1 = low
   '2= medium
   '3=high


   Dim vSt As String
   vSt = "0000000" & vLevel
   If Is64BitProcessor() = True Then
       RegKeySave "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\11.0\Access\Security\Level", vSt, "REG_DWORD"
   Else
      RegKeySave "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Access\Security\Level", vSt, "REG_DWORD"
   End If
End Function

Với Code VBA như trên, các Bạn dễ dàng thiết kế được cửa sổ tiện ích cho phép người sử dụng tùy định lại chế độ "Macro Security Level" như ảnh bên dưới:
[Hình: u1pnb6ja0fjfx0s4g.jpg]
Chữ ký của lehongduc Lê Hồng Đức
Số ĐT: 0913.941.144
Email: lhongduc@gmail.com, lehongduc@quantribanhang.vn
Website: http://quantribanhang.vn
Reply
Những người đã cảm ơn maidinhdan , cpucloi


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Lightbulb [Hỏi] Ghi lại mọi thay đổi diễn ra trong access toidjtjmtoi 2 115 19-09-17, 11:06 AM
Bài mới nhất: toidjtjmtoi
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 15 3,287 31-03-17, 12:20 AM
Bài mới nhất: kieu manh
  nén file Access bằng VBA Noname 17 7,270 30-03-17, 05:51 PM
Bài mới nhất: maidinhdan
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 17 6,787 22-03-17, 01:12 PM
Bài mới nhất: trangdv.pchg
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 2 658 10-03-17, 10:11 AM
Bài mới nhất: vulhu06

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ơ