• Trang chủ click to expand contents 

  • Set Security Low cho Access

  • RE: Set Security Low cho Access

    kieu manh > 24-06-15, 07:21 PM

    (24-06-15, 12:58 AM)standapro Đã viết:
    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
    Tặng Cho Bạn Code Sau... Code này Mình viết trên Form VB6 sử dụng cho Excel bạn Copy về sửa lại key Registry  và dòng Này của Access    App.Path &  Là OK
    Chúc Thành Công
    Access 2003 Mình ko sử dụng nên ko biết key Registry Của nó
    Mã PHP:
    Public Sub Enable_Macros()
        Dim MyReg As String, Mybat As String
        MyReg     = App.Path & "\Register.reg"
        Mybat = App.Path & "\temp.bat"
        Open MyReg For Output As 1
            Print #1, "REGEDIT4" & vbNewLine & _
        "[HKEY_CURRENT_USER\Software\Microsoft\Office\" & CreateObject("Excel.Application").Version & _
        "    \Excel\Security]" & vbNewLine & """AccessVBOM""" & "=dword:00000001"
        Print #1, "    REGEDIT4" & vbNewLine & _
        "    [HKEY_CURRENT_USER\Software\Microsoft\Office\" & CreateObject("Excel.Application").Version & _
        "    \Excel\Security]" & vbNewLine & """VBAWarnings""" & "=dword:00000002" ''chi can thay doi "=dword:00000002" so 2 thanh so 1 la ok
        Close #1
        Open Mybat For Output As 2
        Print #2, "    regedit /s Register.reg" & vbNewLine & _
        "    Del Register.Reg" & vbNewLine & "Del temp.bat"
        Close #2
        Shell Mybat, vbHide
    End Sub