vangest

bin/Email.frm

@@ -0,0 +1,157 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Email 
+   Caption         =   "Email"
+   ClientHeight    =   3996
+   ClientLeft      =   108
+   ClientTop       =   456
+   ClientWidth     =   6240
+   OleObjectBlob   =   "Email.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "Email"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub CommandButton1_Click()
+Unload Email
+Menu.Show
+End Sub
+
+Private Sub CommandButton2_Click()
+
+ThisWorkbook.Worksheets("BD").Activate
+
+Range("C3").Value = TextBox1.Value
+Range("C4").Value = TextBox2.Value
+Range("C5").Value = TextBox3.Value
+Range("C6").Value = TextBox4.Value
+Range("C7").Value = TextBox5.Value
+Range("C8").Value = TextBox6.Value
+Range("C9").Value = TextBox7.Value
+Range("C10").Value = TextBox8.Value
+Range("C11").Value = TextBox9.Value
+Range("C12").Value = TextBox10.Value
+Range("C13").Value = TextBox11.Value
+Range("C14").Value = TextBox12.Value
+Range("C15").Value = TextBox13.Value
+Range("C16").Value = TextBox14.Value
+
+If CheckBox1 = True Then Range("D3").Value = 1 Else Range("D3").Value = ""
+If CheckBox2 = True Then Range("E3").Value = 1 Else Range("E3").Value = ""
+If CheckBox3 = True Then Range("F3").Value = 1 Else Range("F3").Value = ""
+If CheckBox4 = True Then Range("G3").Value = 1 Else Range("G3").Value = ""
+If CheckBox6 = True Then Range("D4").Value = 1 Else Range("D4").Value = ""
+If CheckBox7 = True Then Range("E4").Value = 1 Else Range("E4").Value = ""
+If CheckBox8 = True Then Range("F4").Value = 1 Else Range("F4").Value = ""
+If CheckBox5 = True Then Range("G4").Value = 1 Else Range("G4").Value = ""
+If CheckBox10 = True Then Range("D5").Value = 1 Else Range("D5").Value = ""
+If CheckBox11 = True Then Range("E5").Value = 1 Else Range("E5").Value = ""
+If CheckBox12 = True Then Range("F5").Value = 1 Else Range("F5").Value = ""
+If CheckBox13 = True Then Range("G5").Value = 1 Else Range("G5").Value = ""
+If CheckBox14 = True Then Range("D6").Value = 1 Else Range("D6").Value = ""
+If CheckBox15 = True Then Range("E6").Value = 1 Else Range("E6").Value = ""
+If CheckBox16 = True Then Range("F6").Value = 1 Else Range("F6").Value = ""
+If CheckBox9 = True Then Range("G6").Value = 1 Else Range("G6").Value = ""
+If CheckBox18 = True Then Range("D7").Value = 1 Else Range("D7").Value = ""
+If CheckBox19 = True Then Range("E7").Value = 1 Else Range("E7").Value = ""
+If CheckBox20 = True Then Range("F7").Value = 1 Else Range("F7").Value = ""
+If CheckBox21 = True Then Range("G7").Value = 1 Else Range("G7").Value = ""
+
+emailsalfareport = Range("D1").Value
+emailsbravoreport = Range("E1").Value
+emailscff = Range("F1").Value
+emailsoutros = Range("F1").Value
+
+
+
+MsgBox "Emails atualizados", vbInformation
+
+End Sub
+
+Private Sub Label1_Click()
+
+End Sub
+
+Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
+    If CloseMode = vbFormControlMenu Then
+        Cancel = True
+        MsgBox "O botão X foi desativado. Use outro método para fechar.", vbInformation
+    End If
+End Sub
+
+Private Sub UserForm_Initialize()
+ThisWorkbook.Worksheets("Registos").Activate
+
+TextBox1.Value = Range("AL1").Value
+TextBox2.Value = Range("AL2").Value
+TextBox3.Value = Range("AL3").Value
+TextBox4.Value = Range("AL4").Value
+TextBox5.Value = Range("AL5").Value
+TextBox6.Value = Range("AL6").Value
+TextBox7.Value = Range("AL7").Value
+TextBox8.Value = Range("AL8").Value
+TextBox9.Value = Range("AL9").Value
+TextBox10.Value = Range("AL10").Value
+TextBox11.Value = Range("AL11").Value
+TextBox12.Value = Range("AL12").Value
+TextBox13.Value = Range("AL13").Value
+TextBox14.Value = Range("AL14").Value
+If Range("AH1").Value = 1 Then CheckBox1 = True Else CheckBox1 = False
+If Range("AI1").Value = 1 Then CheckBox2 = True Else CheckBox2 = False
+If Range("AJ1").Value = 1 Then CheckBox3 = True Else CheckBox3 = False
+If Range("AK1").Value = 1 Then CheckBox4 = True Else CheckBox4 = False
+If Range("AH2").Value = 1 Then CheckBox6 = True Else CheckBox6 = False
+If Range("AI2").Value = 1 Then CheckBox7 = True Else CheckBox7 = False
+If Range("AJ2").Value = 1 Then CheckBox8 = True Else CheckBox8 = False
+If Range("AK2").Value = 1 Then CheckBox5 = True Else CheckBox5 = False
+If Range("AH3").Value = 1 Then CheckBox10 = True Else CheckBox10 = False
+If Range("AI3").Value = 1 Then CheckBox11 = True Else CheckBox11 = False
+If Range("AJ3").Value = 1 Then CheckBox12 = True Else CheckBox12 = False
+If Range("AK3").Value = 1 Then CheckBox13 = True Else CheckBox13 = False
+If Range("AH4").Value = 1 Then CheckBox14 = True Else CheckBox14 = False
+If Range("AI4").Value = 1 Then CheckBox15 = True Else CheckBox15 = False
+If Range("AJ4").Value = 1 Then CheckBox16 = True Else CheckBox16 = False
+If Range("AK4").Value = 1 Then CheckBox9 = True Else CheckBox9 = False
+If Range("AH5").Value = 1 Then CheckBox18 = True Else CheckBox18 = False
+If Range("AI5").Value = 1 Then CheckBox19 = True Else CheckBox19 = False
+If Range("AJ5").Value = 1 Then CheckBox20 = True Else CheckBox20 = False
+If Range("AK5").Value = 1 Then CheckBox21 = True Else CheckBox21 = False
+If Range("AH6").Value = 1 Then CheckBox23 = True Else CheckBox23 = False
+If Range("AI6").Value = 1 Then CheckBox24 = True Else CheckBox24 = False
+If Range("AJ6").Value = 1 Then CheckBox25 = True Else CheckBox25 = False
+If Range("AK6").Value = 1 Then CheckBox22 = True Else CheckBox22 = False
+If Range("AH7").Value = 1 Then CheckBox26 = True Else CheckBox26 = False
+If Range("AI7").Value = 1 Then CheckBox27 = True Else CheckBox27 = False
+If Range("AJ7").Value = 1 Then CheckBox28 = True Else CheckBox28 = False
+If Range("AK7").Value = 1 Then CheckBox29 = True Else CheckBox29 = False
+If Range("AH8").Value = 1 Then CheckBox30 = True Else CheckBox30 = False
+If Range("AI8").Value = 1 Then CheckBox31 = True Else CheckBox31 = False
+If Range("AJ8").Value = 1 Then CheckBox32 = True Else CheckBox32 = False
+If Range("AK8").Value = 1 Then CheckBox17 = True Else CheckBox17 = False
+If Range("AH9").Value = 1 Then CheckBox35 = True Else CheckBox35 = False
+If Range("AI9").Value = 1 Then CheckBox36 = True Else CheckBox36 = False
+If Range("AJ9").Value = 1 Then CheckBox37 = True Else CheckBox37 = False
+If Range("AK9").Value = 1 Then CheckBox38 = True Else CheckBox38 = False
+If Range("AH10").Value = 1 Then CheckBox39 = True Else CheckBox39 = False
+If Range("AI10").Value = 1 Then CheckBox40 = True Else CheckBox40 = False
+If Range("AJ10").Value = 1 Then CheckBox41 = True Else CheckBox41 = False
+If Range("AK10").Value = 1 Then CheckBox34 = True Else CheckBox34 = False
+If Range("AH11").Value = 1 Then CheckBox42 = True Else CheckBox42 = False
+If Range("AI11").Value = 1 Then CheckBox43 = True Else CheckBox43 = False
+If Range("AJ11").Value = 1 Then CheckBox44 = True Else CheckBox44 = False
+If Range("AK11").Value = 1 Then CheckBox45 = True Else CheckBox45 = False
+If Range("AH12").Value = 1 Then CheckBox47 = True Else CheckBox47 = False
+If Range("AI12").Value = 1 Then CheckBox48 = True Else CheckBox48 = False
+If Range("AJ12").Value = 1 Then CheckBox49 = True Else CheckBox49 = False
+If Range("AK12").Value = 1 Then CheckBox46 = True Else CheckBox46 = False
+If Range("AH13").Value = 1 Then CheckBox50 = True Else CheckBox50 = False
+If Range("AI13").Value = 1 Then CheckBox51 = True Else CheckBox51 = False
+If Range("AJ13").Value = 1 Then CheckBox52 = True Else CheckBox52 = False
+If Range("AK13").Value = 1 Then CheckBox53 = True Else CheckBox53 = False
+If Range("AH14").Value = 1 Then CheckBox54 = True Else CheckBox54 = False
+If Range("AI14").Value = 1 Then CheckBox55 = True Else CheckBox55 = False
+If Range("AJ14").Value = 1 Then CheckBox56 = True Else CheckBox56 = False
+If Range("AK14").Value = 1 Then CheckBox33 = True Else CheckBox33 = False
+
+End Sub

bin/Email2.frm

@@ -0,0 +1,183 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Email 
+   Caption         =   "Email"
+   ClientHeight    =   9204.001
+   ClientLeft      =   108
+   ClientTop       =   456
+   ClientWidth     =   6516
+   OleObjectBlob   =   "Email2.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "Email"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+
+Private Sub CommandButton1_Click()
+Unload Email
+nhoras.Show
+End Sub
+
+Private Sub CommandButton2_Click()
+
+ThisWorkbook.Worksheets("Registos").Activate
+
+Range("AL1").Value = TextBox1.Value
+Range("AL2").Value = TextBox2.Value
+Range("AL3").Value = TextBox3.Value
+Range("AL4").Value = TextBox4.Value
+Range("AL5").Value = TextBox5.Value
+Range("AL6").Value = TextBox6.Value
+Range("AL7").Value = TextBox7.Value
+Range("AL8").Value = TextBox8.Value
+Range("AL9").Value = TextBox9.Value
+Range("AL10").Value = TextBox10.Value
+Range("AL11").Value = TextBox11.Value
+Range("AL12").Value = TextBox12.Value
+Range("AL13").Value = TextBox13.Value
+Range("AL14").Value = TextBox14.Value
+
+If CheckBox1 = True Then Range("AH1").Value = 1 Else Range("AH1").Value = ""
+If CheckBox2 = True Then Range("AI1").Value = 1 Else Range("AI1").Value = ""
+If CheckBox3 = True Then Range("AJ1").Value = 1 Else Range("AJ1").Value = ""
+If CheckBox4 = True Then Range("AK1").Value = 1 Else Range("AK1").Value = ""
+If CheckBox6 = True Then Range("AH2").Value = 1 Else Range("AH2").Value = ""
+If CheckBox7 = True Then Range("AI2").Value = 1 Else Range("AI2").Value = ""
+If CheckBox8 = True Then Range("AJ2").Value = 1 Else Range("AJ2").Value = ""
+If CheckBox5 = True Then Range("AK2").Value = 1 Else Range("AK2").Value = ""
+If CheckBox10 = True Then Range("AH3").Value = 1 Else Range("AH3").Value = ""
+If CheckBox11 = True Then Range("AI3").Value = 1 Else Range("AI3").Value = ""
+If CheckBox12 = True Then Range("AJ3").Value = 1 Else Range("AJ3").Value = ""
+If CheckBox13 = True Then Range("AK3").Value = 1 Else Range("AK3").Value = ""
+If CheckBox14 = True Then Range("AH4").Value = 1 Else Range("AH4").Value = ""
+If CheckBox15 = True Then Range("AI4").Value = 1 Else Range("AI4").Value = ""
+If CheckBox16 = True Then Range("AJ4").Value = 1 Else Range("AJ4").Value = ""
+If CheckBox9 = True Then Range("AK4").Value = 1 Else Range("AK4").Value = ""
+If CheckBox18 = True Then Range("AH5").Value = 1 Else Range("AH5").Value = ""
+If CheckBox19 = True Then Range("AI5").Value = 1 Else Range("AI5").Value = ""
+If CheckBox20 = True Then Range("AJ5").Value = 1 Else Range("AJ5").Value = ""
+If CheckBox21 = True Then Range("AK5").Value = 1 Else Range("AK5").Value = ""
+If CheckBox23 = True Then Range("AH6").Value = 1 Else Range("AH6").Value = ""
+If CheckBox24 = True Then Range("AI6").Value = 1 Else Range("AI6").Value = ""
+If CheckBox25 = True Then Range("AJ6").Value = 1 Else Range("AJ6").Value = ""
+If CheckBox22 = True Then Range("AK6").Value = 1 Else Range("AK6").Value = ""
+If CheckBox26 = True Then Range("AH7").Value = 1 Else Range("AH7").Value = ""
+If CheckBox27 = True Then Range("AI7").Value = 1 Else Range("AI7").Value = ""
+If CheckBox28 = True Then Range("AJ7").Value = 1 Else Range("AJ7").Value = ""
+If CheckBox29 = True Then Range("AK7").Value = 1 Else Range("AK7").Value = ""
+If CheckBox30 = True Then Range("AH8").Value = 1 Else Range("AH8").Value = ""
+If CheckBox31 = True Then Range("AI8").Value = 1 Else Range("AI8").Value = ""
+If CheckBox32 = True Then Range("AJ8").Value = 1 Else Range("AJ8").Value = ""
+If CheckBox17 = True Then Range("AK8").Value = 1 Else Range("AK8").Value = ""
+If CheckBox35 = True Then Range("AH9").Value = 1 Else Range("AH9").Value = ""
+If CheckBox36 = True Then Range("AI9").Value = 1 Else Range("AI9").Value = ""
+If CheckBox37 = True Then Range("AJ9").Value = 1 Else Range("AJ9").Value = ""
+If CheckBox38 = True Then Range("AK9").Value = 1 Else Range("AK9").Value = ""
+If CheckBox39 = True Then Range("AH10").Value = 1 Else Range("AH10").Value = ""
+If CheckBox40 = True Then Range("AI10").Value = 1 Else Range("AI10").Value = ""
+If CheckBox41 = True Then Range("AJ10").Value = 1 Else Range("AJ10").Value = ""
+If CheckBox34 = True Then Range("AK10").Value = 1 Else Range("AK10").Value = ""
+If CheckBox42 = True Then Range("AH11").Value = 1 Else Range("AH11").Value = ""
+If CheckBox43 = True Then Range("AI11").Value = 1 Else Range("AI11").Value = ""
+If CheckBox44 = True Then Range("AJ11").Value = 1 Else Range("AJ11").Value = ""
+If CheckBox45 = True Then Range("AK11").Value = 1 Else Range("AK11").Value = ""
+If CheckBox47 = True Then Range("AH12").Value = 1 Else Range("AH12").Value = ""
+If CheckBox48 = True Then Range("AI12").Value = 1 Else Range("AI12").Value = ""
+If CheckBox49 = True Then Range("AJ12").Value = 1 Else Range("AJ12").Value = ""
+If CheckBox46 = True Then Range("AK12").Value = 1 Else Range("AK12").Value = ""
+If CheckBox50 = True Then Range("AH13").Value = 1 Else Range("AH13").Value = ""
+If CheckBox51 = True Then Range("AI13").Value = 1 Else Range("AI13").Value = ""
+If CheckBox52 = True Then Range("AJ13").Value = 1 Else Range("AJ13").Value = ""
+If CheckBox53 = True Then Range("AK13").Value = 1 Else Range("AK13").Value = ""
+If CheckBox54 = True Then Range("AH14").Value = 1 Else Range("AH14").Value = ""
+If CheckBox55 = True Then Range("AI14").Value = 1 Else Range("AI14").Value = ""
+If CheckBox56 = True Then Range("AJ14").Value = 1 Else Range("AJ14").Value = ""
+If CheckBox33 = True Then Range("AK14").Value = 1 Else Range("AK14").Value = ""
+Unload Email
+nhoras.Show
+
+End Sub
+
+Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
+    If CloseMode = vbFormControlMenu Then
+        Cancel = True
+        MsgBox "O botão X foi desativado. Use outro método para fechar.", vbInformation
+    End If
+End Sub
+
+Private Sub UserForm_Initialize()
+ThisWorkbook.Worksheets("Registos").Activate
+
+TextBox1.Value = Range("AL1").Value
+TextBox2.Value = Range("AL2").Value
+TextBox3.Value = Range("AL3").Value
+TextBox4.Value = Range("AL4").Value
+TextBox5.Value = Range("AL5").Value
+TextBox6.Value = Range("AL6").Value
+TextBox7.Value = Range("AL7").Value
+TextBox8.Value = Range("AL8").Value
+TextBox9.Value = Range("AL9").Value
+TextBox10.Value = Range("AL10").Value
+TextBox11.Value = Range("AL11").Value
+TextBox12.Value = Range("AL12").Value
+TextBox13.Value = Range("AL13").Value
+TextBox14.Value = Range("AL14").Value
+If Range("AH1").Value = 1 Then CheckBox1 = True Else CheckBox1 = False
+If Range("AI1").Value = 1 Then CheckBox2 = True Else CheckBox2 = False
+If Range("AJ1").Value = 1 Then CheckBox3 = True Else CheckBox3 = False
+If Range("AK1").Value = 1 Then CheckBox4 = True Else CheckBox4 = False
+If Range("AH2").Value = 1 Then CheckBox6 = True Else CheckBox6 = False
+If Range("AI2").Value = 1 Then CheckBox7 = True Else CheckBox7 = False
+If Range("AJ2").Value = 1 Then CheckBox8 = True Else CheckBox8 = False
+If Range("AK2").Value = 1 Then CheckBox5 = True Else CheckBox5 = False
+If Range("AH3").Value = 1 Then CheckBox10 = True Else CheckBox10 = False
+If Range("AI3").Value = 1 Then CheckBox11 = True Else CheckBox11 = False
+If Range("AJ3").Value = 1 Then CheckBox12 = True Else CheckBox12 = False
+If Range("AK3").Value = 1 Then CheckBox13 = True Else CheckBox13 = False
+If Range("AH4").Value = 1 Then CheckBox14 = True Else CheckBox14 = False
+If Range("AI4").Value = 1 Then CheckBox15 = True Else CheckBox15 = False
+If Range("AJ4").Value = 1 Then CheckBox16 = True Else CheckBox16 = False
+If Range("AK4").Value = 1 Then CheckBox9 = True Else CheckBox9 = False
+If Range("AH5").Value = 1 Then CheckBox18 = True Else CheckBox18 = False
+If Range("AI5").Value = 1 Then CheckBox19 = True Else CheckBox19 = False
+If Range("AJ5").Value = 1 Then CheckBox20 = True Else CheckBox20 = False
+If Range("AK5").Value = 1 Then CheckBox21 = True Else CheckBox21 = False
+If Range("AH6").Value = 1 Then CheckBox23 = True Else CheckBox23 = False
+If Range("AI6").Value = 1 Then CheckBox24 = True Else CheckBox24 = False
+If Range("AJ6").Value = 1 Then CheckBox25 = True Else CheckBox25 = False
+If Range("AK6").Value = 1 Then CheckBox22 = True Else CheckBox22 = False
+If Range("AH7").Value = 1 Then CheckBox26 = True Else CheckBox26 = False
+If Range("AI7").Value = 1 Then CheckBox27 = True Else CheckBox27 = False
+If Range("AJ7").Value = 1 Then CheckBox28 = True Else CheckBox28 = False
+If Range("AK7").Value = 1 Then CheckBox29 = True Else CheckBox29 = False
+If Range("AH8").Value = 1 Then CheckBox30 = True Else CheckBox30 = False
+If Range("AI8").Value = 1 Then CheckBox31 = True Else CheckBox31 = False
+If Range("AJ8").Value = 1 Then CheckBox32 = True Else CheckBox32 = False
+If Range("AK8").Value = 1 Then CheckBox17 = True Else CheckBox17 = False
+If Range("AH9").Value = 1 Then CheckBox35 = True Else CheckBox35 = False
+If Range("AI9").Value = 1 Then CheckBox36 = True Else CheckBox36 = False
+If Range("AJ9").Value = 1 Then CheckBox37 = True Else CheckBox37 = False
+If Range("AK9").Value = 1 Then CheckBox38 = True Else CheckBox38 = False
+If Range("AH10").Value = 1 Then CheckBox39 = True Else CheckBox39 = False
+If Range("AI10").Value = 1 Then CheckBox40 = True Else CheckBox40 = False
+If Range("AJ10").Value = 1 Then CheckBox41 = True Else CheckBox41 = False
+If Range("AK10").Value = 1 Then CheckBox34 = True Else CheckBox34 = False
+If Range("AH11").Value = 1 Then CheckBox42 = True Else CheckBox42 = False
+If Range("AI11").Value = 1 Then CheckBox43 = True Else CheckBox43 = False
+If Range("AJ11").Value = 1 Then CheckBox44 = True Else CheckBox44 = False
+If Range("AK11").Value = 1 Then CheckBox45 = True Else CheckBox45 = False
+If Range("AH12").Value = 1 Then CheckBox47 = True Else CheckBox47 = False
+If Range("AI12").Value = 1 Then CheckBox48 = True Else CheckBox48 = False
+If Range("AJ12").Value = 1 Then CheckBox49 = True Else CheckBox49 = False
+If Range("AK12").Value = 1 Then CheckBox46 = True Else CheckBox46 = False
+If Range("AH13").Value = 1 Then CheckBox50 = True Else CheckBox50 = False
+If Range("AI13").Value = 1 Then CheckBox51 = True Else CheckBox51 = False
+If Range("AJ13").Value = 1 Then CheckBox52 = True Else CheckBox52 = False
+If Range("AK13").Value = 1 Then CheckBox53 = True Else CheckBox53 = False
+If Range("AH14").Value = 1 Then CheckBox54 = True Else CheckBox54 = False
+If Range("AI14").Value = 1 Then CheckBox55 = True Else CheckBox55 = False
+If Range("AJ14").Value = 1 Then CheckBox56 = True Else CheckBox56 = False
+If Range("AK14").Value = 1 Then CheckBox33 = True Else CheckBox33 = False
+
+End Sub

bin/Email2.log

@@ -0,0 +1 @@
+Line 2: The Form or MDIForm name Email is already in use; cannot load this form.

bin/Login.frm

@@ -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

bin/Registo.frm

@@ -0,0 +1,54 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Registo 
+   Caption         =   "Registo"
+   ClientHeight    =   3036
+   ClientLeft      =   108
+   ClientTop       =   456
+   ClientWidth     =   4584
+   OleObjectBlob   =   "Registo.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "Registo"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub CommandButton1_Click()
+
+Dim ultimaLinha As Long
+Dim ws As Worksheet
+
+Set ws = ThisWorkbook.Worksheets("Registos")
+If (TextBox1.Value = 123) Then
+
+ultimaLinha = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
+
+Range("A" & ultimaLinha).Value = TextBox2.Value
+
+Range("B" & ultimaLinha).Value = TextBox3.Value
+
+MsgBox "Valor salvo com sucesso!"
+Unload Registo
+Login.Show
+
+Else
+MsgBox "Não Têm Permissões!"
+ End If
+Unload Registo
+Login.Show
+End Sub
+
+Private Sub CommandButton2_Click()
+Unload Registo
+Login.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

bin/Tiromort.frm

@@ -0,0 +1,23 @@
+VERSION 5.00
+Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Tiromort 
+   Caption         =   "Calculadora Tiro Morteiro"
+   ClientHeight    =   6480
+   ClientLeft      =   108
+   ClientTop       =   456
+   ClientWidth     =   8916.001
+   OleObjectBlob   =   "Tiromort.frx":0000
+   StartUpPosition =   1  'CenterOwner
+End
+Attribute VB_Name = "Tiromort"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub CommandButton1_Click()
+Unload Tiromort
+Menu.Show
+End Sub
+
+Private Sub Label1_Click()
+
+End Sub

bin/programador.frm

@@ -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
+