Ejecutar codigo cada vez que se abra excel

29/08/2012 - 23:43 por andresadan2000 | Informe spam
¡ 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
 

Leer las respuestas

#1 dave
07/09/2012 - 07:47 | Informe spam
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".

Preguntas similares