Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO VERIFICAR CON...
 
Notifications
Clear all

MACRO VERIFICAR COND. E OCULTAR DADOS

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
643 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal boa noite,
Na minha planilha, existe uma célula que faz uma contagem regressiva, quando ficar igual ou menor do que "0", gostaria que a macro fizesse esta verificação e se for verdadeiro, os dados e formulas se ocultassem e só voltavam quando digita-se uma data onde a contagem ficasse maior que "0".
Isso deverá acontecer ao abrir o arquivo antes de digitar o nome e senha do usuário a macro verifica a contagem, caso for = ou < 0 aparecerá um formulário com mensagem "Validação do controle expirou, favor procurar o administrador" e abaixo solicitando senha do administrador para validar a data, o controle estará travado neste formulário não dando acesso ao usuário.

Mais explicações no arquivo de modelo.

silvajmp

Planilhando macro ocultar dados - tempo expirou.rar

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/01/2014 8:06 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Tente...

..Agora é só adaptar!

Private Sub Worksheet_change(ByVal Target As Excel.Range)
    If Me.Range("$D$3").Value < 1 Then
        Me.Range("H8:H15").EntireRow.Hidden = True
    Else
        Me.Range("H8:H15").EntireRow.Hidden = False
    End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/01/2014 3:52 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre boa tarde,

Adaptei não mais para ocultar os dados e sim para aparecer um useform(frmadm) se caso o valor da célula D3 for < 1 e se caso o valor não for < 1 aparecerá um userform(frmusuario), mas tudo isso tem que acontecer antes do arquivo se abrir ou o arquivo em oculto, os userform's deverão aparecer antes da visualização do arquivo.

Inserido no Módulo: 

Private Sub Worksheet_change(ByVal Target As Excel.Range)
    'If Me.Range("$D$3").Value < 1 Then
    If Plan1.Cells("$D$3").Value < 1 Then
        frmadm.Show
    Else
        frmusuario.Show
    End If
End Sub

silvajmp

Planilhando macro ocultar dados - tempo expirou.rar
Planilhando macro ocultar dados - tempo expirou.rar

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/02/2014 10:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico