Bloquear tudo

Olá,

No topico 102 codigos para access eu tentei utilizar a seguinte função:

Public Function DesabilitaTudo()
On Error GoTo Err_DesabilitaTudo

   DoCmd.ShowToolbar "Menu Bar", acToolbarNo
   DoCmd.ShowToolbar "Database", acToolbarNo
   DoCmd.ShowToolbar "Relationship", acToolbarNo
   DoCmd.ShowToolbar "Table Design", acToolbarNo
   DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
   DoCmd.ShowToolbar "Query Design", acToolbarNo
   DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
   DoCmd.ShowToolbar "Form Design", acToolbarNo
   DoCmd.ShowToolbar "Form View", acToolbarNo
   DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
   DoCmd.ShowToolbar "Report Design", acToolbarNo
   DoCmd.ShowToolbar "Print Preview", acToolbarNo
   DoCmd.ShowToolbar "Toolbox", acToolbarNo
   DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
   DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
   DoCmd.ShowToolbar "Macro Design", acToolbarNo
   DoCmd.ShowToolbar "Utility 1", acToolbarNo
   DoCmd.ShowToolbar "Utility 2", acToolbarNo
   DoCmd.ShowToolbar "Web", acToolbarNo
   DoCmd.ShowToolbar "Source Code Control", acToolbarNo
   DoCmd.ShowToolbar "Visual Basic", acToolbarNo
   DoCmd.ShowToolbar "Ribbon", acToolbarNo
   Application.CommandBars.DisableAskAQuestionDropdown = True
   
Exit_DesabilitaTudo:
   Exit Function

Err_DesabilitaTudo:
   If Err.Number = 2094 Then
       Resume Next
   Else
       MsgBox Err.Number & " - " & Err.Description
       Resume Exit_DesabilitaTudo
   End If

End Function

Porém eu tentei coloca-la no evento ao abrir do formulário principal para que ela desabilitasse tudo e o usuário interagisse somente com os formulários, porém não consegui. Alguém pode me ajudar?

Olá boa noite!

tente assim:

Código:

Private Sub Form_Load()
DesabilitaTudo
End Sub


Public Function DesabilitaTudo()
On Error GoTo Err_DesabilitaTudo

   DoCmd.ShowToolbar "Menu Bar", acToolbarNo
   DoCmd.ShowToolbar "Database", acToolbarNo
   DoCmd.ShowToolbar "Relationship", acToolbarNo
   DoCmd.ShowToolbar "Table Design", acToolbarNo
   DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
   DoCmd.ShowToolbar "Query Design", acToolbarNo
   DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
   DoCmd.ShowToolbar "Form Design", acToolbarNo
   DoCmd.ShowToolbar "Form View", acToolbarNo
   DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
   DoCmd.ShowToolbar "Report Design", acToolbarNo
   DoCmd.ShowToolbar "Print Preview", acToolbarNo
   DoCmd.ShowToolbar "Toolbox", acToolbarNo
   DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
   DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
   DoCmd.ShowToolbar "Macro Design", acToolbarNo
   DoCmd.ShowToolbar "Utility 1", acToolbarNo
   DoCmd.ShowToolbar "Utility 2", acToolbarNo
   DoCmd.ShowToolbar "Web", acToolbarNo
   DoCmd.ShowToolbar "Source Code Control", acToolbarNo
   DoCmd.ShowToolbar "Visual Basic", acToolbarNo
   DoCmd.ShowToolbar "Ribbon", acToolbarNo
   Application.CommandBars.DisableAskAQuestionDropdown = True
  
Exit_DesabilitaTudo:
   Exit Function

Err_DesabilitaTudo:
   If Err.Number = 2094 Then
       Resume Next
   Else
       MsgBox Err.Number & " - " & Err.Description
       Resume Exit_DesabilitaTudo
   End If

End Function


Deu certo. só ficou habilitado ainda a opção de abrir o menu com o botão direito do mouse será que tem como bloquear isso também para não ser possivel mudar a visualização do formulário.

Aqui no onde trabalho eu faço assim na extensão do arquivo.

accessmaximos.accdr


espero que ajude.

não entendi

Veja se ajuda:

http://maximoaccess.forumeiros.com/t6760-resolvidobotao-desabilitar-modo-design-formularios-onde-esta-no-access-2010

Bom dia Danilo

Pode converter para 2007

Obrigado