Selasa, 13 Oktober 2020

Re: [MSAccessProfessionals] Access Runtime Issues: Warnings and Macros

This is the script I have been using however the specific registry key depends on the version of MS Office. The script also downloads a copy of the front-end file and opens it.

'===================
' File: TrustCopyRun.vbs
'===================
   Const SystemFolder= 1
   Dim fso  'to be used for file related code
   Dim SysFolder
   Dim SysFolderPath
   dim strUserLogin
   Dim RegEdPath
   Dim strAppFolder
   Dim strAppName
   Dim strAppFile
   Dim strAppNetworkFile
'==============================================================
'  edit the values in the next three lines to match your application and network location
   strAppName = "MyAppName"
   strAppFile = "YourFrontEnd.accdb"
   strAppNetworkFile = "\\ServerName\shares\foldername\YourFrontEnd.accdb"
'==============================================================
   Set fso = wscript.CreateObject("Scripting.FileSystemObject")
   Set SysFolder =fso.GetSpecialFolder(SystemFolder)
   SysFolderPath= SysFolder.Path

   'initialize the script shell object
   Set WshShell = WScript.CreateObject("WScript.Shell")
   strUserLogin = WshShell.ExpandEnvironmentStrings("%USERNAME%")
   strAppFolder = "C:\users\" & strUserLogin & "\" & strAppName
   if not fso.FolderExists(strAppFolder) Then
      fso.CreateFolder strAppFolder
   End If

   'Office 12
   RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\"
   WshShell.RegWrite  RegEdPath  ,strAppName
   'Write the values into the registry
   WshShell.RegWrite  RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"
   WshShell.RegWrite  RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"

   'Office 14
   RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\"
   WshShell.RegWrite  RegEdPath  ,strAppName
   'Write the values into the registry
   WshShell.RegWrite  RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"
   WshShell.RegWrite  RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"

   'copy the application file from the network location to the local folder
   fso.CopyFile strAppNetworkFile ,strAppFolder & "\", 1
   'run the application
   Set xlApp = CreateObject("Excel.Application")
   set xlBook = xlApp.WorkBooks.Open(strAppFolder & "\" & strAppFile)



wscript.Quit




From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Doyce Winberry <doyce.winberry@xpo.com>
Sent: Tuesday, October 13, 2020 2:44 PM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: Re: [MSAccessProfessionals] Access Runtime Issues: Warnings and Macros
 

Duane,

 

The warnings thing makes sense. I'll try that. Would you happen to have a sample vbscript to set trusted folders. I did some registry edits to set trusted folders. I'm not sure if its that or the macro settings that are generating the security warning. I'd like to enable macros automatically and not get the warning.

 

Doyce Winberry

Manufacturing

Manager Systems

 

XPOLogistics

2001 Benton Street

Searcy, AR 72143 USA

O: +1 501-207-5973   M: +1 501-207-2269

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Duane Hookom
Sent: Tuesday, October 13, 2020 2:40 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] Access Runtime Issues: Warnings and Macros

 

[Warning: External sender, "Report Phish" for suspicious emails]

 

Hi Doyce,

I typically set warnings off and on immediately before and after running action queries. You can also use the Execute method.

 

You can run a vbscript to set/change your trusted folders.

 

Duane

 


From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> on behalf of Doyce Winberry <doyce.winberry@xpo.com>
Sent: Tuesday, October 13, 2020 2:29 PM
To: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io>
Subject: [MSAccessProfessionals] Access Runtime Issues: Warnings and Macros

 

Hello friends, 
I'm using Office 2016 and my company is cutting back on Office E3 licenses so I'm starting to work with the latest Access Runtime testing my accde files. So far, my first issue is the security warning "A potential security concern has been identified" message when the accde file is open. I click open but would really like for it to go away. In full Access, I setup trusted locations and enable macros. Also, I turn off warnings for action queries. For the runtime version I put the following code in the load event of the switchboard, docmd.setwarnings false. However, I'm still getting messages like I'm about to delete 55 records out of a temp table. What do I need to do to make that go away also?
Doyce 

 

[Do not open attachments or click links unless you can verify the sender. Click "Report Phishing" if the email looks suspicious.]

Tidak ada komentar:

Posting Komentar