Interligar lista de...
 
Notifications
Clear all

Interligar lista de credencias ao login

1 Posts
1 Usuários
0 Reactions
1,107 Visualizações
(@natanjb)
Posts: 0
New Member
Topic starter
 

Bom estou fazendo um sistema de login assim que abrir o excel em "vba"...
O código é esse

Private Sub Cancelar_Click()

Unload Me

ThisWorkbook.Close
End Sub

Private Sub Ok_Click()

 If TextBox1 = "natan" And TextBox2 = "123" Then
  
 Unload Me
 
 Application.Visible = True
 
 Else
 
 MsgBox "Usuário ou senha incorretos!", vbInformation, "Erro"
 
 End If
 
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

Onde a textbox1 é espaço para nome de usuário e o textbox2 é espaço de colocar a senha... Tem dois botões um de "cancelar" e outro de "ok".
Até aqui tudo bem, o que eu quero na verdade é está substituindo a parte de if TextBox1 = "natan" por algum meio de conexão online. Estava pensando um uma planilha com duas coluna (usuario e senha) no OneDrive.
Alguem pode me ajudar na construção do código ou me dizer outra fonte de fazer isso. O que me interessa é espalhar minha planilha e vender as credenciais de login.

 
Postado : 02/10/2019 3:16 pm