Básicamente seria algo assim:
Sub atualizar()
'Dim ....
'comando que desprotege a planilha nome Plan1 (altere para o nome da planilha onde o evento irá atuar/desproteger)
'no caso a senha é TESTE altere para a sua senha
Sheets("Plan1").Unprotect "TESTE"
' aqui seu codigo de atualização
'comando que protege a planilha
Sheets("Plan1").Protect "TESTE"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/03/2013 1:15 pm