[AccessD] MDE & Otter package installers

What?  What?!  What's the DDL property?  I wonder if I sent you my mde 
you could see if you could crack it?  I thought I was being so careful.  
At worst it would expose the queries, yes?  The back end is an mdb and 
deliberately exposed. I'm just trying to protect the front end.

TIA

Rocky


Robert Gracie wrote:
> Hey Rocky, 
>  Be careful, unless you set the DDL property to True when creating the
> property, It's fairly simple to bypass the properties.  
>
>
> Robert Gracie
> www.gbsysnow.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> Joe:
>
> SOme of the objects, like queries, are still visible unless you do more
> locking:
>
> You can add some locking code like :
>
> Sub SetStartupProperties(TheOpeningForm As String)
>
> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>
>
>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>     ChangeProperty "AllowFullMenus", dbBoolean, False
>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>     ChangeProperty "AllowBypassKey", dbBoolean, False
>     ChangeProperty "MenuBar", dbBoolean, False
>    
>
> Exit_SetStartupProperties:
> Exit Sub
>
> Err_SetStartupProperties:
>
>     Select Case Err
>     Case 0      '.insert Errors you wish to ignore here
>         Resume Next
>     Case Else   '.All other errors will trap
>         Beep
>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
> Err.Number & " - " & Err.Description & vbCrLf & "In: 
> ezmrp-opener.SetStartupProperties"
>         Resume Exit_SetStartupProperties
>     End Select
>
>     Resume 0    '.FOR TROUBLESHOOTING
>
> End Sub
>
> where the change property function:
>
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     Dim dbs As Object, prp As Variant
>     Const conPropNotFoundError = 3270
>
>     Set dbs = CurrentDb
>     On Error GoTo Change_Err
>     dbs.Properties(strPropName) = varPropValue
>     ChangeProperty = True
>
> Change_Bye:
>     Exit Function
>
> Change_Err:
>     If Err = conPropNotFoundError Then    ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, _
>             varPropType, varPropValue)
>         dbs.Properties.Append prp
>         Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
> also need unlocking code and a back door to get back into your mde.
>
>
> Rocky
>
>
> Joe Hecht wrote:
>   
>> How locked is my project when I make an MDE or use VSTO or
>> other install packages.
>>
>>  
>>
>> If I make a label for a text box and caption it auto, can
>> they come back & change the caption to car as an example?
>>
>>  
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>  
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com