Como reforçar ou desabilitar as opções de inicialização em um projeto de banco de dados do Access

Esse artigo descreve como desabilitar a funcionalidade da chave SHIFT que permite que você ignore as opções de inicialização. Esse artigo também descreve como reforçar as opções de inicialização em um projeto de banco de dados do Microsoft Access.

As opções de inicialização definidas para um arquivo do Access determinam a aparência do arquivo e como o arquivo se comporta ao ser aberto. É possível definir as opções de inicialização usando a interface do usuário de inicialização ou a macro AutoExec.

Para ignorar as opções de inicialização definidas para o projeto de banco de dados do Access, pressione a tecla SHIFT enquanto abre o projeto de banco de dados do Access.

Como alternativa, para reforçar as opções de inicialização definidas para o projeto de banco de dados do Access, desative a funcionalidade da tecla SHIFT que permite que você ignore as opções de inicialização. Para fazer isso, defina a propriedade AllowBypassKey como False.

Para definir a propriedade AllowBypassKey como False, execute as seguintes etapas.

Etapas para um projeto do Access (.adp)

1. Inicie o Access.
2. Abra um projeto de banco de dados do Access.
3. Pressione ALT+F11 para abrir o editor do Visual Basic.
4. No editor do Visual Basic, clique em Janela verificação imediata no menu Exibir.
5. Digite ou cole o seguinte código na janela verificação imediatae pressione ENTER.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Feche o Editor do Visual Basic e feche o projeto de banco de dados do Access.
7. Abra o projeto de banco de dados do Access. Tente ignorar as opções de inicialização definidas para o projeto de banco de dados do Access pressionando a tecla SHIFT enquanto abre o projeto de banco de dados do Access.
   
   A funcionalidade da chave SHIFT que permite que você ignore as opções de inicialização é desabilitada. Embora você pressione a tecla SHIFT para ignorar as opções de inicialização, as opções são executadas. Não é possível ignorar as opções de inicialização.

Etapas para um banco de dados do Access (.mdb or .accdb)

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

   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 Janela verificação imediata no menu Exibir.
4. Se você deseja desabilitar a tecla SHIFT, digite ap_DisableShift na janela verificação imediata e pressione ENTER. Se você deseja habilitar a tecla SHIFT, digite ap_EnableShift na janela verificação imediata e pressione ENTER.