Abrir una función desde un botón

hola, Luis !

1) tiene razon vba/excel por *disgustarse* si se tratan de modificar macros en libros ocultos :)) [ademas]...
considerando que el metodo MacroOptions tiene su *contra-parte* en el dialogo de Opciones de la Macro...
NO es necesario estarle *machacando* en cada apertura que *a tal macro* debe asignarle *tales caracteristicas*
por lo que una vez re/asignadas dichas propiedades, Y GUARDADO el libro que las contiene [una sola y unica vez]
la siguiente vez que se abre *ese* libro, sus procedimientos conservaran las caracteristicas re/asignadas ;)

a) elimina las instrucciones MacroOptions del evento '_Open' de tu libro de macros Personal.xls [pero conservalo oculto]
b) usa el metodo MacroOptions DESDE OTRO LIBRO [obviamente estando abierto y oculto el Personal.xls] +/- como sigue:

Sub Mis_Funciones_Personales()
Application.MacroOptions Macro:="NIF", Description:="La descripción.", Category:=9
Workbooks("personal.xls").Close True
End Sub

c) vuelve a abrir tu Personal.xls [o re-inicia el excel para que se 'auto-cargue'] SIN el MacroOptions en el evento '_Open'
d) la macro anterior ya no la necesitaras [puedes conservarla por si se volviera a necesitar] -?-

-> tip: si no quieres que tus funciones vayan *calificadas* con el nombre de su libro [Personal.xls!Mi_Funcion]
establece en *True* la propiedad de *IsAddin* en las propiedades de su ThisWorkbook... [Y LO GUARDAS]

2) con respecto de los 16 millones de colores que quieres aplicar a celdas en excel...
la propiedad .ColorIndex solo *cuenta* con los 56 colores *basicos* de la paleta de colores de excel
si necesitas de mayor variedad de colores...

a) combina con las posibilidades de la propiedad Trama
b) usa la propiedad .Color a la que SI puedes aplicarle colores RGB(... ... ...) [en lugar de .ColorIndex]

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

__ la consulta anterior __
__ 1 __
Mostrar la cita

El problema creo que es por estar en personal.xls y estar este libro oculto. Cuando lo muestro, cierro y vuelvo a abrir ya no me da ningun problema.
Pero claro, prefiero que el libro este oculto
el error es el siguiente:
Se ha producido el error '1004' en tiempo de ejecucion:
Error en el metodo 'MacroOptions' de objeto '_Application'
La funcion (copiada de alguna pagina y un poco modificada) es:
Function NIF(dni As Long) As String
Dim letra As String
letra = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (dni Mod 23) + 1, 1)
NIF = dni & letra
End Function
Esta en un modulo estandar del libro personal.xls

__ 2 __
Mostrar la cita

Y ya puestos :)) la propiedad cell(1,1).Interior.ColorIndex solo llega a 55? Que numero mas raro.
Es que intente hacer un degradado con 255 celdas con RGB(255,255,255-i) y me va a saltos.
Excel no reconoce 16 millones de colores para el fondo de una celda?