Proteção contra exc...
 
Notifications
Clear all

Proteção contra exclusão de linha após preenchimento

4 Posts
2 Usuários
0 Reactions
605 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia.

Pesquisando no Planilhando, achei um código em VBA que, em partes, me é bastante útil. Segue:
--------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("S1001").Value2 = "X" Then Exit Sub
MsgBox "Não é permitido excluir linhas no intervalo A1:R1000"
Application.Undo
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------------
Pelo que percebo, se preenchida a célula S1001 (com "X"), linhas e células no intervalo A1:R1000 estarão protegidas de exclusão.

A partir deste código, é possível fazer com que, após cada linha preenchida, a macro ir protegendo todo (e apenas) o conteúdo acima dela, deixando os restantes das linhas e colunas abaixo dessas em proteção? Mai um detalhe: não quero apenas a proteção contra exclusão de linhas mas também proteção do conteúdo já digitado.
Mais especificamente: tenho uma planilha com dados a serem preenchidos nas células de A até H. Uma vez preenchida a linha 1 até a célula H, por exemplo, e partindo para a próxima linha, todo o conteúdo desta linha 1 será salvo (com senha). Terminado o preenchimento da linha 2, todo o conteúdo desta linha é salvo e qualquer tentativa de exclusão de linha também é ignorada; e assim sucessivamente.
Se for o caso, posso criar mais uma coluna para que o usuário preencha, por exemplo, com um "X" e, uma vez feito isso, o procedimento acima seja realizado.

Agradeço a ajuda. Abraços.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/11/2015 8:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Insira o comando

ActiveSheet.Protect

https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/11/2015 10:09 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

wwwagner,

Boa tarde!

Veja, no exemplo anexo, a forma que fiz. Para que se proteja a planilha contra alterações não autorizadas é necessário bloquear com senha toda a planilha. Nesse caso, antes de bloquear a mesma, também é necessário que se desbloqueio as células que se quer que o usuário edite. No exemplo, eu destaquei em amarelo uma faixa que vai da linha A1 a H10. Independentemente da faixa que destaquei, você pode utilizar qualquer quantidade de linhas na sua planilha, contando que desbloqueie previamente as linhas que quer que o usuário final edite. Assim que a pessoa digitar algo na coluna H (de qualquer linha), automaticamente aquela linha ficará bloqueada por senha para edição. A senha que utilizei nesse arquivo foi 123. Deve ser alterada para a que desejar. Todavia, altere também no código.

Veja se assim lhe atende.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/11/2015 10:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Wagner, muito obrigado pela ajuda. Sim, o que você propôs atendeu ao que eu necessitava. Abraços.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/11/2015 8:14 am