Proteção de Pasta de Trabalho

JRK2014 · 26 de outubro de 2014

Olá, bom dia a todos.

estou precisando de uma ajuda.

Tenho uma pasta de trabalho com planilha, sendo que em uma delas os usuários inserem dados para uma solicitação de serviços.

Preciso colocar uma proteção nesta pasta, onde os usuários possam incluir dados, porém depois que as informações forem salvas não possam deletar, para deletar só com senha.

Alguem pode me ajudar? se precisar eu posto a planilha.

Desde já agradeço

Bom dia e boa votação a todos

Att

Patropi · 26 de outubro de 2014

Boa tarde José

Dá para fazer com Macro.

No link abaixo tem um exemplo de como fazer, basta adaptar para o teu caso.

http://excel-vba.webnode.pt/news/bloquear-apenas-celula-apos-digitar/

Se a dica foi útil, clique em Curtir

[]s

JRK2014 · 26 de outubro de 2014

Olá Patropi,

Obrigado pela resposta rapda.

Colei o código mais não deu certo. Devo ter feito algo errado.

Abri a planilha teclei F11 e inseri o código na ''Nesta pasta de trabalho''

Pode me dar mais um help?

26 de outubro de 2014

@JRK2014

O código que o Patropi sugeriu deve ser colado no módulo da planilha, assim:

1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Antes de instalar o código clique retângulo localizado acima do número 1 e à esquerda da letra A (no canto superior esquerdo da planilha) com o fim de selecionar toda a planilha. Estando a planilha selecionada clique com o direito em qualquer parte dela >> Formatar células / Proteção / desmarque Bloqueadas / OK.

O código atua nas colunas C:F, linhas 2:20000, e bloqueia as células entre aquelas colunas, na linha onde for inserido um conteúdo. Se selecionar uma célula vazia e apertar Delete o código também bloqueia as células.

O código protege a planilha com a senha "Testes".

Faça os testes e retorne se precisar de ajustes/alterações.

JRK2014 · 26 de outubro de 2014

Olá,

Fiz os testes, ocorreu o seguinte: A partir da hora que eu digito na primeira celula do range bloqueia a celula que eu digitei e as outras do range tambem, ai eu não consigo digitar nas proximas tambem.

Tem como fazer passo a passo? Ou seja, as celulas vão sendo bloqueadas conforme eu digito. E tambem, que esse bloqueio aconteça somente após eu salvar a planilha.

Uma outra situação, esta planilha é compartilhada, há alguma restrição pra usar a macro?

Grato pela atenção

26 de outubro de 2014

Instale o código abaixo no módulo de EstaPasta_de_trabalho. Após acessar o editor de VBA via Alt+F11 dê duplo clique em EstaPasta_de_trabalho e cole o código na nova janela.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Sheets("Plan1")   .Protect "abcd", UserInterFaceOnly:=True   .UsedRange.Cells.SpecialCells(xlCellTypeConstants, 3).Locked = True End WithEnd Sub

Desbloqueie todas as células da planilha conforme comentado no post anterior.
Instale o código, preencha algumas células da planilha "Plan1" (troque o nome da planilha no código se necessário) e salve o arquivo. Em seguida faça os testes.

funcionamento - ao executar o comando para salvar o arquivo todas as células não vazias da planilha serão bloqueadas contra alteração.

A senha é "abcd". Troque no código se quiser.
Se não quiser que outros usuários vejam a senha (que está explícita no código) você poderá bloquear o projeto VBA para exibição: menu do editor de VBA / Ferramentas / Propriedades ... / Proteção

JRK2014 · 26 de outubro de 2014

Boa noite.

Fiz os testes, funcionou, porém só para dados já inseridos antes de colar o codigo. Os dados que eu colocar depois de ter colado o código não ficam protegidos.

Ainda estou fazendo alguma coisa errada?

Att

26 de outubro de 2014

Os dados que eu colocar depois de ter colado o código não ficam protegidos.

A proteção de todas as células preenchidas só se efetiva ao salvar o arquivo após inserir novos dados. Mesmo depois de salvar o arquivo não protege?