Ir ao conteúdo
  • Cadastre-se

Senha em Planilhas do Excel


momoUFC

Posts recomendados

Bom dia,

Estou fazendo uma planilha no excel e gostaria de saber se é possível proteger apenas algumas abas específicas da planilha e não a planilha toda, de forma que essas abas protegidas só pudessem ser vistas caso o usuário colocasse a senha. Não seria apenas deixar em forma de 'somente leitura', mas apenas abrir a determinada aba colocando a senha.

Até agora o que consegui foi colocar senha na planilha toda e colocar algumas abas como somente leitura e nenhum desses dois casos são do meu interesse.

Obrigada!

Link para o comentário
Compartilhar em outros sites

  • Membro VIP

Na planilha que você quer bloquear --> clique am ALT+F11 (para acessar o Editor de VBA do Sxcel) ---> No lado direito um pouco abaixo aparece uma janela escrito propriedades e o nome da planilha. ---> Em Visible altere de -1 -xlSheetvisible para 2-xlSheetVeryHidden.

Pronto a sua Aba da planilha já esta oculta.

Agora para colocar senha no projeto VBA ---> clique no menu Ferramentas --> Propiredades VBA ---> Proteção ---> Marque a opção Bloquear Projeto para exibição ---> digite duas vezes a senha e dê OK

Clique em ALT+Q para retornar a uma planilha.

Quando você quiser ver a planilha terá que fazer o inverso, ou seja, acessar o editor de VBA--> digitar a senha ---> ir em propriedades e alterar a propriedade Visible.

Dê retorno.

Abraço.

Link para o comentário
Compartilhar em outros sites

Caramba, deu certo. Ótima explicação, parabéns.

Só mais uma pergunta, porque assim, na minha planilha a primeira aba possui botões que dão acesso às outras abas. Então existiria uma forma de que, quando fosse clicado no botão que levasse a essa aba oculta, aparecesse uma janela para se colocar a senha, ao invés de ter que entrar no VBA?

Um código como:

if (botão clicado) {

if (senha correta)

abrir aba,

else

não abrir aba

}

deu pra entender?

Link para o comentário
Compartilhar em outros sites

Boa tarde,

Exemplo com Senha = 123 e Acesso as planilhas Plan2 e Plan3, Altere confome sua necessidade:

Sub Acesso()

Dim Senha As String

Senha = InputBox("Digite a Senha para acessar as planilhas", ":: Acesso::")

If Senha = "123" Then

Sheets("Plan2").Visible = -1

Sheets("Plan3").Visible = -1

MsgBox "Acesso concedido!", vbInformation, "Aviso"

Else

Sheets("Plan2").Visible = 2

Sheets("Plan3").Visible = 2

End If

End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para 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...