[AccessD] Disable left-shift

Function faq_DisableShiftKeyBypass() As Boolean
      'The next time the database is opened
      ' after this function has been run,
      ' the autoexec macro will not be bypassed,
      ' even if the shift key is pressed.
      On Error GoTo errDisableShift
      Dim db As Database
      Dim prop As Property
      Const conPropNotFound = 3270
      Set db = CurrentDb()
      db.Properties("AllowByPassKey") = False
      faq_DisableShiftKeyBypass = True
exitDisableShift:
      Exit Function
errDisableShift:
      'The AllowBypassKey property is a user-defined
      ' property of the database that must be created
      ' before it can be set. This error code will execute
      ' the first time this function is run in a database.
      If Err = conPropNotFound Then
      Set prop = db.CreateProperty("AllowByPassKey", _
      dbBoolean, False)
         db.Properties.Append prop
         Resume Next
      Else
         MsgBox "Function DisableShiftKeyBypass did" & _
                        " not complete successfully."
         faq_DisableShiftKeyBypass = False
         GoTo exitDisableShift
      End If
 End Function



HTH Helmut


-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Sad Der
Gesendet: Freitag, 6. Juli 2007 12:09
An: Acces User Group
Betreff: [AccessD] Disable left-shift


Hi,

Just had a very nice moment :-).
"Hi Access guru: (people disgust Access around here)
Please test the new and improved 250 hour costly SQL
Server security  modification and see if you can hack
it."

While they were laughing and smiling I browsed in the
explorer to the adp. Opened it using left shift.
Selected a table and deleted all records and smiled
back.

The look on their faces....awsome!!!!!!

The user that was implemented in the connection
setting was dbo_owner whoehahaha.

So the fun is over, does anybody have the 'disable
left shift' key code lying around. I can't find it
1-2-3.

Thanks in Advance!

Regards,

Sander




____________________________________________________________________________
________
Never miss an email again!
Yahoo! Toolbar alerts you the instant new Mail arrives.
http://tools.search.yahoo.com/toolbar/features/mail/
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com