Ocultar exibição de planilha após preenchimento - EXCEL

Question

Bom dia pessoal. 

Tenho criado um sistema de cadastro de login e senha no excel, tudo funcionando

Esse formulário abre automaticamente para criar um login e senha, e uma vez criado não queria que aparecesse novamente. 

Gostaria de saber como faço para mostrar esse formulário de cadastro só na primeira vez que o excel é aberto, e ocultar nas próximas.

Desde já agradeço.

Answer 1

Para você finalizar um formulário você pode utilizar o UNLOAD ME. Por exemplo:

IF User=true Then
	UNLOAD ME
Else
	MsgBox "Login errado"
End If

Great?

Answer 2

Dessa forma ele fecha normalmente, mas quando eu reabro a planilha ele aparece novamente

acho que não me expressei direito

tentando usar uma linguagem lógica:

if user= já houver cadastrado login e senha then
   ignorar o formulário de cadastro e abrir apenas o de login
else
   abrir formulário de cadastro

obrigado

Answer 3

Charlie,

a maneira mais simples de fazer isso é salvar a informação em algum local (pode ser uma planilha oculta ou até mesmo no registro do Windows) e consultar esta informação antes de abrir seu formulário.

Abraço.

---

Filipe Magno

Answer 4

Felipe Magno

meu código está assim:

Private Sub Workbook_Open()
Application.Visible = False

(Acredito que aqui precisa abrir a planilha onde está armazenada o login e a senha e selecionar o range)

If IsEmpty(ActiveCell) Then
FormCadastro.Show
FormLogin.Show
Else
FormLogin.Show
End If
End Sub

como seleciono a planilha "User" onde está armazenada o login e a senha com o range B1:B2?

obrigado

Answer 5

Boa noite Charlie.

Desculpe a demora na resposta, não tive tempo esta semana.

Considerando apenas o que solicitou, não há necessidade de ativamente selecionar o intervalo, basta que ele seja referenciado:

Private Sub Workbook_Open()
Application.Visible = False

If Plan1.Range("A2").Value2 = vbNullString Then
    FormCadastro.Show
    FormLogin.Show
Else
    FormLogin.Show
End If
End Sub

No exemplo acima utilizei o "CodeName" da planilha, mas também poderia ser pelo "Name":

If Worksheets("NomePlanilha").Range("A2").Value2 = vbNullString Then

Obs.: Note que sua solicitação irá desbloquear a planilha para qualquer pessoa que a abra após o primeiro acesso com sucesso.

Abraço.

---

Filipe Magno