Proteger celulas que ainda estejam desprotegidas em uma planilha já protegida

[valter gyn]

Boa noite a todos!

Alguém sabe me dizer se tem como proteger algumas células que ainda esteja desprotegida em uma planilha protegida???

Tenho uma planilha protegida por senha e algumas células bloqueadas e outras não bloqueadas para que possa ser alteradas, "como num formulário". O que eu preciso é que ao ser preenchida as células desbloqueadas eu possa bloquea-las.

1ª proteção (para não alterar os dados da empresa)

2ª Proteção (Proteger os dado que o usuário preencher, evitando que ela possa abrir a planilha e alterar os dados já lançados.)

Se tiver como fazer esse procedimento por macro seria muito melhor.

[zinhovba]

Bom dia!!

Há muitas maneiras

http://www.cpearson.com/excel/Protection.aspx

http://msdn.microsoft.com/en-us/library/office/aa191957(v=office.10).aspx

Exemplo.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    ActiveSheet.Protect userinterfaceonly:=True

    If Not Intersect(Target, Range("C15:C1000, E15:E1000, G15:G1000, I15:I1000, N14:N1000")) Is Nothing Then
        Cancel = True
        Target = Time()
        Target.Locked = True
    End If

End Sub