Ir ao conteúdo

Posts recomendados

Postado

Boa Tarde

Gostaria de pedir um reforço da galera do Excel

Tenho uma planilha que tem 5 botões Useforms  que eu uso

e quero que o botão 4 trave todos os demais ,porque só eu posso usar os 3Tipo. Eu uso os botões 1, 2 e 3. Quando eu clicar no 4 ele desabilita todos os 3 primeiros e o 5 é para habilitar novamente (ainda não pensei em como fazer, pra colocar senha, estas coisas)

Me falaram esse codigo, mas não quero que ele sempre ative quando eu abrir, e sim quando eu pedir

Segue os o que já vi, são estes 4 códigos abaixo e já procurei no forum mas nada que eu procurei servia

Obrigado pela ajuda \o/

Código 1

CÓDIGO:
Sub DisableActiveXControl()
    'Desabilita botão de Controle ActiveX
    Sheet1.CommandButton1.Enabled = False
End Sub
Ou 
Sub DisableFormsControl()
    'Desabilita botão de Controle
    Sheet1.Shapes("Button 1").ControlFormat.Enabled = False
End Sub

Codigo 2

Forms!NomeDoForm.NomeBotão.Enabled = False
 

Codigo 3

CommandButton1.Enabled = False 

 

Codigo 4 

Private Sub Workbook_Open()
   Application.AutomationSecurity = msoAutomationSecurityLow
End Sub

Onde:

msoAutomationSecurityLow 
Macros rodam sem verificar o certificado de autenticidade, equivale a segurança Baixa.

msoAutomationSecurityByUI 
O usuário indica se as macros devem ser habilitadas, equivale a segurança Média.

msoAutomationSecurityForceDisable 
Desabilita as macros sem certificado de autenticidade, equivale a segurança Alta.

Postado

Prezados. Já consegui acertar o VBA.

Em vez de usar os 5. Coloquei os 3 com um userform de senha ai ele só passa se a senha estiver correta.

Obrigado pela ajuda.

Só falta agora saber como coloco varias pessoas no grupo de senhas

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!