Planilha Excel com limite de impute de dados!

[Pet79SP]

Boa Tarde Feras, tranquilidade?

Eu procurei, mas não encontrei nenhuma solução nos tópicos, então abri esse.

Eu tenho uma planilha, bem simples, porém, para o momento é muito util. Ela nada mais é que um "Controle de Agendamento", onde são lançados os agendamentos que pretendemos receber no mês.

Os dados imputados são os seguintes: Nome do Fornecedor, valor da mercadoria, quantidade de peças, data, hora. É bem simples mesmo.

O problema é o seguinte: A Logistica limita o recebimento diário para 15000 peças. Sendo assim, assim que ela atingisse esse total eu gostaria que ela não permitisse mais a entrada de dados.

Eu já tentei proteger a planilha, mas não é suficiente e já tentei colocar uma validação de dados, porém a validação de dados só funciona corretamente se a pessoa digitar manualmente, mas como estamos na era do "Ctrl C", "Ctrl V", isso apaga a validação.

Alguém já passou por algo semelhante que possa me dar um norte?

Obs.: Eu não posso postar a planilha, pois todos os sites são bloqueados, eu consegui uma liberação para o Clube, se alguém precisar e puder postar, caso alguém queira eu agradeço, eu passo por email.

Grato desde já!

Pet

[jeffsilveira]

Pet, você pode utilizar uma macro para isso:

-clique direito no nome da aba e selecione exibir código;

-cole o conteúdo abaixo, substituindo A1 pela célula que não deve ultrapassar 15000.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") >= 15000 Then
ActiveSheet.Protect ("senha")
End If
End Sub

Teste aí e verifique se necessita de ajuste.

Abraços.

[Pet79SP]

Fala Jeff, beleza...

Cara, eu criei um modulo e colei o código, alterei a A1 para H3.

Salvei, fechei e abri novamente e comecei a imputar os dados e passei dos 15000 e nada...

Lembrando que a célula H3 tem uma =SOMA(H5:H1048576)

[jeffsilveira]

Não crie um módulo, cole no código da planilha conforme expliquei acima.

E lembre-se, você deve habilitar as macros para funcionar.

Se seu excel for 2007~2010 deve salvar no formato xlsm para dar certo.

Fiz teste com soma, dá certo na medida que vão sendo inseridos dados.

No aguardo.

[Pet79SP]

Entendi Jeff,

Eu exclui o módulo e fui em uma guia qualquer (pois cada dia tem uma) e cliquei invertido > Ver Código. e Colei o código, salvei e tenter imputar os dados que permitiu ultrapassar o limite. Não entendo o que estou fazerndo errado.

Não crie um módulo, cole no código da planilha conforme expliquei acima.

E lembre-se, você deve habilitar as macros para funcionar.

Se seu excel for 2007~2010 deve salvar no formato xlsm para dar certo.

Fiz teste com soma, dá certo na medida que vão sendo inseridos dados.

No aguardo.

Meu Excel 2010

Jeff,

Abri um exxel limpo e colei o código na folha e deu certo...

Obrigado!!!

Só preciso fuçar para funcionar na planilha exitente...

Jeff,

Está dando essa mensagem:

Erro em tempo de exeução "1004':

A palavra-passe não estpa correcta. Verifique se a tecla CAPS LOCK

está desativada e ssegure-se de que utilizou as maiúsculas

Corretamente.

ActiveSheet.Protect ("senha")

Eu clico em depurar e vai para essa linha:

ActiveSheet.Protect ("senha")

Eu não mexo muito com VBA... Ai me perco...

[jeffsilveira]

Pet, a senha que está no código é: senha

Você pode alterar para outra palavra que quiser.

Acredito que há outro procedimento sendo executado com a planilha protegida, ou ela já está protegida com outra senha, e por isso vai dar o erro.

Verifique e, se for o caso, envie-me sua planilha via MP ou e-mail para que eu possa averiguar a solução sem comprometer seu sigilo.

No aguardo.

[Pet79SP]

Não achei opção de anexar via MP!

Estou on de Segunda a Sexta no horário comercial...

Quando estiver eu passo para dar um a olhada...

[jeffsilveira]

Sua planilha está bloqueada com uma senha diferente do procedimento da macro, e algumas células não estão bloqueadas.

Tente a macro abaixo no código de cada planilha:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H3") >= 15000 Then
ActiveSheet.Unprotect ("[COLOR="Red"]senha[/COLOR]")
Cells.Locked = True
ActiveSheet.Protect ("[COLOR="Red"]senha[/COLOR]")
MsgBox "O limite de 15.000 peças foi ultrapassado!", vbOKOnly, "Planilha bloqueada!"
End If
End Sub

Após atingir/ultrapassar o limite, a macro desprotege a planilha, bloqueia todas as células e torna a proteger a planilha.

Lembre-se de alterar senha pela senha de sua planilha.

Dê retorno.

[Pet79SP]

Sua planilha está bloqueada com uma senha diferente do procedimento da macro, e algumas células não estão bloqueadas.

Tente a macro abaixo no código de cada planilha:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H3") >= 15000 Then
ActiveSheet.Unprotect ("[COLOR="Red"]senha[/COLOR]")
Cells.Locked = True
ActiveSheet.Protect ("[COLOR="Red"]senha[/COLOR]")
MsgBox "O limite de 15.000 peças foi ultrapassado!", vbOKOnly, "Planilha bloqueada!"
End If
End Sub

Após atingir/ultrapassar o limite, a macro desprotege a planilha, bloqueia todas as células e torna a proteger a planilha.

Lembre-se de alterar senha pela senha de sua planilha.

Dê retorno.

Valeu Jeff... Funcionou conforme esperado...

Abraços...

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.