proteger una hoja de excel que usa macros(para ocultar celdas a traves de filtros)

oye tengo una pregunta sobre la terce opcion que pusiste es k mis macros insetan filas y ocultan fila k puedo hacer ???

hola, Waldear !

prueba a (re)proteger la hoja en el evento '_open' de tu libro (una sola vez en la sesion) estableciendo dos caracteristicas:

-> la proteccion a solo la interfase con el usuario

-> el permiso para usar los autofiltros (y esquemas) los cuales YA deberan estar presentes en tu hoja

segun las versiones a las que tengas pensado dar "soporte" para el uso de tu archivo

(recuerda que el uso de caracteristicas nuevas no tienen soporte en las versiones anteriores)...

a) en excel 97 y 2000 NO necesitas repetir el password (es suficiente con poner):

Private Sub Workbook_Open()

  With Worksheets("Hoja1")

    .Protect UserInterfaceOnly:=True

    .EnableAutoFilter = True

  End With

End Sub

b) a partir de excel 2002/xp SI es requisito repetir el password:

Private Sub Workbook_Open()

  With Worksheets("Hoja1")

    .Protect _

      PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _

      UserInterfaceOnly:=True

    .EnableAutoFilter = True

  End With

End Sub

(practicamente) TODO lo que hagas por codigo... pasara sin problemas

(excepto ciertas cosillas relacionadas con ordenaciones, insertar filas/columnas y objetos incrustados)

OJO: si llegaras a necesitar que el usuario defina sobre que listado aplica los autofiltros...

        copia/pega las siguientes lineas en un modulo de codigo 'general' y asignas la macro a algun boton/atajo/...

Option Private Module

Sub AutoFiltrosPorMacro()

  With ActiveCell.CurrentRegion

    If .Count > 1 Then

      If .Parent.AutoFilterMode Then

        If .Parent.AutoFilter.Range.Address <> .Address Then .AutoFilter

      End If

      .AutoFilter

    Else

      MsgBox """Activa"" por favor (alg)una celda" & vbCr & _

                    """dentro"" (o... ""cerca"") de la lista ""a filtrar"".", _

                    vbInformation, "AutoFiltros por macros"

    End If

  End With

End Sub

si cualquier duda (o informacion adicional)... comentas ?

saludos,

hector.

hola, Waldear !

prueba a (re)proteger la hoja en el evento '_open' de tu libro (una sola vez en la sesion) estableciendo dos caracteristicas:

-> la proteccion a solo la interfase con el usuario

-> el permiso para usar los autofiltros (y esquemas) los cuales YA deberan estar presentes en tu hoja

segun las versiones a las que tengas pensado dar "soporte" para el uso de tu archivo

(recuerda que el uso de caracteristicas nuevas no tienen soporte en las versiones anteriores)...

a) en excel 97 y 2000 NO necesitas repetir el password (es suficiente con poner):

Private Sub Workbook_Open()

  With Worksheets("Hoja1")

    .Protect UserInterfaceOnly:=True

    .EnableAutoFilter = True

  End With

End Sub

b) a partir de excel 2002/xp SI es requisito repetir el password:

Private Sub Workbook_Open()

  With Worksheets("Hoja1")

    .Protect _

      PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _

      UserInterfaceOnly:=True

    .EnableAutoFilter = True

  End With

End Sub

(practicamente) TODO lo que hagas por codigo... pasara sin problemas

(excepto ciertas cosillas relacionadas con ordenaciones, insertar filas/columnas y objetos incrustados)

OJO: si llegaras a necesitar que el usuario defina sobre que listado aplica los autofiltros...

        copia/pega las siguientes lineas en un modulo de codigo 'general' y asignas la macro a algun boton/atajo/...

Option Private Module

Sub AutoFiltrosPorMacro()

  With ActiveCell.CurrentRegion

    If .Count > 1 Then

      If .Parent.AutoFilterMode Then

        If .Parent.AutoFilter.Range.Address <> .Address Then .AutoFilter

      End If

      .AutoFilter

    Else

      MsgBox """Activa"" por favor (alg)una celda" & vbCr & _

                    """dentro"" (o... ""cerca"") de la lista ""a filtrar"".", _

                    vbInformation, "AutoFiltros por macros"

    End If

  End With

End Sub

si cualquier duda (o informacion adicional)... comentas ?

saludos,

hector.

muchas gracias!!!

funciono tu codigo y gracias por la lección de VBA-excel!!!

que tal Hector hasta ahora pude checar mi computadora, agradezco tus comentarios asi como solciitarte que me ampliaras tus comentarios en relacion a los que escribiste de:

prueba a (re)proteger la hoja en el evento '_open' de tu libro (una sola vez en la sesion) estableciendo dos caracteristicas:

-> la proteccion a solo la interfase con el usuario

lamentablemente no he utilizado mucho la programación y desconozco donde y como haria estos cambios

asi como tambien este comentario de:

a) en excel 97 y 2000 NO necesitas repetir el password (es suficiente con poner):

Private Sub Workbook_Open()

  With Worksheets("Hoja1")

    .Protect UserInterfaceOnly:=True

    .EnableAutoFilter = True

  End With

End Sub

no se donde hacerlo y te comento que estoy utilizando la version 2007 de excel

Agradezco tu atención

Saludos

Waldemar