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

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