Notifications
Clear all

VBA - MENSAGEM DO EXCEL 'DESEJA SUBSTITUIR?

7 Posts
3 Usuários
0 Reactions
2,676 Visualizações
(@willianrc)
Posts: 0
New Member
Topic starter
 

Olá amigos, estou com um problema e não consigo resolver tem quase 1 semana. Se puderem me ajudar ficarei feliz :D .
Eu to fazendo um projetinho vba e na parte de cadastro quando clico pra salvar a primeira vez aparece a mensagem do Excel "Um arquivo chamado 'dados.xlsx' já existe neste local. Deseja substituí-lo?"
Como faço pra salvar direto sem aparecer essa mensagem? o incrivel que é só na primeira vez que vai cadastrar.

Segue meu projetinho em anexo para possíveis analises.

Muito Obrigado até o momento, aguardo retorno.

 
Postado : 14/05/2017 12:14 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

willianrc,

Boa tarde!

Para analisar seu problema você deve anexar aqui no fórum uma planilha exemplo (se não puder colocar a planilha real) com TODOS os campo, colunas, linhas e abas com seus respectivos nomes originais. Em outras palavras: os dados podem ser fictícios, todavia, o layout precisa ser exatamente igual ao do seu arquivo original.

Você colocou uma planilha que não faz o menor sentido e ainda não forneceu a senha de entrada. Desse modo, você só dificulta o atendimento e a ajuda as suas demandas.

 
Postado : 14/05/2017 1:01 pm
(@willianrc)
Posts: 0
New Member
Topic starter
 

Olá amigo, não sei voce percebeu anexei um arquivo Login.rar ,dentro do mesmo há uma planilha Login.xls , existe um botão "Clique aqui para Iniciar" onde abrirá o formulário VBA, neste formulario VBA exite Workbook_Open() onde criará uma PASTA com o nome REGISTRO no mesmo local do Login.xls, DENTRO Desta pasta criará um arquivo "dados.xls" e dentro deste arquivo "dados.xls" um sheet com o nome "Fornecedores", mencionei também que nas CELULAS A1,B1,C1,D1,E1,F1 irá ser gravado o login do ADMIN.
Minha duvida não está em acessar, e sim na hora de CADASTRAR, que na primeira vez que eu cadastro um usuário ele aparece a mensagem "Um arquivo chamado 'dados.xlsx' já existe neste local. Deseja substituí-lo?" , minha duvida é que na segunda, terceira, quarta vez que eu cadastro um usuário não aparece essa mensagem, porque aparece somente na primeira vez ? Gostaria que nunca aparecesse essa mensagem, e sempre gravar normalmente.

 
Postado : 14/05/2017 1:13 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Já experimentou usar o

 Application.DisplayAlerts = False

?
Por exemplo:

Application.DisplayAlerts = False

 ------Seu código de registro ----

Application.DisplayAlerts = True

Nessa sua explicação fiquei com uma dúvida, se você ficar salvando toda hora um arquivo novo chamado 'dados' o seu registro anterior não vai ser perdido?
Porque é exatamente isso que essa mensagem "Um arquivo chamado 'dados.xlsx' já existe neste local. Deseja substituí-lo?" está alertando.

att,

 
Postado : 14/05/2017 3:50 pm
(@willianrc)
Posts: 0
New Member
Topic starter
 

brunoxro, tentei mano, só que tipo: no momento que ele vai salvar ele não adiciona o valor das textboxs lá na planilha 'dados.xls' ( isso usando Application.DisplayAlerts ) . Ai eu posso tentar cadastrar 1000 usuarios que nao salva nenhum. A minha dúvida está acontecendo assim:

* Na parte de cadastro de usuarios , quando voce vai cadastrar o 1º Usuário aparece essa mensagem : "Um arquivo chamado 'dados.xlsx' já existe neste local. Deseja substituí-lo?" , se eu CLICAR SIM, ai ele vai lá e substitui o arquivo 'dados.xls' e salva normalmente, ai eu posso cadastrar o (segundo, terceiro, quarto......) que funciona normalmente, ( quando eu cadastro o (segundo terceiro quarto) já NÃO aparece a MENSAGEM mais, isso porque eu cliquei SIM na primeira vez).

*A minha dúvida é que eu não quero que apareça essa mensagem de substituir nenhuma vez. Eu quero que ele simplesmente salva normal igual o (segundo terceiro quarto...) cadastro normalmente.

*Creio eu que o problema esteja no Workbook_Open() porque é lá que eu crio a primeira vez o arquivo 'dados.xls'.

Obrigado até o momento.

 
Postado : 14/05/2017 6:39 pm
(@willianrc)
Posts: 0
New Member
Topic starter
 

Consegui resolver meu problema , Obrigado

 
Postado : 15/05/2017 12:17 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

willianrc,

Ok. Não havia visto tudo. Desculpe pela minha falha.

 
Postado : 15/05/2017 4:15 am