Notifications
Clear all

Erro quando Abro duas Planilhas

10 Posts
4 Usuários
0 Reactions
1,662 Visualizações
(@suporte100)
Posts: 0
New Member
Topic starter
 

Ola,
Estou desenvolvendo uma planilha em vba com uma tela de Login, Mas Toda vez que eu abro essa planilha e eu ja tenho outra aberta, ela da um erro e nao abre.
oque poderia ser?
Segue a planilha em anexo.
Usuario: Administrador
Senha: 4662

 
Postado : 08/06/2016 9:00 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

suporte100,

Boa Tarde!

Infelizmente, não tenho como lhe ajudar pois aqui no meu micro seu arquivo abriiu normalmente sem qualquer problema, mesmo tenho outras planilhas abertas.

 
Postado : 08/06/2016 9:25 am
(@suporte100)
Posts: 0
New Member
Topic starter
 

Segue o print da tela,
primeiro eu abro uma planilha que nao tem ligação com essa e depois eu abro essa que t enviei e clico em entrar ai aparece esse erro.

 
Postado : 08/06/2016 9:38 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

suporte100,

Com disse, aqui não ocorreu esse erro. Entretanto, tente fazer o seguinte antes dessa linha:

Set WU = Sheets (Usuários")

Selecionar o arquivo que você quer:

Wirkbooks ("Teste.xlsm").Activate
 
Postado : 08/06/2016 11:02 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Desculpe. Código Correto:

Workbooks ("Teste.xlsm").Activate
 
Postado : 08/06/2016 11:02 am
(@suporte100)
Posts: 0
New Member
Topic starter
 

Coloquei, continua o erro.

 
Postado : 08/06/2016 11:38 am
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimentou ?

Set WU = ThisWorkbook.Sheets("Usuarios")
 
Postado : 08/06/2016 2:53 pm
(@suporte100)
Posts: 0
New Member
Topic starter
 

Perfeito, Funcionou muito bem.
Só mais uma duvida, Existe outro código para fechar a planilha alem deste "Application.Quit" porque se eu estiver com outras planilhas aberta e clicar no botar fechar ele fecha todas as planilha, mas eu queria fechar apenas essa. Existe outro código?

 
Postado : 09/06/2016 9:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Baseado na ideia do poste anterior tente!

ThisWorkbook.Close  

Att

 
Postado : 09/06/2016 9:50 am
(@suporte100)
Posts: 0
New Member
Topic starter
 

Muito Obrigado a Todos.
Funcionou 100%.
Obrigado.

 
Postado : 09/06/2016 10:24 am