vangest

2026-04-19 22:48:53 +01:00
commit 7d269cbe87
185 changed files with 4622 additions and 0 deletions
@@ -0,0 +1,66 @@
+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
+