Excel - Macro para hoja de calculo

   
Vista:

Macro para hoja de calculo

Publicado por Pedro José (2 intervenciones) el 22/02/2013 05:26:48
Buenas tardes, quisiera recibir ayuda con una macro ya que soy poco conocedor del tema. 
Dispongo de la siguiente macro y quiero cambiar los rangos que debe activar o desactiva cuando se abre o cierra el libro, la macro es la que sigue 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
With Worksheets("Hoja2") 
. Unprotect Password:="pedro" 
. [B6:G46]. Locked = True 
. [B6:G46]. FormulaHidden = True 
. Protect Password:="pedro", DrawingObjects:=True, Contents:=True, Scenarios:=True 
End With 
End Sub 

Private Sub Workbook_Open() 
If Sheets("Hoja1"). [c5] = 1 Then 
With Worksheets("Hoja2") 
. Unprotect Password:="pedro" 
. [B6:G46]. Locked = False 
. [B6:G46]. FormulaHidden = False 
. Protect Password:="pedro", DrawingObjects:=True, Contents:=True, Scenarios:=True 
End With 
End If 
End Sub 

Esta macro me activa o desactiva el rango B6:G46, necesito saber como hacer lo mismo pero sobre los rangos de la Hoja1
C5:F20 y C25 F40 Si La celda A2 de la Hoja2 =5 
H5:K20 y H25:K40 Si La celda A3 de la Hoja2 =7 
M5:P20 y M25:K40 Si La celda A4 de la Hoja2 =11 
Desde ya muy agradecido y que do a la espera de una respuesta que me solucione el problema 
Gracias 
Pedro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder