Macro desde código de hoja

Hola,

Tengo la siguiente macro que hace que la única hoja de un libro se proteja
con una clave al abrirlo. También permite que las columnas agrupadas se
expandan o se oculten sin que de error por estar protegidas. Este código lo
tengo puesto en "This Workbook". Me gustaría saber si hay forma de que la
macro funcione si la copio en el código de la hoja correspondiente; esto es
por que he intentado mover la hoja a otro libro (de uso público), pero la
macro se queda en el libro original, con lo que al expandir u ocultar las
columnas agrupadas en este nuevo libro, me da error.

Muchas gracias a todos por la ayuda.

Pd. La macro fue una invención de alguien en este foro (no recuerdo quien),
a quien le estoy muy agradecido.


Private Sub Workbook_Open()
With ActiveSheet
.EnableOutlining = True
.Protect Password:="1234", UserInterfaceOnly:=True
End With
End Sub
Saludos,

Oszkar M^
Sevilla - España