Ejecutar codigo cada vez que se abra excel

¡ Hola ! Hector
Sabes Tengo un codigo que me encontré en internet para Excel, y me llamo
mucho la atención ya que el codigo incrementa el tamaño de la
celda seleccionad.
Este codigo lo eh tratado de correr como complemento de Excel para que cada vez
que se abra se corra pero no lo ejecuta no pasa nada eh incluso ni siquiera
sale la pestaña de complementos, lo guarde ya en un modulo pero nada y
mi pregunta es ¿cómo puedo hacerle o que tengo que modificar ami
codigo para que cada vez que se abra corra el codigo? ya que me gustaria que
corriera cada vez que se abra excel o algun archivo pro que tengo un familiar
que sufre de la vista y este complemente le ayudaria mucho gracias .

//anexo codigo//

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
Static Celda As Range, _
bytColor As Byte
On Error GoTo Workbook_SheetSelectionChange_TratamientoErrores
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.ColumnWidth = 10.71 ' Celda.ColumnWidth / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
' guardo en la variable estatica la fila y columna actual
Set Celda = Target
' duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.ColumnWidth = Celda.ColumnWidth * 2
Celda.Font.Size = 14
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = 4
Workbook_SheetSelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Workbook_SheetSelectionChange_TratamientoErrores:
Resume Next
End Sub

andresadan2000 escribió el 29/08/2012 23:43 :

¡ Hola ! Hector
Sabes Tengo un codigo que me encontré en internet para Excel, y me
llamo
mucho la atención ya que el codigo incrementa el tamaño de la
celda seleccionad.
Este codigo lo eh tratado de correr como complemento de Excel para que cada
vez
que se abra se corra pero no lo ejecuta no pasa nada eh incluso ni siquiera
sale la pestaña de complementos, lo guarde ya en un modulo pero nada y
mi pregunta es ¿cómo puedo hacerle o que tengo que modificar ami
codigo para que cada vez que se abra corra el codigo? ya que me gustaria que
corriera cada vez que se abra excel o algun archivo pro que tengo un familiar
que sufre de la vista y este complemente le ayudaria mucho gracias .

//anexo codigo//

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
Static Celda As Range, _
bytColor As Byte
On Error GoTo Workbook_SheetSelectionChange_TratamientoErrores
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.ColumnWidth = 10.71 ' Celda.ColumnWidth / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
' guardo en la variable estatica la fila y columna actual
Set Celda = Target
' duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.ColumnWidth = Celda.ColumnWidth * 2
Celda.Font.Size = 14
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = 4
Workbook_SheetSelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Workbook_SheetSelectionChange_TratamientoErrores:
Resume Next
End Sub

En el editor de macros, en VBA-Proyect da doble clic en ThisWorkbook y del ado
derecho En el compbo que dice (General) selecciona Workbook y te aparecera el
precedimiento Privata Sub Workbook_Open, ahí pon el codigo o si lo
tienes en un modulo mandalo llamar con CALL
"nombre_del_procedimiento".

dave escribió el 07/09/2012 07:47 :

andresadan2000 escribió el 29/08/2012 23:43 :

¡ Hola ! Hector
Sabes Tengo un codigo que me encontré en internet para Excel, y me
llamo
mucho la atención ya que el codigo incrementa el tamaño de la
celda seleccionad.
Este codigo lo eh tratado de correr como complemento de Excel para que cada
vez
que se abra se corra pero no lo ejecuta no pasa nada eh incluso ni siquiera
sale la pestaña de complementos, lo guarde ya en un modulo pero nada y
mi pregunta es ¿cómo puedo hacerle o que tengo que modificar
ami
codigo para que cada vez que se abra corra el codigo? ya que me gustaria que
corriera cada vez que se abra excel o algun archivo pro que tengo un familiar
que sufre de la vista y este complemente le ayudaria mucho gracias .

//anexo codigo//

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
Static Celda As Range, _
bytColor As Byte
On Error GoTo Workbook_SheetSelectionChange_TratamientoErrores
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.ColumnWidth = 10.71 ' Celda.ColumnWidth / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
' guardo en la variable estatica la fila y columna actual
Set Celda = Target
' duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.ColumnWidth = Celda.ColumnWidth * 2
Celda.Font.Size = 14
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = 4
Workbook_SheetSelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Workbook_SheetSelectionChange_TratamientoErrores:
Resume Next
End Sub

En el editor de macros, en VBA-Proyect da doble clic en ThisWorkbook y del ado
derecho En el compbo que dice (General) selecciona Workbook y te aparecera el
precedimiento Privata Sub Workbook_Open, ahí pon el codigo o si lo
tienes en un modulo mandalo llamar con CALL
"nombre_del_procedimiento".

oye perdon por mi ignorancia pero como lo mando a llama en el modulo con el
call ya que intente hacerlo de la otra manera que me comentas pero no funciono,
gracias