Bloquear reexibir colunas, exceto pelo inputbox de senha
Enviado: 31 Jul 2019 às 11:49
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.
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.