Como impor ou desactivar as opções de arranque num projecto de base de dados do Access

Este artigo descreve como desactivar a funcionalidade da tecla SHIFT que permite ignorar as opções de arranque. Este artigo também descreve como impor as opções de arranque num projecto de base de dados do Microsoft Access.

As opções de arranque definidas para um ficheiro do Access determinam o aspecto que o ficheiro terá e o respectivo comportamento quando for aberto. Pode definir as opções de arranque utilizando a interface de utilizador de arranque ou utilizando a macro AutoExec.

Para ignorar as opções de arranque definidas para o projecto de base de dados do Access, mantenha premida a tecla SHIFT enquanto abre o projecto de base de dados do Access.

Alternativamente, para impor as opções de arranque definidas para o projecto de base de dados do Access, desactive a funcionalidade da tecla SHIFT que permite ignorar as opções de arranque. Para o fazer, defina a propriedade AllowBypassKey como False.

Para definir a propriedade AllowBypassKey como False, siga estes passos.

Passos para um projecto do Access (.adp)

1. Inicie o Access.
2. Abra um projecto de base de dados do Access.
3. Prima ALT+F11 para abrir o editor do Visual Basic.
4. No editor do Visual Basic, clique em Immediate Window no menu View.
5. Introduza ou cole o código seguinte na janela Immediate e prima ENTER.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Feche o Visual Basic Editor e feche o projecto de base de dados do Access.
7. Abra o projecto de base de dados do Access. Tente ignorar as opções de arranque definidas para o projecto de base de dados do Access mantendo premida a tecla SHIFT enquanto abre o projecto de base de dados do Access.
   
   A funcionalidade da tecla SHIFT que permite ignorar as opções de arranque está desactivada. Apesar de premir a tecla SHIFT para ignorar as opções de arranque, estas são executadas. Não é possível ignorar as opções de arranque.

Passos para uma base de dados do Access (.mdb ou .accdb)

1. Inicie o Access.
2. Crie um novo módulo e adicione as duas funções seguintes:

   Function ap_DisableShift()
   'This function disable the shift at startup. This action causes
   'the Autoexec macro and Startup properties to always be executed.
   
   On Error GoTo errDisableShift
   
   Dim db As DAO.Database
   Dim prop As Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line disables the shift key on startup.
   db.Properties("AllowByPassKey") = False
   
   'The function is successful.
   Exit Function
   
   errDisableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, False)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   
   Function ap_EnableShift()
   'This function enables the SHIFT key at startup. This action causes
   'the Autoexec macro and the Startup properties to be bypassed
   'if the user holds down the SHIFT key when the user opens the database.
   
   On Error GoTo errEnableShift
   
   Dim db As Database
   Dim prop As Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line of code disables the SHIFT key on startup.
   db.Properties("AllowByPassKey") = True
   
   'function successful
   Exit Function
   
   errEnableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, True)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function

3. No editor do Visual Basic, clique em Immediate Window no menu View.
4. Se pretender desactivar a tecla SHIFT key, escreva ap_DisableShift na janela Immediate e prima ENTER. Se pretender activar a tecla SHIFT key, escreva ap_EnableShift na janela Immediate e prima ENTER.