67 lines
1.5 KiB
Plaintext
67 lines
1.5 KiB
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} programador
|
|
Caption = "Programador"
|
|
ClientHeight = 3036
|
|
ClientLeft = 108
|
|
ClientTop = 456
|
|
ClientWidth = 4584
|
|
OleObjectBlob = "programador.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "programador"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Sub CommandButton1_Click()
|
|
|
|
Dim resposta As VbMsgBoxResult
|
|
|
|
If (TextBox1.Value = "Garcia" And TextBox2.Value = "Garcia") Or (TextBox1.Value = "us3r" And TextBox2.Value = "Passw0rd") Or (TextBox1.Value = "123" And TextBox2.Value = "123") Then
|
|
|
|
Unload programador
|
|
Application.Visible = True
|
|
|
|
Else
|
|
MsgBox "Usuário incorreto!"
|
|
|
|
Menu.Show
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CommandButton2_Click()
|
|
Unload programador
|
|
Menu.Show
|
|
End Sub
|
|
|
|
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
|
|
|
|
If CloseMode = vbFormControlMenu Then
|
|
|
|
Dim resposta As VbMsgBoxResult
|
|
|
|
resposta = MsgBox("Deseja confirmar a saida?", vbYesNo + vbQuestion, "Confirmação")
|
|
ThisWorkbook.Save
|
|
If resposta = vbYes Then
|
|
' Código a ser executado se o usuário clicar em "Sim"
|
|
MsgBox "Adeus!"
|
|
|
|
CloseMode = vbFormControlMenu
|
|
' Salva o workbook
|
|
ThisWorkbook.Save
|
|
|
|
' Fecha o Excel
|
|
Application.Quit
|
|
|
|
Else
|
|
MsgBox "Fecho Cancelado!"
|
|
' Salva o workbook
|
|
ThisWorkbook.Save
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|