سلام
اگر exeدرست کردید اینجا قرار بدین .همه استفاده کنند
ممنون .
ضمنا
شما میتوانید متن زیر را در یک فایل تکست تایپ کنید و سپس با پسوند .reg ذخیره نموده و انرا اجرا کنید .
save as a .reg
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\A ccess\Security]
"VBAWarnings"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\A ccess\Security\Trusted Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\A ccess\Security\Trusted Locations\Location0]
"Path"="%userprofile%\\my documents\\"
"Description"="my docs"
"Date"="14/03/2011 5:39 p.m."
"AllowSubFolders"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\A ccess\Security\Trusted Locations\Location2]
"Path"="C:\\Program Files\\Microsoft Office\\Office12\\ACCWIZ\\"
"Description"="Access default location: Wizard Databases"
"AllowSubFolders"=dword:00000001
روش دوم vb script
متن زیر را به صورت text file ذخیره کنید و پسوند انرا به
VBextention تغییر دهید.
Option Explicit
Const HKEY_CURRENT_USER = &H80000001
Dim strProgram
Dim strFolder
Dim strDescription
Dim blnAllowSubFolders
Dim blnAllowNetworkLocations
Dim blnCurrentTrusted
Dim strParentKey
Dim objRegistry
Dim intHighest
Dim arrChildKeys
Dim strChildKey
Dim strValueName
Dim strNewKey
Dim strFullPath
Dim strValue
strProgram = "Access" 'Name of Microsoft program that's being set for
strFolder = "D:\Custom\Folder" 'Path to set as a Trusted Location
strDescription = "my custom folder" 'Description of the Trusted Location
blnAllowSubFolders = True 'Trust sub folders (True or False)
blnAllowNetworkLocations = False 'Trust a network location (True or False)
strParentKey = "Software\Microsoft\Office\14.0\" & strProgram & "\Security\Trusted Locations"
intHighest = -1
blnCurrentTrusted = False
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
objRegistry.EnumKey HKEY_CURRENT_USER, strParentKey, arrChildKeys
'get the highest key number'
On Error Resume Next
For Each strChildKey In arrChildKeys
If Left(strChildKey,8)="Location" Then
If CInt(Mid(strChildKey, 9)) > intHighest Then
intHighest = CInt(Mid(strChildKey, 9))
End If
'check to see if the folder is already trusted'
strValueName = "Path"
strFullPath = strParentKey & "\" & strChildKey
objRegistry.GetExpandedStringValue HKEY_CURRENT_USER,strFullPath,strValueName,strValu e
If strValue = strFolder Then
blnCurrentTrusted = True
End If
End If
Next
If blnCurrentTrusted Then
MsgBox """ & strFolder & """ & " is already a Trusted Location.", vbInformation
Else
'add new'
If intHighest = 999 Then
MsgBox "Location count exceeded - unable to write trusted location to registry", vbInformation
Else
strNewKey = strParentKey & "\Location" & CStr(intHighest + 1)
objRegistry.CreateKey HKEY_CURRENT_USER, strNewKey
objRegistry.SetStringValue HKEY_CURRENT_USER, strNewKey, "Path", strFolder
objRegistry.SetStringValue HKEY_CURRENT_USER, strNewKey, "Description", strDescription
objRegistry.SetStringValue HKEY_CURRENT_USER, strNewKey, "Date", CStr(Now())
If blnAllowSubFolders Then
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strNewKey, "AllowSubFolders", 1
End If
If blnAllowNetworkLocations Then
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strParentKey, "AllowNetworkLocations", 1
End If
MsgBox """ & strFolder & """ & " added as a Trusted Location.", "Success"
End If
End If
این همکد دیگه با پسوند .regذخیره کنید
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location0]
"Path"="D:\\Colin\\My Documents"
"AllowSubfolders"=dword:00000001
"Description"="My Documents"
"Date"="29/06/2017 17:50"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location1]
"Path"="G:\\MyFiles"
"AllowSubfolders"=dword:00000001
"Description"="My Files"
"Date"="29/06/2017 17:50"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location10]
"Path"="C:\\Programs\\MendipDataSystems"
"AllowSubFolders"=dword:00000001
"Description"="Mendip Data Systems"
"Date"="08/12/2015 19:51"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location2]
"Path"="C:\\Program Files\\Microsoft Office\\Office14\\ACCWIZ"
"Description"="Access default location: Wizard Databases"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location3]
"Path"="G:\\MyFiles\\CEO"
"AllowSubfolders"=dword:00000001
"Description"="CEO"
"Date"="29/06/2017 17:50"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location4]
"Path"="G:\\MyFiles\\SchoolDataAnalyser"
"AllowSubfolders"=dword:00000001
"Description"="SDA / SDA Link"
"Date"="29/06/2017 17:50"
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\A ccess\Security\Trusted Locations\Location5]
"Path"="G:\\MyFiles\\SPS"
"AllowSubfolders"=dword:00000001
"Description"="SPS"
"Date"="29/06/2017 17:50"