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