ThisWorkbook.Close SaveChanges:=True

    Private Sub CommandButton2_Click()
    ThisWorkbook.Close SaveChanges:=True
    End Sub
 
 
    Private Sub UserForm_Activate()
    'Neste caso você tem a opção de mostrar ou ocultar o excel, basta mudar a instrução TRUE abaixo para False
                Application.Visible = True
 
                TBx_Senha.Enabled = TBx_Usuario.Text <> ""
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
    End Sub
 
    Private Sub CBt_Ok_Click()
 
                Dim Linha As Integer
 
                On Error GoTo NaoEncontrado
 
                Linha = Sheets("Login").Range("A:A").Find(TBx_Usuario).Row
 
                If TBx_Senha = Sheets("Login").Cells(Linha, 2) Then
 
                   MsgBox ("Seja Bem Vindo (a) ") & TBx_Usuario, vbInformation, ("Login - Live Free")
 
                   Unload Me
 
                   'Tela de acesso ao sistema aqui
                  'Seu Aplicativo será carregado, substituindo esta linha para a que você necessite que seja carregado em primeiro plano (form1,Menu,Dados...Etc)
 
 
                Else
 
                   MsgBox ("A senha não confere"), vbInformation, ("Login - Live Free")
 
                   TBx_Senha = ""
 
                   TBx_Senha.SetFocus
 
                End If
 
                Exit Sub
 
    NaoEncontrado:
 
                MsgBox ("Usuário não cadastrado."), vbInformation, ("Login - Live Free")
 
                TBx_Usuario = ""
 
                TBx_Usuario.SetFocus
 
    End Sub
 
 
 
    Private Sub TBx_Usuario_Change()
 
                TBx_Senha.Enabled = TBx_Usuario.Text <> ""
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
 
    'Aqui o código que modifica a letra digitada para a forma maiuscula
 
    TBx_Usuario.Value = UCase(TBx_Usuario.Value)
    End Sub
 
 
 
    Private Sub TBx_Senha_Change()
 
                CBt_Ok.Enabled = (TBx_Usuario.Text <> "" And TBx_Senha.Text <> "")
 
    End Sub
 
    Private Sub UserForm_Initialize()
    ' Metodo Invisivel do Excel
    Application.Visible = False
 
    TBx_Usuario.SetFocus
    End Sub
 
 
    'Aqui vai algo bem legal de bonus pra todos, iremos desabilitar tambem o Botão de Fechar no alto do Form, travando o mesmo para não ser finalizado.
 
    Private Sub UserForm_QueryClose _
      (Cancel As Integer, CloseMode As Integer)
        If CloseMode = vbFormControlMenu Then
 
    'Tente finalizar e veja esta mensagem na tela
 
            MsgBox "Esta Ação Não É Permitida.Desculpe!", vbInformation, "AVISO - Live Free"
            Cancel = True
        End If
    End Sub
 
    Já quase me esquecendo
    Para que o sistema de login inicie em primeiro lugar, basta ir na opção do lado esquerdo, procure esta instrução:
    -Esta_Pasta_De_Trabalho
    De 02 cliques nela e dentro, cole este codigo:
 
 
    Private Sub Workbook_Open()
    Login.Show
    End Sub