Thisworkbook

Estimados expertos, como ya sabéis mi nivel de VBA es muy bajo por lo que me surgen problemas por doquier... Jejjeje ... La cuestión es que he conseguido manipular un código para que me agrande la fila en la que estoy trabajando (cambiaron el ordenador del trabajo a uno con una tarjeta gráfica muy potente con lo que todo se va más pequeño)me funciona bien si lo coloco en el código de la página pero si lo coloco en "thisWrkbook" no funciona, he probado a cambiar:
Private Sub Worksheet_SelectionChange(ByVal target As Range)
por:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
(Lo vi en otro código) pero como era de esperar no funcionó ... Es lo que pasa cuando no "sabes" lo que haces también intente quitarle los password lo único que he conseguido es desactivarlos, ¿alguien me puede ayudar?, ¿Seria posible colocarlo en el libro "PERSONAL.xls" para que funcione en todos los libros?
Siento mucho la paliza
Mil gracias de antemano
________________________________________
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Static Celda As Range, bytColor As Byte
On Error GoTo Workbook_SheetActivate_TratamientoErrores
ActiveSheet.Unprotect Password:="xx" 'aqui el password
Application.ScreenUpdating = False
' vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ' Celda.RowHeight / 2
Celda.EntireRow.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
'Centro el texto en la celda verticalmente en toda la fila
Celda.EntireRow.VerticalAlignment = xlCenter
' 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 * 3
Celda.EntireRow.Font.Size = 18
Selection.Font.Bold = True
' cambio el color a la celda activa
Celda.Interior.ColorIndex = bytColor
On Error GoTo 0
Exit Sub
Workbook_SheetActivate_TratamientoErrores:
Resume Next
ActiveSheet.Protect Password:="xx"
End Sub