Formulário de Login em Excel VBA

Excel 2010

btnentrar           Click

Private Sub btnentrar_Click()

Dim usuario As String

Dim senha As String

Dim combinação As Boolean

Dim comb1 As String

Dim comb2 As String

usuario = Me.txusuario.Value

senha = Me.txsenha.Value

combinação = False

comb1 = usuario & senha

'combinação linha e senha'

linhas = WorksheetFunction.CountA(Plan1.Columns("A")) - 1 'conta as linhas'

For cont = 2 To linhas

comb2 = Plan1.Cells(cont, 1).Value & Plan1.Cells(cont, 2).Value

combinação = comb1 = comb2

If combinação = True Then

MsgBox "USUÁRIO AUTORIZADO !", vbInformation, "OK" 'ICONE DE BEM VINDO'

Unload Me

Exit Sub

'fechando a estrutura condicional'

End If

Next 'senão'

MsgBox "USUÁRI OU SENHA INCORRETOS !", vbCritical, "ERROR"

End Sub

btnsair            Click

Private Sub btnsair_Click()

ThisWorkbook.Close 'fecha a planilha'

End Sub