Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

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

Ir para baixo 
2 participantes
AutorMensagem
uiu




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

Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Impedimento de salvar o arquivo obrigando a preencher determinadas células EmptySex 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!


Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

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

Boa noite!!

Quanto mais detalhes melhor e mais rápido!!

Qual é o intervalo exato?

Att
Ir para o topo Ir para baixo
uiu




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

Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Impedimento de salvar o arquivo obrigando a preencher determinadas células EmptySáb 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.
Ir para o topo Ir para baixo
uiu




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

Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: link   Impedimento de salvar o arquivo obrigando a preencher determinadas células EmptySeg 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

Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Impedimento de salvar o arquivo obrigando a preencher determinadas células EmptyQui 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
Ir para o topo Ir para baixo
uiu




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

Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: Impedimento de gravar o arquivo.   Impedimento de salvar o arquivo obrigando a preencher determinadas células EmptyQua 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!
Ir para o topo Ir para baixo
uiu




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

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

Pessoal,

aceito alguma outra sugestão para isso..
Ir para o topo Ir para baixo
uiu




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

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

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

Por favor!
Ir para o topo Ir para baixo
Conteúdo patrocinado





Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty
MensagemAssunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células   Impedimento de salvar o arquivo obrigando a preencher determinadas células Empty

Ir para o topo Ir para baixo
 
Impedimento de salvar o arquivo obrigando a preencher determinadas células
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Salvar Arquivo com SENHA
» Alterar Valor de Célula e Salvar Novo Arquivo.
» Salvar como um arquivo excel em outro diretório
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Salvar em PDF Algumas Planilhas

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: