Como impor ou desativar as opções de arranque numa base de dados do Access

Este artigo aplica-se apenas a um projeto do Microsoft Access (.adp).

Moderado: requer competências básicas de macro, codificação e interoperabilidade.

Resumo

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

Mais informações

As opções de arranque definidas para um ficheiro do Access determinam o aspeto do ficheiro e o comportamento do ficheiro quando abre o ficheiro. Pode definir as opções de arranque com a interface de utilizador de arranque ou com a macro AutoExec.

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

Em alternativa, para impor as opções de arranque definidas para o projeto de base de dados do Access, desative a funcionalidade da chave SHIFT que lhe permite ignorar as opções de arranque. Para tal, defina a propriedade AllowBypassKey como Falso.

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

Passos para um projeto do Access (.adp)

1. Inicie o Access.

2. Abra um projeto 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 Janela Imediata no menu Ver .

5. Escreva o seguinte código ou cole o seguinte código na janela Imediato e, em seguida, prima ENTER.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Feche o visual basic Revisor e, em seguida, feche o projeto de base de dados do Access.

7. Abra o projeto de base de dados do Access. Tente ignorar as opções de arranque definidas para o projeto de base de dados do Access ao manter premida a tecla SHIFT enquanto abre o projeto de base de dados do Access.

   A funcionalidade da chave SHIFT que lhe permite ignorar a opção de arranque está desativada. Embora mantenha premida a tecla SHIFT para ignorar as opções de arranque, as opções de arranque são executadas. Não pode 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, em seguida, 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 DAO.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 DAO.Database
   Dim prop as DAO.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 Janela Imediata no menu Ver .

4. Se quiser desativar a tecla SHIFT, escreva ap_DisableShift na janela Imediato e, em seguida, prima ENTER. Se quiser ativar a tecla shift, escreva ap_EnableShift na janela Imediato e, em seguida, prima ENTER.