angelcrisnor respondió:
Creo que lo último que te faltaba es utilizar el parámetro password al proteger la hoja: Sub actualizadatos() Sheets("Hoja1"). Unprotect ActiveWorkbook. RefreshAll Sheets("Hoja1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False,...