Macro derechos de autor

[jprz]

Buenas noches, quisiera que me ayuden con lo siguiente. Necesito una macro para poder poner un mensaje de derecho de autor en la barra de estado de un libro de Excel (En la parte inferior).

Ejm. Hecho por Edu.....

He intentado con esta macro pero no me sale el mensaje

Private Sub Worbook_open()

Application.DisplayStatusBar = True

Application.StatusBar = "Hecho por Edu"

End Sub

Nota. El mensaje que quede permanente y nadie pueda borrarlo.

[asesorcperic]

hola jprz

dos cosas primero

Dim Dautor As String

Dautor = "Macro Realizada por jprz...."

Application.StatusBar = Dautor[/CODE]

con esto lograras ponerlo en el status bar

segundo, sabias que tan solo dejar precionado el boton de shift al abrir un libro que contenga macros estas se deshabilitaran, en pocas palabras si tu intencion es que nunca nadien se lo quite mas que tu es imposible ya que aunque le pongas contraseña a tu proyecto de vba no es 100%, saludos lo siento

[jprz]

Gracias!! por tomarse un tiempo para responder mi consulta. Hice lo que me dijo pero no me aparecio el mensaje y cuando cerre el libro y volvi a abrir la macro desaparecio ¿a que se debe? yo tengo vers. 2013 de Excel y he recibido archivo que tienen derechos pero ahora que quiero hacer lo mismo no puedo xq.

[Antoni]

.

¿ Tienes la macro en Thisworkbook ?

Si es así, corrige el procedimiento:

Private Sub Workbook_Open()

.

[jprz]

Muchas gracias!!! Macro Antonio. Funciona ok. con la sgte. macro.

Private Sub Workbook_Open()

Dim Dautor As String

Dautor = "Macro Realizada por jprz...."

Application.StatusBar = Dautor

End Sub

"TEMA SOLUCIONADO"

Gracias a todos..