Ir ao conteúdo
  • Cadastre-se

Campo Obrigatório Excel


Feljr

Posts recomendados

Olá amigos!

Gostaria de saber se em um formulário qualquer feito no excel 2003, nos campos para preenchimento, se pode torná-los obrigatórios, ou seja, quando o usuário abrir o formulário deverá origatóriamente preencher todos os campos solicitados, caso contrário não poderá salvar o documento. Tem como fazer isso no Excel?:confused: Muito obrigado pela atenção!

Link para o comentário
Compartilhar em outros sites

Tente fazer antes uma checagem se todos os campos que você deseja estão preenchidos e só então habilite a proxima ação. Exemplo:

If TextBox1.Text = Empty Then

MsgBox "Não é permitido campo vazio"

TextBox1.SetFocus

Exit Sub

Else

MsgBox "ok"

'Ação que você deseja se estiver ok

End If

Link para o comentário
Compartilhar em outros sites

Tente isto:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

'Impede Salvar Como

Cancel = True

'Verifica se TextBox1 está vazio

If ActiveSheet.OLEObjects("TextBox1").Object.Value = Empty Then

Mensagem = MsgBox("TextBox1 vazio", vbCritical, "Documento não será salvo")

Exit Sub

Else

End If

End Sub

Link para o comentário
Compartilhar em outros sites

  • mês depois...

Aperte Alt+F11 e no navegador de projetos abra EstaPasta_de_trabalho

e digite o 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("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

Link para o comentário
Compartilhar em outros sites

ahhh q beleza..

valeu... eu consegui fazer ...

eu tenho 4 worksheet , se eu colocar essa função ...as 4 worksheet eu terei q colcoar algum dado pra salvar

1 - tem como fazer separado? tipo na worksheet 1 eu coloco as celculas a1,b1,c1, na worksheet 2 eu nao coloco nada ... e assim por diante?

um outro detalhe, eu nao consegui salvar, mesmo estando preenchido essas celulas, o aviso nao vai aparecer mas nao consigo salvar... utilizando a função acima

valeuu

Denis

Link para o comentário
Compartilhar em outros sites

Troque o código, em vez de escrever somente Range("A1"), escreva Range("Plan1!A1") neste caso a planilha será a que tiver o nome de Plan1, coloque o nome da planilha que você quer.

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

'Impede Salvar Como

Cancel = True

'Verifica se as células A1, B1 e C1 estão vazias

If IsEmpty(Range("Plan1!A1")) Or IsEmpty(Range("Plan1!B1")) Or IsEmpty(Range("Plan1!C1")) Then

Mensagem = MsgBox("Células A1, B1 ou C1 estão vazias.", vbExclamation, "Documento não será salvo")

Exit Sub

End If

End Sub

Link para o comentário
Compartilhar em outros sites

>..

coloquei uma macro pra fazer uma impressão simples do excel, porém eu gostaria de q aparecesse um aviso pergguntando

" voce tem certeza que deseja imprimir tudo" ???

( ) SIM ( ) NÂO

se eu clicar em não ele volta pro inicio e se e clicar em sim e continua o processo de impressão..

como posso fazer isso??

vlwwww

Link para o comentário
Compartilhar em outros sites

Novamente em EstaPasta_de_trabalho

Use o comando MsgBox e a sub BeforePrint dessa forma:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If MsgBox("Você tem certeza que deseja imprimir tudo?", vbYesNo, "Imprimir") = vbYes Then

Cancel = False

Else

Cancel = True

Exit Sub

End If

End Sub

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois...
  • 2 semanas depois...

Tem sim... é só criar duas Sub em EstaPasta_de_trabalho com os códigos:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If IsEmpty([sUA CAIXA DE COMBINAÇÃO] Then

Cancel = True

MsgBox "A caixa de combinação está vazia", vbExclamation, "Não será impresso"

Else Cancel = False

Exit Sub

End If

End Sub

Private Sub Workbook_BeforeSave(Cancel As Boolean)

If IsEmpty([sUA CAIXA DE COMBINAÇÃO] Then

Cancel = True

MsgBox "A caixa de combinação está vazia", vbExclamation, "Não será salvo"

Else Cancel = False

Exit Sub

End If

End Sub

Link para o comentário
Compartilhar em outros sites

hummm brigadao, eu tava quebrando a cabeça pra fazer esse "bloqueio" com essas caixas

mas agora to com um problema, ta impedindo de imprimir mesmo que tenha alguma coisa selecionada na caixa

e quando eu transformo uma celula em parte obrigatoria ta dando problema tambem

porque quando a celula ta vazia da o erro como deveria, mas se a celula ta preenchida ele nao imprime, nao salva e nao da erro nem nada

obs: totalmente leigo em vba :X

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois...

ola

imagine uma tabela que vai da coluna A ate D por exemplo,

Caso o usuário, preencha qualquer celula da primeira linha

ou seja, qualquer célula: A1 ou B1 ou C1 ou D1. então ele obriga

o preenchimento das outras da mesma linha. enqunto o usuário nao preencher

toda a linha, ai ele nao habilita o botao Salvar. Isso vale dambem para as outras Linhas

da tabela. Se o usuário preencher qualquer celula da segunda linha, ai ele obriga o preenchimento

de toda a linha só ai ela habilitará a opção de salvar.

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois...
Troque o código, em vez de escrever somente Range("A1"), escreva Range("Plan1!A1") neste caso a planilha será a que tiver o nome de Plan1, coloque o nome da planilha que você quer.

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

'Impede Salvar Como

Cancel = True

'Verifica se as células A1, B1 e C1 estão vazias

If IsEmpty(Range("Plan1!A1")) Or IsEmpty(Range("Plan1!B1")) Or IsEmpty(Range("Plan1!C1")) Then

Mensagem = MsgBox("Células A1, B1 ou C1 estão vazias.", vbExclamation, "Documento não será salvo")

Exit Sub

End If

End Sub

Olá amigos,

Sou novo neste fórum e preciso de ajuda. Preciso de um código que só permita salvar um arquivo no excel se alguns campos obrigatórios estiverem preenchidos. Já vi alguns códigos que incluem a opção de "Impedir salvar como". No meu caso, é necessário salvar como, mas alguns campos campos devem estar preenchidos obrigatoriamente para permitir que o arquivo seja salvo. Já utilizei o código em anexo nesta msg, mas ele não deixa salvar o arquivo. Espero que alguém possa me ajudar. Obrigado e abraços!

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois...

dofall

Tenho visto que você tem bastante conhecimento com o Macro

preciso de sua ajuda.. Ou de mais alguém que saiba me ajudar.. :D

Tenho uma planilha em que eu vou colocando uns dados, e ela vai fazendo calculos..

nessa mesma planilha eu tenho várias tabelas de dados..

e de acordo com os calculos que são feitos.. eu vou identificando os dados que eu quero nessas tabelas.

Gostaria de saber como eu posso mudar as linhas e colunas dessas tabelas de cor, a medida que eu efetuo os calculos.

Obrigado!

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...