• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tắt Security warning của Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Tắt Security warning của Access
• Tắt Security warning của Access

• Tắt Security warning của Access

  Noname > 15-08-10, 01:40 PM

  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‎
  

• RE: Tắt Security warning của Access

  x_vananh_x > 27-05-11, 07:41 PM

  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ả.

• RE: Tắt Security warning của Access

  khaccuong > 30-05-11, 12:59 PM

  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

• RE: Tắt Security warning của Access

  lehongduc > 24-09-17, 12:58 PM

  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"
  
  
  - 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
  
  
  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:
  

• RE: Tắt Security warning của Access

  hoaqldd33 > 14-07-18, 08:14 PM

  Cảm ơn bạn Đức bạn có thể cho mình xin Demo đc k

• RE: Tắt Security warning của Access

  ngochuong279 > 15-10-20, 09:54 AM

  Bạn có thể cho mình xin demo mã nguồn mở được không à
  mail:hangochuong09@gmail.com
• Bài trước Bài tiếp