Problemas con Macros en Hojas Protegidas
Publicado por Rovi (9 intervenciones) el 27/03/2007 17:41:12
Hola! Soy nuevo en esto y es la 1° vez que escribo. Necesitaría una mano para poder hacer funcionar una macro en una hoja protegida.
Tengo una hoja de cálculo que tiene con una macro que funciona bien. Ahora quiero proteger la hoja para dejar sólo ciertos rangos habilitados para que otros usuarios ingresen datos.
El tema es que cuando protejo la hoja, la macro deja de funcionar y tira un error (Las celdas que intenta modificar estan protegidas). Hay alguna forma de que la macro funcione sin problemas en la hoja protegida?
Muchas gracias si me pueden ayudar con esto.
Sdos.
PD: copio la macro a ver si se entiende mejor...
Sub Resaltar_Mes_IOP()
'
' Resaltar_Mes_IOP Macro
' Macro grabada el 20/03/2007 por Horacio Rovitti
'
'
Range("C4").Select
Select Case ActiveCell
Case 1
Columns("E:BP").Select
Selection.EntireColumn.Hidden = False
Selection.Interior.ColorIndex = xlNone
Range("E6:H6,H7:H304").Select
Range("H7").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range( _
"E237:G304,E227:G234,E137:G224,E127:G134,E37:G124,E27:G34,E22:G24,E12:G19,E7:G9" _
).Select
Range("G9").Activate
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Range("E8").Select
Range("K1:L1,O1:P1,Q1:T1,W1:X1,AA1:AB1,AE1:AF1,AG1:AN1,AQ1:AR1,AU1:AV1,AY1:AZ1,BA1:BD1,BG1:BH1,BK1:BL1,BO1:BP1,BQ1:BX1").Select
Selection.EntireColumn.Hidden = True
Range("E8").Select
Case 2
Columns("E:BP").Select
Selection.EntireColumn.Hidden = False
Selection.Interior.ColorIndex = xlNone
Range("I6:L6,L7:L304").Select
Range("L7").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range( _
"I237:K304,I227:K234,I137:K224,I127:K134,I37:K124,I27:K34,I22:K24,I12:K19,I7:K9" _
).Select
Range("K9").Activate
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Range("I8").Select
Range("E1,G1,O1:P1,Q1:T1,W1:X1,AA1:AB1,AE1:AF1,AG1:AN1,AQ1:AR1,AU1:AV1,AY1:AZ1,BA1:BD1,BG1:BH1,BK1:BL1,BO1:BP1,BQ1:BX1").Select
Selection.EntireColumn.Hidden = True
Range("I8").Select
Case...
End Select
End Sub
Tengo una hoja de cálculo que tiene con una macro que funciona bien. Ahora quiero proteger la hoja para dejar sólo ciertos rangos habilitados para que otros usuarios ingresen datos.
El tema es que cuando protejo la hoja, la macro deja de funcionar y tira un error (Las celdas que intenta modificar estan protegidas). Hay alguna forma de que la macro funcione sin problemas en la hoja protegida?
Muchas gracias si me pueden ayudar con esto.
Sdos.
PD: copio la macro a ver si se entiende mejor...
Sub Resaltar_Mes_IOP()
'
' Resaltar_Mes_IOP Macro
' Macro grabada el 20/03/2007 por Horacio Rovitti
'
'
Range("C4").Select
Select Case ActiveCell
Case 1
Columns("E:BP").Select
Selection.EntireColumn.Hidden = False
Selection.Interior.ColorIndex = xlNone
Range("E6:H6,H7:H304").Select
Range("H7").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range( _
"E237:G304,E227:G234,E137:G224,E127:G134,E37:G124,E27:G34,E22:G24,E12:G19,E7:G9" _
).Select
Range("G9").Activate
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Range("E8").Select
Range("K1:L1,O1:P1,Q1:T1,W1:X1,AA1:AB1,AE1:AF1,AG1:AN1,AQ1:AR1,AU1:AV1,AY1:AZ1,BA1:BD1,BG1:BH1,BK1:BL1,BO1:BP1,BQ1:BX1").Select
Selection.EntireColumn.Hidden = True
Range("E8").Select
Case 2
Columns("E:BP").Select
Selection.EntireColumn.Hidden = False
Selection.Interior.ColorIndex = xlNone
Range("I6:L6,L7:L304").Select
Range("L7").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range( _
"I237:K304,I227:K234,I137:K224,I127:K134,I37:K124,I27:K34,I22:K24,I12:K19,I7:K9" _
).Select
Range("K9").Activate
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Range("I8").Select
Range("E1,G1,O1:P1,Q1:T1,W1:X1,AA1:AB1,AE1:AF1,AG1:AN1,AQ1:AR1,AU1:AV1,AY1:AZ1,BA1:BD1,BG1:BH1,BK1:BL1,BO1:BP1,BQ1:BX1").Select
Selection.EntireColumn.Hidden = True
Range("I8").Select
Case...
End Select
End Sub
Valora esta pregunta
0