MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Bloquear tudo

    avatar
    simonbm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Bloquear tudo

    Mensagem  simonbm 21/6/2014, 18: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
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Bloquear tudo

    Mensagem  daniloreiis 21/6/2014, 18: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
    -------------------------------------------------------------------------------------------------------------------------------------------------

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


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Re: Bloquear tudo

    Mensagem  simonbm 21/6/2014, 19: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
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Bloquear tudo

    Mensagem  daniloreiis 21/6/2014, 19:42

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

    accessmaximos.accdr


    espero que ajude.


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

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


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Re: Bloquear tudo

    Mensagem  simonbm 21/6/2014, 19:44

    não entendi
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Bloquear tudo

    Mensagem  daniloreiis 21/6/2014, 20:15

    Veja se ajuda:

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


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

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


    Respeito às regras : Respeito às Regras 100%

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

    Bloquear tudo Empty Re: Bloquear tudo

    Mensagem  Assis 22/6/2014, 07:35

    Bom dia Danilo

    Pode converter para 2007

    Obrigado


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

    Conteúdo patrocinado


    Bloquear tudo Empty Re: Bloquear tudo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:08