UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Macro en Excel el 23/02/13, 09:55 am

pedro jose capittini


Buenas tardes, sepan disimular mi ignorancia, 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 
Solucionado esto en que lugar de VBA devo pegar la macro
Desde ya muy agradecido y quedo a la espera de una respuesta que me solucione el problema 
Gracias 
Pedro

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.