deprotejer hoja con

Tengo una macro protejida con la clave "1234", necesito desprotegerla para escribir en ella, y volver a protegerla. Cuando la intento desprotejer con "ActiveSheet.Unprotect" me sale error. como le puedo meter la contraseña ...