Página 1 de 1

Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 31 Jul 2019 às 11:49
por EdersonMass
OLá!
Encontrei um novo problema referente a situação. (Preciso de um código que oculte e reexiba as três colunas marcadas em cor diferente (h:j), clicando nos botões OCULTAR \ REEXIBIR porém solicitando senha para REEXIBIR. Isso seria para toda a pasta de trabalho, planilhas de janeiro a dezembro, cada aba nomeada com o respectivo mês. Estou mandando a planilha para analise. Desde já agradeço.

Meu amigo eduardogrigull enviou esse código e deu certinho para o problema inicial, inclusive agradeci e coloquei como resolvida a questão.
Sub Ocultar()

ActiveSheet.Columns("H:H").Hidden = True
ActiveSheet.Columns("I:I").Hidden = True
ActiveSheet.Columns("J:J").Hidden = True
End Sub
Sub Exibir()

If InputBox("Digite sua senha: ") = "sua senha" Then
ActiveSheet.Columns("H:H").Hidden = False
ActiveSheet.Columns("I:I").Hidden = False
ActiveSheet.Columns("J:J").Hidden = False
End If

End Sub

Só que observando bem, de nada adianta uma senha para reexibir ao clicar no botão, se eu posso reexibir normalmente selecionando as colunas e clicando em reexibir com o botão direito do mouse.
Então, o novo desafio é que as colunas só possam ser reexibidas com o botão e a senha, e que após exibidas as células possam ser editadas normalmente, será que é possível? Desde já agradeço.
PS. Vou analisar bem o caso antes de encerrar o tópico, peço desculpas pela precipitação no tópico anterior.

Re: Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 31 Jul 2019 às 12:58
por JCabral
Veja se assim ajuda.
Para voltar ao normal click em "FO-000-00" canto superior direito

Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 07 Ago 2019 às 09:29
por EdersonMass
Obrigado JCabral, essa alteração já dificulta um pouco, mas ainda é possível reexibir manualmente assim que clicar no FO-000-00. Eu realmente preciso que só consiga reexibir por meio da senha. Desde já agradeço.

Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 07 Ago 2019 às 10:16
por JCabral
Ederson, só coloquei essa opção para o caso da planilha não estar finalizada, quando a planilha estiver pronta basta apagar o "botão" que está em FO-000-00 e deixa de ser possível voltar a trás.
Veja se assim resolve

Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 07 Ago 2019 às 17:08
por EdersonMass
É quase isso JCabral, só preciso que continue aparacendo as guias de planilhas, antes de excluir o botão, é possível?

Re: Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 07 Ago 2019 às 18:23
por JCabral
Veja se é isso.
No fim não se esqueça de apagar o botão.

Re: Bloquear reexibir colunas, exceto pelo inputbox de senha

Enviado: 08 Ago 2019 às 07:50
por EdersonMass
Deu certo! Valeu obrigado.