Dairy Farmer
Registered User.
- Local time
- Today, 07:54
- Joined
- Sep 23, 2010
- Messages
- 244
Set the app path as a trusted location in Package Solution Wizard when making your installer.
Or via VBA
Code:
Additional Registry Keys
Root = CU
Key = Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\MyApp
Name = Path
Value = c:MyApp
Root = CU
Key = Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\MyApp
Name = AllowSubfolders
Value = #00000001Or via VBA
Code:
Function TrustedLocation()
Dim RegKey As String
Dim RegObj
Dim Value As String
Dim WTRTL As Object
RegKey = "HKCU\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\MyApp\Path"
Value = "c:\MyApp"
Set WTRTL = CreateObject("WScript.Shell")
WTRTL.RegWrite RegKey, Value, "REG_SZ"
End Function
Code:
Function TrustedLocationAllowSubFolders()
Dim RegKey As String
Dim RegObj
Dim Value As String
Dim TLAS As Object
RegKey = "HKCU\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\MyApp\AllowSubFolders"
Value = "1"
Set TLAS = CreateObject("WScript.Shell")
TLAS.RegWrite RegKey, Value, "REG_DWORD"
End Function
Last edited:
