Boas
Tenho o seguinte código, de pesquisa na net.

[Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo TratarErro

    If Target.Column = 18 And Target.Value <> "" Then
        'Desliga a escuta dos eventos temporariamente

        Application.ScreenUpdating = False
        'Passa a data e hora atual e o usuário

        Target.Offset(0, 1).Value = Now()
    End If
TratarErro:

    'Liga novamente a escuta dos eventos

    Application.ScreenUpdating = True

End Sub/code]
Agora acontece que eu tenho a folha protegida e é onde eu guardo os meus registos de um formulário de outra folha.

Consigo guardar esses registos através de uma macro para desproteger e proteger a folha mas não estou a conseguir realizar esta macro.

Como posso fazer?

Obrigado desde já