Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Impedimento de salvar o arquivo obrigando a preencher determinadas células

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Sex Mar 30, 2012 2:59 pm

Bom dia a todos.

Estou precisando restringir o salvamento do arquivo, condicionando o preenchimento obrigatório de determinadas células. Andei pesquisando e encontrei a macro abaixo

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'Impede Salvar Como
Cancel = True
'Verifica se as células A1, B1 ou C1 estão vazias
If IsEmpty(Range("A1")) And IsEmpty(Range("B1")) And IsEmpty(Range("C1")) Then
Mensagem = MsgBox("Células A1, B1 ou C1 estão vazias.", vbExclamation, "Documento não será salvo")
Exit Sub
Else
End If
End Sub



funcionou, entretando a quantidade de células que devem ser preenchidas é maior (várias colunas) e varias linhas (limitando a 20) e as linhas podem aumentar.

Se tiverem uma dica para me ajudar, eu agradeço muito.

Parabéns pelo forum. Excelente!


Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Sab Mar 31, 2012 12:53 am

Boa noite!!

Quanto mais detalhes melhor e mais rápido!!

Qual é o intervalo exato?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Sab Mar 31, 2012 3:50 pm

Bom dia,

Vou tentar exemplificar, antes de eu ter acesso para postar o link do exemplo para baixar!

As colunas são de A2:K2, no entanto as linhas se estendem a uma quantidade de 15 (a quantidade que eu acredito ser suficiente). Essa seria a área restrita.

Um detalhe importante. Quando o usuário for preenchê-la, ele não tem obrigatoriedade de preencher as 15 linhas. O mesmo será informado (no e-mail) para deletar as linhas em excesso, ou seja, as linhas em branco que não foram utilizadas, obrigado-o a deixar somente as linhas preenchidas e assim salvar o arquivo.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: link   Seg Abr 09, 2012 4:19 pm

Bom dia a todos..

Segue o link para facilitar a visualização sa planilha.. Agradeço a atenção.

http://dl.dropbox.com/u/52456389/exemplo%201.xls

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Qui Abr 19, 2012 2:29 pm

Bom ida!!

Tente assim..
Código:
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'Impede Salvar Como
Cancel = True
'Verifica se as células A1, B1 ou C1 estão vazias
If IsEmpty(Range("A2:K15")) Then
Mensagem = MsgBox("O intervalo,A2:K15 não está totalmente preenchido.", vbExclamation, "Documento não será salvo")
Exit Sub
Else
End If
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: Impedimento de gravar o arquivo.   Qua Abr 25, 2012 5:36 pm

Eu havia tentado também, mas pelo que percebi os intervalos não tem efeito no código. Teria que fazer célula por célula, o que torna inviável diante da quantidade de linhas e colunas.

Tem alguma outra idéia que possa ser feito?

Agradeço a atençao!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Qua Maio 02, 2012 11:16 pm

Pessoal,

aceito alguma outra sugestão para isso..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
uiu



Mensagens : 7
Data de inscrição : 29/03/2012

MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Ter Maio 22, 2012 3:57 pm

Não existe outra maneira? alguem pode me dar alguma sugestão??

Por favor!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Hoje à(s) 9:57 am

Voltar ao Topo Ir em baixo
 
Impedimento de salvar o arquivo obrigando a preencher determinadas células
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido][DUVIDA] - Como salvar (em arquivo.txt) tudo o que a variavel gravou? {GM 8.0 PRO}
» Arquivo corrompido
» salvar em arquivo exe
» Meu jogo rodando em Celular Android pelo Game Maker Studio
» Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: