vangest

2026-04-19 22:48:53 +01:00
commit 7d269cbe87
185 changed files with 4622 additions and 0 deletions
@@ -0,0 +1,74 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Login 
+   Caption         =   "Login/Registo"
+   ClientHeight    =   3036
+   ClientLeft      =   108
+   ClientTop       =   456
+   ClientWidth     =   4584
+   OleObjectBlob   =   "Login.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "Login"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub CommandButton1_Click()
+Dim ws As Worksheet
+    Dim rng As Range
+    Dim valorTextbox1 As String
+    Dim valorTextbox2 As String
+    Dim rng2 As Range
+    Dim encontrado1 As Boolean
+    Dim encontrado2 As Boolean
+    
+    
+    Set ws = ThisWorkbook.Sheets("Registos")
+   
+    
+    ' Defina o valor da ComboBox
+    valorTextbox1 = TextBox1.Value
+    valorTextbox2 = TextBox2.Value
+    
+    Set rng = ws.Range("A1:A67000")
+    Set rng2 = ws.Range("B1:B67000")
+    encontrado1 = False
+    encontrado2 = False
+    '
+    For Each cell In rng
+        If cell.Value = valorTextbox1 Then
+            encontrado1 = True
+        Exit For
+        End If
+    Next cell
+    For Each cell In rng2
+        If cell.Value = valorTextbox2 Then
+            encontrado2 = True
+        Exit For
+        End If
+    Next cell
+
+    ' Mostrar mensagem com o resultado
+    If encontrado1 = True And encontrado2 = True Then
+   Unload Login
+   Menu.Show
+    Else
+        MsgBox "Usuário inexistente."
+    Unload Login
+    Login.Show
+    End If
+End Sub
+
+Private Sub CommandButton2_Click()
+Unload Login
+Registo.Show
+End Sub
+Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
+    If CloseMode = vbFormControlMenu Then
+        ' Salva o workbook
+        ThisWorkbook.Save
+        
+        ' Fecha o Excel
+        Application.Quit
+    End If
+End Sub