| Impedimento de salvar o arquivo obrigando a preencher determinadas células | |
|
|
Autor | Mensagem |
---|
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: 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!
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células Sáb Mar 31, 2012 12:53 am | |
| Boa noite!!
Quanto mais detalhes melhor e mais rápido!!
Qual é o intervalo exato?
Att | |
|
| |
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células Sá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.
| |
|
| |
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: 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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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
| |
|
| |
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: 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! | |
|
| |
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: 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.. | |
|
| |
uiu
Mensagens : 7 Data de inscrição : 29/03/2012
| Assunto: 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! | |
|
| |
Conteúdo patrocinado
| Assunto: Re: Impedimento de salvar o arquivo obrigando a preencher determinadas células | |
| |
|
| |
| Impedimento de salvar o arquivo obrigando a preencher determinadas células | |
|