[AccessD] Locked down database

Dan Waters df.waters at outlook.com
Tue Feb 3 11:14:38 CST 2015


Hi Tina,

As I have never used Access 2013, I am not the person to ask.

Can anyone else answer Tina's question?  

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris
Fields
Sent: Tuesday, February 03, 2015 11:02 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Locked down database

Hi Dan,

Access 2013 is not liking the ChangeProperty line (first appears on line
12).  What is equivalent command?

TNF

Tina Norris Fields
tinanfields-at-torchlake-dot-com
231-322-2787

On 2/2/2015 8:53 PM, Dan Waters wrote:
> Hi Doug,
>
> A few years ago I wrote an Access mdb as a tool to clear the Shift 
> Bypass lockout.
>
> Create a new ACCDB file, and put this code into a module.  Add a new 
> macro named AutoExec to run the function UnlockAccessFile().  You will 
> need to hold down the shift key to get into the code in this file.  I 
> wrote this to work with the MDB files I work with, but it might also work
on an ACCDB.
>
> Save the Access file and name it Allow Bypass (works for me).
>
> If you get an error send it to me and let me know what you were trying 
> to do.
>
> Now open the Allow Bypass access file, locate the Access file you want 
> to get opened, and see if it works.  Also - it might be that the Allow 
> Bypass tool is actually working, but something else in your file is 
> still locking you out - but I don't know what would do that.
>
> Good Luck!
> Dan
>
> -----------------------------------
> Option Compare Database
> Option Explicit
>
> Private MappSource As Access.Application
>
> Public Function UnlockAccessFile()
> 1     On Error GoTo EH
>
>            '-- Note:  Run this application from this procedure.
>
>            Dim stgSourceFilePath As String
>            Dim stgPrompt As String
>            
>            '-- Select Access File
> 2         stgSourceFilePath = SelectFile
> 3         If stgSourceFilePath = "File Not Selected" Or stgSourceFilePath
=
> "" Then
> 4             MsgBox "Can't find file!", vbExclamation + vbOKOnly, "No
File"
> 5             Exit Function
> 6         End If
> 7         DoEvents
>            
>            '-- Set Source MDB or ACCDB as the CurrentDatabase
> 8         Set MappSource = New Access.Application
> 9         MappSource.Visible = False
> 10        MappSource.OpenCurrentDatabase stgSourceFilePath
> 11        DoEvents
>            
> 12        ChangeProperty "AllowBypassKey", dbBoolean, True  '-- Allow
shift
> key bypass
> 13        ChangeProperty "AllowSpecialKeys", dbBoolean, True  '-- Allow
F11
> key
> 14        ChangeProperty "AllowBreakIntoCode", dbBoolean, True
> 15        ChangeProperty "AllowFullMenus", dbBoolean, True
> 16        ChangeProperty "StartupShowDBWindow", dbBoolean, True
>            
> 17        MappSource.CloseCurrentDatabase
> 18        Set MappSource = Nothing
>            
> 19        MsgBox "Your file at " & stgSourceFilePath & " is now
available!",
> vbInformation + vbOKOnly, "File Now Available"
>            
> 20        Exit Function
>            
> EH:
> 21        stgPrompt = "ERROR: SelectFile" & vbNewLine & vbNewLine _
>                & "Line:            " & Erl & vbNewLine _
>                & "Number:        " & Err.Number & vbNewLine _
>                & "Description: " & Err.Description
> 22        MsgBox stgPrompt, vbExclamation + vbOKOnly
> 23        Stop
>            
> End Function
>
> Private Function SelectFile() As String
> 1         On Error GoTo EH
>
>            Dim fDialog As Office.FileDialog
>            Dim stgPrompt As String
>            Dim varFile As Variant
>
> 2         Set fDialog = FileDialog(msoFileDialogFilePicker)
>
> 3         With fDialog
>
> 4             .AllowMultiSelect = False
> 5             .InitialView = msoFileDialogViewList
> 6             .InitialFileName = CurrentProject.Path
> 7             .Title = "Select the Access file."
>
> 8             .Filters.Clear
> 9             .Filters.Add "Access Databases", "*.MDB"
> 10            .Filters.Add "Access Databases", "*.ACCDB"
>                '.Filters.Add "Access Projects", "*.ADP"
>
>                '-- Show the dialog box. If the .Show method returns 
> True, the _
>                 user picked at least one file. If the .Show method returns
_
>                 False, the user clicked Cancel.
> 11            If .Show = True Then
> 12                For Each varFile In .SelectedItems
> 13                    SelectFile = varFile
> 14                Next varFile
> 15            Else
> 16                SelectFile = "File Not Selected"
> 17            End If
>
> 18        End With
>
> 19        Exit Function
>
> EH:
> 20        stgPrompt = "ERROR: SelectFile" & vbNewLine & vbNewLine _
>                        & "Line:            " & Erl & vbNewLine _
>                        & "Number:        " & Err.Number & vbNewLine _
>                        & "Description: " & Err.Description
> 21        MsgBox stgPrompt, vbExclamation + vbOKOnly
> 22    Stop
>
> End Function
>
> Public Function ChangeProperty(stgPropName As String, varPropType As 
> Variant, varPropValue As Variant) As Boolean
> 1     On Error GoTo EH
>
>            Dim prp As DAO.Property
>            Dim stgPrompt As String
>            Dim dbs As DAO.Database
>            
> 2         Set dbs = MappSource.DBEngine(0)(0)
>
> 3         dbs.Properties(stgPropName) = varPropValue
>
> 4         ChangeProperty = True
>
> XH:
> 5         Exit Function
>
> EH:
> 6         Select Case Err.Number
>
>                Case 3270
>                    '-- Add property if not already created
> 7                 Set prp = DBEngine(0)(0).CreateProperty(stgPropName,
> varPropType, varPropValue)
> 8                 DBEngine(0)(0).Properties.Append prp
> 9                 Set prp = Nothing
> 10                Resume Next
>
> 11            Case Else
> 12                stgPrompt = "ERROR: SelectFile" & vbNewLine & vbNewLine
_
>                        & "Line:            " & Erl & vbNewLine _
>                        & "Number:        " & Err.Number & vbNewLine _
>                        & "Description: " & Err.Description
> 13                MsgBox stgPrompt, vbExclamation + vbOKOnly
> 14                Stop
>
> 15        End Select
>
> End Function
>
> ---------------------------------
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Steele
> Sent: Monday, February 02, 2015 16:35 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Locked down database
>
> I've just been asked by an old client to 'rescue' a database so it can 
> be developed again.  This db was left in a locked down state of some 
> kind by an ex-employee of theirs. It wasn't an amicable parting :)
>
> The database is in Access 2007 format.  It's not password protected, 
> and it is in .accdb format, not accde. The 'hold down the shift key to
open'
> option has been bypassed.  There is no 'design view' option when you 
> right click on a form, and of course all menus have been hidden.  I 
> tried creating an blank db and importing, but the forms list in the 
> import window is greyed out.
>
> Does anyone have any suggestions?
>
> Thanks,
> Doug
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list