Cadastro Usuário Excel VBA

Cadastro Usuário Excel VBA neste artigo você vai aprender passo a passo como criar um formulário de cadastro de usuário em Excel VBA.

Junto a tela de login o Excel permite que apenas pessoas autorizadas tenham acesso ao seu sistema, existem diversas maneiras de proteger uma pasta de trabalho do Excel, porém a tela de login, deixa sua planilha com uma cara de sistema avançado, modificando a interação do usuário e tornando sua planilha mais profissional.

Por isso precisamos de um formulário para cadastramos os usuários da nossa planilha de uma forma simples e objetiva.

Ao Inicializar abertura do Form precisamos colocar o evento UserForm_Initialize() para carregar os elementos nas combox e caixa de texto.

Sintaxe usada no evento Initialize:

Private Sub UserForm_Initialize()
Dim linha As Integer
Dim plan As Worksheet
Set plan = Sheets(“Users”)
plan.Select
linha = 2
Do Until plan.Cells(linha, 6) = “”
Me.cmb_nome.AddItem plan.Cells(linha, 6)
linha = linha + 1
Loop
Me.cmb_status.AddItem “Ativo”
Me.cmb_status.AddItem “Bloqueado”
Me.cmb_status.AddItem “Inativo”
Me.cmb_tipo.AddItem “Administrador”
Me.cmb_tipo.AddItem “Usuário_Padrão”
End Sub

Uma função muito interessante utilizada foi a função para carregar a foto do usuário quando estamos cadastrando usuários onde já na função colocamos os tipos de imagens compátivel com o Excel VBA sendo a ICO, BMP e JPG.

Função utilizada para carregar a foto:

Private Sub CommandButton1_Click()
On Error Resume Next
Dim FOTO As String
FOTO = Application.GetOpenFilename(filefilter:=”Picture Files,.ico;.bmp;*jpg”)
tct_endereço.Text = FOTO
Me.Image1.Picture = LoadPicture(FOTO)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub

Está disponível para download todos os comandos, imagens e planilha para estudo.

No botão novo criamos uma função onde primeiro é cadastrado a id do usuário automático e o login cadastrado. Após feito o cadastro precisa localizar o usuário criado e concluir o cadastro deste usuário.

Função utilizada no botão novo usuário.

Private Sub btn_novo_Click()
Dim nome As String
Dim linha As Integer
Dim plan As Worksheet
Set plan = Sheets(“Users”)
Me.txt_id = “”
Me.txt_senha = “”
Me.txt_user = “”
Me.cmb_nome = “”
Me.cmb_status = “”
Me.cmb_tipo = “”
plan.Select
On Error GoTo novo_user
nome = InputBox(Prompt:=”Digite o nome do novo Usuário”, Title:=”Novo Usuário”, Default:=””)
linha = plan.Range(“F:F”).Find(UCase(nome)).Row
MsgBox (“Nome de Usuário já cadastrado”)
Exit Sub
‘cadastra o novo usuario e ID
novo_user:
linha = plan.Range(“A” & Rows.Count).End(xlUp).Row
plan.Cells(linha + 1, 1) = linha
plan.Cells(linha + 1, 6) = UCase(nome)
‘limpa as combos
Me.cmb_nome.Clear
Me.cmb_status.Clear
Me.cmb_tipo.Clear
Call UserForm_Initialize
End Sub

Cadastro Usuário Excel VBA segue vídeo passo a passo como criar.

Planilhas compatíveis com office 2007 em diante. Caso encontre alguma dificuldade para usar ou baixar nossas planilhas favor usar os comentários abaixo que em breve retornaremos.

Download

Usuário e senha da tela login: ADMIN – 123