Estou com dois problemas que não consigo resolver.
1º problema:
Criei uma base em excel 2010 em que utilizei uma userform login/senha. No excel 2010, abre corretamente, mas quando o vou abrir no excel 2007 dá erro no código VBA, com a seguinte mensagem "Can´t find project or library". O código é o seguinte:
Private Sub entrar_Click()
If Senha.Text = [11213976] And Usuário.Text = "Admin" Then
MsgBox "Seja bem vindo!", vdInformation, "Tela de boas vindas"
Application.Visible = True
Unload UserForm1
Sheets("Página Inicial").Activate
Else
MsgBox "senha incorreta"
End If
Dim exdate As Date
exdate = "31/08/2014"
If Date > exdate Then
MsgBox "O programa expirou. Solicite novo programa."
ActiveWorkbook.Close
End If
MsgBox "O programa estará ativo por mais " & exdate - Date & " dias."
End Sub
Private Sub cancelar_Click()
Application.Quit
End Sub
Como posso resolver esta situação?
2º problema:
Neste mesmo código, tenho um código para expirar o programa, neste caso a 31/08/2014. Ao abrir o excel aparece a janela a informar que faltam x dias para caducar. Para experimentar coloquei como data de expiração uma data que já passou. Acontece que informa que o programa expirou, mas permite continuar a trabalhar na base de dados.
Como posso resolver isto?
Vítor
Postado : 04/12/2013 4:31 pm