[AccessD] Access 2003, Runtime, and Built-in Security - SOLVED

Thanks to all for the ideas, suggestions, and links.  Marty had exactly what I needed, a registry setting needed to be changed / created.  Worked like a charm!  Using the Access Runtime, I had no way to set the local Security Level.

	-----Original Message----- 
	From: MartyConnelly [mailto:martyconnelly at shaw.ca] 
	Sent: Mon 8/2/2004 1:42 PM 
	To: Access Developers discussion and problem solving 
	Cc: 
	Subject: Re: [AccessD] Access 2003, Runtime, and Built-in Security
	

	<SNIP>
	A couple of other ways around this.
	
	Get your network guy to change the following registry settings of the
	following key, should help you change the security level of the macro in
	Access 2003. He should be able to change this globally across the
	network for each client PC, there is even a way to do this from Access
	VBA code using WMI with proper network permissions.
	
	HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security\Level
	
	If the value is 1, then the macro security of Access 2003 is set to low.
	If the value is 2, then the macro security of Access 2003 is set to medium.
	If the value is 3, then the macro security of Access 2003 is set to high.
	
	WARNING: If you use Registry Editor incorrectly, you may cause serious
	problems that may require you to reinstall your operating system.
	Microsoft cannot guarantee that you can solve problems that result from
	using Registry Editor incorrectly. Use Registry Editor at your own risk.
	
	
	Or
	
	You could also put this vbs code in a file to execute in a user's
	shortcut. Just create .vbs file and add to desktop shortcut.
	You can create a VB script file with this code and start your app using
	this. (Code is from an MS MSDN article)
	http://support.microsoft.com/?kbid=235422
	This will have problems if vbscript disabled or you are using mdw security
	
	add to file MyMDB.vbs
	
	Const cDatabaseToOpen = "C:\<FileToOpen>.mdb"
	
	On Error Resume Next
	Dim AcApp
	Set AcApp = CreateObject("Access.Application.11")
	If AcApp.Version >= 11 Then
	    AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
	End If
	AcApp.Visible = True
	AcApp.OpenCurrentDatabase cDatabaseToOpen
	If AcApp.CurrentProject.FullName <> "" Then
	    AcApp.UserControl = True
	Else
	    AcApp.Quit
	    MsgBox "Failed to open '" & cDatabaseToOpen  & "'."
	End If