dim dt as date
dim senha as string
senha = "minhasenha"
dt = "11/03/2018"
if date >= dt and senha = "minhasenha" then
userform1.show
end if

ola Klarc28, obrigado pela ajuda,
Eu inclui um novo modulo e add o seu codigo, mas quando eu abro esta dando erro de complicação: Invalido fora de um procedimento.
Oque pode ser?

Tente assim

dt = Cdate("11/03/2018")

Ola, Obrigado pela ajuda,
segue com um erro, agr foi para a linha da senha = "minhasenha" (linha 3) informa erro de compilação, invalido fora de um procedimento. O que poderia ser este erro?

Olá.
Esse erro geralmente ocorre quando se escreve alguma linha que está fora de uma sub

Se vc copiou o código postado pelo colega e colou diretamente num módulo, ou onde quer que seja, sem enquadrá-lo dentro de uma sub, esse erro persistirá.

Toda rotina começa com sub, public sub ou private sub e sempre termina com end sub

se vc colou a rotina no seu módulo exatamente assim:

dim dt as date
dim senha as string
senha = "minhasenha"
dt = "11/03/2018"
if date >= dt and senha = "minhasenha" then
userform1.show
end if

vai dar este erro pois, cadê o sub e o end sub?

Agora se escreveu-o dentro de uma rotina como assim:

Sub O_nome_que_quiser()
Dim dt As Date
Dim senha As String
senha = "minhasenha"
dt = "11/03/2018"
If Date >= dt And senha = "minhasenha" Then
UserForm1.Show
End If

End Sub

e o erro persiste..
creio que precisará postar sua planilha para facilitar a análise.

Bom-dia

Tente assim:

Private Sub Workbook_Open()

Application.EnableCancelKey = xlDisabled
Dim dt As Date

'Escolha a data que Pasta de Trabalho deverá expirar (ano, mês, dia)
dt = DateSerial(2018, 3, 11)

If Date > dt Then
MsgBox "Tempo de Avaliação Expirou! Favor entrar em contato com o Administrador.", vbOKOnly, "Atenção"
ThisWorkbook.Close SaveChanges:=False
End If

End Sub

Assim:

Private Sub Workbook_Open()
   
Dim exdate As Date
 
'data de expiração
exdate = "07/03/2018"
 
If Date > exdate Then
   varNum = Application.InputBox("A planilha expirou, informe o codigo", "Revalidação do prazo", "####")
   If varNum = 123456 Then
      Exit Sub
   End If
   MsgBox ("Senha Incorreta")
   ActiveWorkbook.Close
End If
 
MsgBox ("Você têm " & exdate - Date & " Dias restantes")
   
End Sub

Galera, ,muito obrigado. funcionou 100%. obrigado mesmo!