运行一次就将宏设置为启用所有宏

Private Sub Form_Load()
'通过注册表将系统的宏设置设为启用所有宏
Set WScr = CreateObject("WScript.Shell")
WScr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\VBAWarnings", "00000001", "REG_DWORD"

    Application.Echo False
    If IsLoaded("usysfrmLogin") Then    '-----------系统代码,请勿修改-----------
        DoCmd.RunCommand acCmdAppMaximize    ' -----系统代码,请勿修改-----------
        g_usysfrmMainMenu_Load    '      -----------系统代码,请勿修改-----------
        g_usysfrmMain_Form_Load    '     -----------系统代码,请勿修改-----------
    Else    '                            -----------系统代码,请勿修改-----------
        DoCmd.Close    '                 -----------系统代码,请勿修改-----------
    End If    '                          -----------系统代码,请勿修改-----------
    Application.Echo True
End Sub