quitar titulo de microsoft excel

holal Luis !

... un libro... deseara que cuando se abra no diga en la parte superior "Microsoft Excel"
... y en su lugar que aparezca el nombre del libro...

cuando se abre tu libro [en el evento '_open' o en el '_activate' / '_deactivate' de sus ventanas]

quitar el titulo de la aplicacion: -> applcation.caption = " "

restablecer el titulo de la aplicacion: -> application.caption = ""

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias Hector, y se podra tambien desaparecer el icono de excel? y tal vez
sustituirlo por otro?
por que ahora se abre con el nombre de mi libro pero a la par tiene el
caracteristico icono de excel
gracias
"Héctor Miguel" wrote in message
news:%

holal Luis !

> ... un libro... deseara que cuando se abra no diga en la parte superior

"Microsoft Excel"

> ... y en su lugar que aparezca el nombre del libro...

cuando se abre tu libro [en el evento '_open' o en el '_activate' /

'_deactivate' de sus ventanas]

quitar el titulo de la aplicacion: -> applcation.caption = " "

restablecer el titulo de la aplicacion: -> application.caption = ""

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Luis !

... se podra tambien desaparecer el icono de excel? y tal vez sustituirlo por otro? ...

asumiendo que tienes un archivo *.ICO para el nuevo icono...
prueba copiando/pegando las siguientes instrucciones

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo del libro [ThisWorkbook] ==Private Declare Function BuscaVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Nombre As String) As Long
Private Declare Function SacarIcono _
Lib "Shell32.dll" Alias "ExtractIconA" ( _
ByVal Instala As Long, ByVal ArchivoICO As String, _
ByVal Indice As Long) As Long
Private Declare Function MandaMensaje _
Lib "User32" Alias "SendMessageA" ( _
ByVal Ventana As Long, ByVal Mensaje As Long, _
ByVal ParV As Integer, ByVal ParL As Any) As Long
Private Sub Workbook_Open()
Dim Archivo As String
Archivo = "c:uta y\sub carpetas donde esta\el archivo.ico" ' <= pon aqui la ruta al archivo con el icono '
CambiarIcono Archivo
Application.Caption = "Mi Empresa, S.A."
End Sub
Private Sub CambiarIcono(Optional ByVal Archivo As String = "")
If Dir(Archivo) = "" Then Exit Sub
Dim Ventana As Long, Icono As Long
Icono = SacarIcono(0, Archivo, 0)
Ventana = BuscaVentana(vbNullString, Application.Caption)
MandaMensaje Ventana, &H80, 0, Icono
MandaMensaje Ventana, &H80, 1, Icono
End Sub

Por favor Héctor, ¿podrías explicarme donde debo poner lo que comentas?

En la macro

Private Sub Workbook_Open()
applcation.Caption = " "

End Sub

Gracias

"Héctor Miguel" escribió:

holal Luis !

> ... un libro... deseara que cuando se abra no diga en la parte superior "Microsoft Excel"
> ... y en su lugar que aparezca el nombre del libro...

cuando se abre tu libro [en el evento '_open' o en el '_activate' / '_deactivate' de sus ventanas]

quitar el titulo de la aplicacion: -> applcation.caption = " "

restablecer el titulo de la aplicacion: -> application.caption = ""

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Angel !

... donde debo poner lo que comentas?
En la macro
Private Sub Workbook_Open()
applcation.Caption = " "
End Sub

lo 'usual' es poner este tipo de codigos dentro del modulo de codigo de 'ese' libro -> ThisWorkbook [p.e.]

a) para que el entorno de la aplicacion se 'adapte' cuando se abre 'tu' libro:
Private Sub Workbook_Open()
Applcation.Caption = " "
End Sub

b) la aplicacion 'recuperara' su titulo normal SOLO hasta que se cierre esa sesion... o al cerrarse 'tu' libro si usas:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Applcation.Caption = ""
End Sub

c) si quieres 'alternar' entre 'tu' libro y otros libros abiertos en la sesion:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)

Applcation.Caption = " "
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Applcation.Caption = ""
End Sub

nota: los eventos '_activate' y '_deactivate' del libro tambien se ejecutan despues de los '_open' y '_beforeclose' :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.