Sub auto_open()
' criar a variavel tipo string Sheets("Entrada").Select Dim Lee As String Lee = InputBox("Digite uma senha")
If UCase(Lee) = "ABC" Then
'função select case Select Case Hour(Now) Case Is < 12 MsgBox "bom dia!", vbInformation Case Is < 18 MsgBox "boa tarde!", vbInformation Case Else MsgBox "boa noite!", vbInformation
End Select MsgBox "Bem vindo ao sistema!", vbExclamation Sheets("Despesas").Select 'outra opção com If e ElseIf
'sai do sistema caso erre a senha Else MsgBox "Senha Invalida", vbCritical Application.Quit
End If
End Sub
Sub auto_close() ActiveWorkbook.Save MsgBox "Até Breve!"
End Sub
