MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Bloquear tudo

    Compartilhe

    simonbm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/05/2014

    Bloquear tudo

    Mensagem  simonbm em Sab 21 Jun 2014, 22:52

    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?

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Bloquear tudo

    Mensagem  daniloreiis em Sab 21 Jun 2014, 22:57

    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


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    simonbm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/05/2014

    Re: Bloquear tudo

    Mensagem  simonbm em Sab 21 Jun 2014, 23:22

    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.

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Bloquear tudo

    Mensagem  daniloreiis em Sab 21 Jun 2014, 23:42

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

    accessmaximos.accdr


    espero que ajude.


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    simonbm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/05/2014

    Re: Bloquear tudo

    Mensagem  simonbm em Sab 21 Jun 2014, 23:44

    não entendi

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Bloquear tudo

    Mensagem  daniloreiis em Dom 22 Jun 2014, 00:15

    Veja se ajuda:

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: Bloquear tudo

    Mensagem  Assis em Dom 22 Jun 2014, 11:35

    Bom dia Danilo

    Pode converter para 2007

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Ter 06 Dez 2016, 05:44