Notifications
Clear all

[Resolvido] Proteção automática de linhas já preenchidas

3 Posts
1 Usuários
0 Reactions
624 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia a todos. Tenho uma plan aqui que contém muitas linhas; novas linhas são adicionadas diariamente com aquilo que é produzido. Gostaria que, cada vez que fossem preenchidas, quando o usuário saísse do Excel, o sistema as protegesse automaticamente, deixando apenas linhas em branco desprotegidas. Em suma: linhas com dados, protegidas; linhas sem dados, sem proteção. Deste modo, o que já foi lançado ninguém poderá alterar e, linhas que ainda não possuem dados ficam livres pra digitação. Agradeço a ajuda. :mrgreen:

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

 
Postado : 14/07/2011 8:15 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Wagner... acho que só é possível com Programação.

Supondo que os dados sejam inseridos na Plan1 e a senha seja 123:

No VBAProject... EstaPasta_de_Trabalho:

Private Sub Workbook_Open()

Sheets("Plan1").Activate
ActiveSheet.Unprotect ("123")
lin = Range("A65536").End(xlUp).Row + 1
Rows(lin & ":65536").Locked = False
ActiveSheet.Protect ("123")

Cells(lin, 1).Select

End Sub

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

 
Postado : 14/07/2011 9:55 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson, certinho. Exatamente isso. Muito obrigado. Abraços.

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

 
Postado : 14/07/2011 10:25 am