Prezado Felipe Magno,
Obrigado pela sua atenção.
Antes de lhe enviar os códigos vou tentar historiar em detalhes como tudo aconteceu
(talvez isso ajude a descobrir onde está o erro).
Tenho outro arquivo que é uma planilha do Excel.
Eu estava colocando valores nessa planilha (os valores das células são do tipo “=40+110
quando quero acrescentar mais um valor à célula coloco o sinal + e o novo valor para somar”
nesse momento, com a célula ainda em uso, precisei exibir a barra de fórmulas que estava oculta
para acrescentar mais um valor, foi aí que apareceu na célula que eu estava acrescentando valor
uma letra com um número tipo “M1=40+110”, a letra e o número não foi eu que digitei,
LEMBRE QUE, quando tudo isso estava acontecendo o outro arquivo em VBA ESTAVA ABERTO,
acho que de alguma forma isso provocou o erro que está acontecendo no arquivo em VBA (ou
erro talvez no Excel)
Faz 4 meses que uso e já fiz várias atualizações do programa com o formulário de Login e Senha e
em todo esse tempo, todas as versões NUNCA deram erro, sempre abriam normalmente.
Hoje tentei abrir uma versão antiga de 2 meses atrás, deu o mesmo erro que está dando na última versão.
Mesmo a versão mais recente também nunca tinha dado erro, começou depois do episódio narrado acima
(como pode versões que nunca deram erro agora estão dando?).
O MAIS ESTRANHO é que ÁS VEZES a última versão ABRE NORMALMENTE sem dar erro???
Por isso estou achando que o problema está no Excel (a minha versão é 2007) porque
se fosse um problema do programa não abriria nunca.
Tentei modificar essa Sub BTOK_Click eliminando o IF e mudando os códigos com Login e Senha
pré-definidos, mesmo assim dava erro, agora
simplifiquei ao máximo e continua as vezes abre outras não.
Desculpe o texto acima com os mínimos detalhes!
O arquivo em VBA que está dando erro abre uma planilha e um formulário de Login e Senha com
os botões Sair (BTSAIR) que não dá erro e o botão Entrar (BTOK) cuja função é abrir o formulário
principal, esse botão é o que dá o erro em questão.
A depuração com F8 aponta erro no botão BTOK.
O erro aparece como abaixo:
_________________________________________________________________________________________
Microsoft Office Excel
MICROSOFT OFFICE EXCEL HAS STOPPED WORKING
Windows can check online for a solution to the problem and try to recover your information
-
Check online for a solution and close the program
-
Close the program
______________________________________________________________________________________
Quando escolho qualquer uma das duas opções o programa VBA fecha.
Segue os códigos:
ESTA PASTA DE TRABALHO:
Private Sub Workbook_Open()
UserForm4.Show
End Sub
CÓDIGO DO FORMULÁRIO E LOGIN:
Private Sub BTOK_Click()
LOGINNOME2.MaxLength = 10
LOGINSENHA2.MaxLength = 6
LOGINNOME2.SetFocus
Worksheets("OS").Activate
A12.Value = Worksheets("OS").Range("HD24")
A22.Value = Worksheets("OS").Range("HD25")
A32.Value = LOGINNOME2.Value
A42.Value = LOGINSENHA2.Value
If A32 = A12 And A42 = A22 Then
UserForm1.Show
Else
LOGINNOME2.Text = ""
LOGINSENHA2.Text = ""
LOGINNOME2.SetFocus
MsgBox "POR FAVOR, DIGITE SUA SENHA E LOGIN", vbCritical, "SENHA ERRADA"
End If
End Sub
Private Sub BTSAIR_Click()
If MsgBox("DESEJA SAIR DO PROGRAMA?", vbInformation + vbYesNo, "AVISO") = vbYes Then
ThisWorkbook.Application.Quit
End If
End Sub
Mais uma vez, obrigado,
Michel
