Bloqueando hojas

Hola, Javier !

... bloquear ... hoja ... solo ciertas caracteristicas, ya que con la forma:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="macropwd"
... bloqueo completo a excepcion de las celdas que deje "desbloqueadas" [...]
... reportes ... que a veces tengo ... que insertar filas ... no puedo ... a no ser que manualmente ... seleccione:
X Seleccionar celdas bloqueadas
X Seleccionar celdas desbloqueadas
X Insertar Filas
... alguna combinacion en VBA de comandos para lograr ese "mix" de bloqueo? [...]

==> estas usando [solo] los argumentos del metodo 'Protect' de las versiones 'anteriores' [en Excel-XP] <= las opciones que 'necesitas' [tambien] son parte de los argumentos del 'nuevo' metodo [en XP]
['tomado' de la ayuda {F1} en VBA de XP]
expresion.Protect _
Password, _
DrawingObjects, _
Contents, _
Scenarios, _
UserInterfaceOnly, _
AllowFormattingCells, _
AllowFormattingColumns, _
AllowFormattingRows, _
AllowInsertingColumns, _
AllowInsertingRows, _
AllowInsertingHyperlinks, _
AllowDeletingColumns, _
AllowDeletingRows, _
AllowSorting, _
AllowFiltering, _
AllowUsingPivotTables
_______
Saludos,
Héctor.
MS-MVP

y si quiero hacer una proteccion de las celdas para que no las
modifiquen pero que se puedan aumentar filas?, (esto en excel 97)

Héctor Miguel wrote:

Hola, Javier !

... bloquear ... hoja ... solo ciertas caracteristicas, ya que con la forma:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="macropwd"
... bloqueo completo a excepcion de las celdas que deje "desbloqueadas" [...]
... reportes ... que a veces tengo ... que insertar filas ... no puedo ... a no ser que manualmente ... seleccione:
X Seleccionar celdas bloqueadas
X Seleccionar celdas desbloqueadas
X Insertar Filas
... alguna combinacion en VBA de comandos para lograr ese "mix" de bloqueo? [...]

==> estas usando [solo] los argumentos del metodo 'Protect' de las versiones 'anteriores' [en Excel-XP] <=> las opciones que 'necesitas' [tambien] son parte de los argumentos del 'nuevo' metodo [en XP]
['tomado' de la ayuda {F1} en VBA de XP]
expresion.Protect _
Password, _
DrawingObjects, _
Contents, _
Scenarios, _
UserInterfaceOnly, _
AllowFormattingCells, _
AllowFormattingColumns, _
AllowFormattingRows, _
AllowInsertingColumns, _
AllowInsertingRows, _
AllowInsertingHyperlinks, _
AllowDeletingColumns, _
AllowDeletingRows, _
AllowSorting, _
AllowFiltering, _
AllowUsingPivotTables
_______
Saludos,
Héctor.
MS-MVP

Javier Avila
System Adminsitrator

TEOREMA DE BELL. Cuando un cuerpo se sumerge en agua suena el teléfono.

Hola, Javier !

... proteccion de las celdas para que no las modifiquen pero que se puedan aumentar filas?, (esto en excel 97)

==> para hacer 'funcional' [en XL-'97] la caracteristica que necesitas del XP [AllowInsertingColumns]...
una vez 'protegida' la hoja de la manera 'tradicional' [manualmente?] con password y todo ...
1) 'aplica' la propiedad 'UserInterfaceOnly:=True' al metodo 'Protect' [de 'la hoja'] en el evento '_Open' del libro
[no es necesario 'repetir' el password, la interfase del usuario 'sigue restringida' ... y lo que 'hagas × codigo' es 'OK']
;)
2) usa una macro para insertar la/s filas que sea/n necesaria/s [p.e. 'a partir' de la celda activa]
[podrias 'hacer privado' el modulo -o solo el procedimiento- para que SOLO 'quien conozca' la macro la 'ejecute']
en el modulo de codigo del libro 'ThisWorkbook' ==Private Sub Workbook_Open()
Worksheets("NombreDeLaHoja").Protect UserInterfaceOnly:=True
End Sub
en un modulo de codigo 'normal' ==Option Private Module
Sub InsertarFilas()
Filas = Trim(InputBox("Indica el numero de filas a insertar", ""))
If Not IsNumeric(Filas) Then Exit Sub Else Filas = Abs(Filas)
If Not Filas > 0 Then Exit Sub
Range(ActiveCell, ActiveCell.Offset(Filas - 1)).EntireRow.Insert
End Sub
_______
Saludos,
Héctor.
MS-MVP