hoja protejida ayuda con macro

hola, !

ve si te sirve algo de lo comentado en las siguientes conversaciones: -> http://tinyurl.com/68php6

saludos,
hector.

__ OP __

tengo el sig macro,

Case Is = "b"
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 2).Cells
cell = LCase(cell)
Next cell

debido a que la hoja esta portegida y algunas celdas bloqueadas, al ejecutarlo me marca error 1004

alguna idea ??
se podria modificar el macro para que afecte a las celdas no bloqueadas y asi no me marque error ? como quedaria ?

como puedo evitar que todas las hojas de un libro se actualizen normalmente
excepto la oja 2 la cual quede fija, hasta que presione may+f9

(p.e.) asegurate de "poner" a la aplicacion en modo de re/calculo manual


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Hoja As Worksheet
For Each Hoja In Worksheets
If LCase(Hoja.Name) <> "hoja2" Then Hoja.Calculate
Next
End Sub


funciona muy bien ,

pero al abrir otro libro no se calculan automaticameente pues desbilite el
calculo automatico,

otro macro o ajustarlo de tal forma que todos los libros se trabaje NORMAL
pero en la hoja 2 del libro datos solo se actualize al presionar F9 u otros
similar ??

thks

hola, (...) ????? (de atras... pa'lante)

2) (hasta donde se) el modo de (re)calculo es una propiedad del objeto Application (o sea... excel, por lo tanto...)
si lo estableces en automatico/manual, ese sera el modo de (re)calculo para TODOS los libros abiertos en esa sesion
no (creo que) seria posible aplicar un modo de (re)calculo de forma discrecional (este libro si... este no... este otro si... etc.)

1) si necesitas que se haga un (re)calculo en el libro donde tienes ese codigo luego de haber abierto otro libro...
solo considera que al abrir otro libro, este (recien abierto) se convierte en el libro activo y
cuando quieras/necesites/... "volver" al libro con tu codigo de recalculo, sera necesario volver a activarlo (entonces...)
haz una llamada al evento 'workbook_sheetchange', ya sea...
a) en el evento 'workbook_windowactivate' (si quieres que el (re)calculo se haga al regresar a ese libro)
b) en el evento 'workbook_windowdeactivate' (si quieres que el (re)calculo se haga ANTES de activar/abrir "otro" libro)

(p.e. al "regresar" despues de abrir o haber estado en otro libro...)

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Call Workbook_SheetChange(Me.Worksheets("hoja1"), Me.Worksheets("hoja1").[a1])
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
__ 1 __

como puedo evitar que todas las hojas de un libro se actualizen normalmente
excepto la oja 2 la cual quede fija, hasta que presione may+f9

(p.e.) asegurate de "poner" a la aplicacion en modo de re/calculo manual

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Hoja As Worksheet
For Each Hoja In Worksheets
If LCase(Hoja.Name) <> "hoja2" Then Hoja.Calculate
Next
End Sub

funciona muy bien, pero al abrir otro libro no se calculan automaticameente pues desbilite el calculo automatico

__ 2 __

otro macro o ajustarlo de tal forma que todos los libros se trabaje NORMAL
pero en la hoja 2 del libro datos solo se actualize al presionar F9 u otros similar ??

sl2 hector

No puedo usar el codigo anterior, poddria explicarlo con mas
dettalles, pega en worbook, activa o desactiva calculate
automatic etc thks

No le he encontrado forma de uso para aplicarlo , thks

hola, !

No puedo usar el codigo anterior...

=> esto... que significa ?
considera que la consulta de OP es ya (por si misma) poco sencilla y de no muy clara comprension -?-

podria explicarlo con mas detalles, pega en worbook, activa o desactiva calculate automatic etc thks
No le he encontrado forma de uso para aplicarlo, thks

=> (creo que) seria mejor si comentas cual es (exactamente) la situacion que (tu) necesitas resolver -???-

saludos,
hector.