Icono de hoja

hola, Jaime Javier !

... cambiar el Icono que aparece en la esquina superior izquierda de una hoja de excel 2003 por otro icono personalizado?

si te refieres al icono de la aplicacion que aparece en la barra de titulos... -?-
y 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

Héctor Miguel:
y si lo que se deseara es cambiar el icono por defecto de Excel (el de
la hojita con la X) de un solo archivo,de tal manera que en el resto de
los archivos de excel conserven en su apariencia (icono) normal.
lo anterior con el proposito de hacer parecer que dicho archivo al
poseer un icono diferente no forma parte de excel,es posible esto con
alguna api ????

hola, castillo ?

y si lo que se deseara es cambiar el icono por defecto de Excel (el de la hojita con la X) de un solo archivo
de tal manera que en el resto de los archivos de excel conserven en su apariencia (icono) normal.
lo anterior con el proposito de hacer parecer que dicho archivo al poseer un icono diferente no forma parte de excel
es posible esto con alguna api ????

1) [hasta donde se] el icono que 'identifica' a los archivos con su aplicacion 'asociada'... lo establece 'la aplicacion' misma :))
hay diversas maneras de modificar dicho icono, pero seria aplicado a todos los archivos correspondientes :-(

2) para asignar un icono 'especial' a [ciertos de] 'tus' archivos de excel [probablemente] podrias iniciar por considerar lo siguiente:
a) los archivos que 'maneja' excel... no tienen por que 'apelidarse' .XLS [prueba cambiando algunos y abriendolos desde excel] ;)
b) si necesitas que tambien puedan abrirse desde atajos o doble-click... sera necesario 'registrar' la extension que necesites :))
[de lo contrario, podras abrirlos solo desde la aplicacion o por codigo] :-(

3) [creo que] todavia habra algun 'detalle' que estas dejando 'en el tintero' [como el proposito 'real' de tal necesidad] -?-

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

Héctor Miguel :
te contesto en orden inverso :-D
3.-el proposito o necesidad.-en realidad solo deseaba saber si mi
planteamiento era posible,no es que tenga necesidad de ello,simplemente
lo vislumbro como algo que se pudiera hacer para confundir un poco al
usuario que intente leer o llevarse mis archivos de excel (asi solo
buscaria los iconos tradicionales)[esto lo necesito asi por que debemos
dejar libre acceso a nustra PC y por lo tanto mi intencion solo es
"confundir"]

2.-asignar una extension diferente a ".xls".-esto ya lo habia hecho
antes y (por lo menos en mis ensayos,incluyendo este ultimo) se habren
con facilidad con doble click,sin necesidad de "registrar" [que dicho
sea de paso,no tengo idea de como hacerlo]
tal vez ese paso si me interesaria saberlo,pues deduzco que algo estare
haciendo mal,ya que sin registrar me los abre
esto parece contradictorio,pues si ya logre el objetivo deseado para
que registrarlo??.pero repito me interesa el asunto del registro,pues
deseo lograr lo que dices: " "
tambien lo relativo a abrirlos con atajos o poder abrirlos solo desde
la aplicacion o por codigo

1.-icono por defecto que 'identifica' a los archivos de Excel.-pues en
esto no tengo comentario,ya que tambien lo he hecho y efectivamente al
cambiar el icono cambian todos los iconos "tradicionales" de los
archivos de Excel

tal vez pruebe algunas ideas que se derivaron de tu respuesta ;-D

salu2

hola, castillo ?

3.- el proposito o necesidad.-en realidad solo deseaba saber si mi planteamiento era posible
no es que tenga necesidad de ello,simplemente lo vislumbro como algo que se pudiera hacer
para confundir un poco al usuario que intente leer o llevarse mis archivos de excel
(asi solo buscaria los iconos tradicionales)
[esto lo necesito asi por que debemos dejar libre acceso a nustra PC y por lo tanto mi intencion solo es "confundir"] ...

otra posibiidad es que OCULTES 'tus' archivos desde MiPC o desde el explorador de windows...
-> estableciendo/marcando/... la propiedad -> 'Hidden/Oculto'
lo anterios no impide que los puedas abrir introduciendo su nombre [y probablemente la ruta completa]
-> desde el dialogo de abrir archivos [de cualquier aplicacion] -?-

saludos,
hector.