Autofiltro con hoja protegida (luego de abrir el libro una vez más se deshabilitan los tex de los autofiltros)

19/06/2006 - 19:46 por CARLOS CARNERO | Informe spam

Muy buenas a todos: soy nuevo mi nombre es Carlos Carnero: tengo una
interrogante luego de leer las muy valiosas aportaciones de los
foristas Héctor Miguel y KL acerca de los autofiltros con hoja
protegida en las versiones Excel 97 y 2000.

La sintaxis la copie y funciono Ok, pero luego de haber cerrado el
libro y queriendo abrir una vez más (habilitando las macros) no opera
los text del autofiltro. ¿Será que algo no hecho bien? Les
agradecería su colaboración porque he probado con estas dos sintaxis
que ustedes las pusieron:

Private Sub Workbook_Open()
Worksheets("prueba").EnableAutoFilter = True
Worksheets("prueba").Protect _
PassWord:="1234", _
Contents:=True, _
DrawingObjects:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Private Sub Workbook_Open()
With Sheets("prueba") '
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, _
password:="1234"
End With
End Sub

Saludos desde el Perú,

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 CARLOS CARNERO

13/07/2006 - 19:37 | Informe spam

Hector es la parte que alcanzo entender: ¿Desde y hasta donde se
modifica la sintaxis anterior que describi?

Saludos,

Carlos Carnero Gálvez

... la macro ... funciono ... otra pregunta ¿... que ... corra en todas las hojas del libro?

si se han de aplicar a todas las hojas de calculo del libro, modifica a
lo siguiente:
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Worksheets
Hoja.Protect UserInterfaceOnly:=True
Hoja.EnableAutoFilter:=True
Next
End Sub

si se trata de [solamente] 'ciertas' hojas, puedes modificar a lo
siguiente:
For Each Hoja In Worksheets(Array("Hoja1", "Hoja3"))

saludos,
hector.

Responder a este mensaje

#7 CARLOS CARNERO

13/07/2006 - 19:39 | Informe spam

CORRECCION: Hector es la parte que NO alcanzo entender:
CARLOS CARNERO ha escrito:

Hector es la parte que alcanzo entender: ¿Desde y hasta donde se
modifica la sintaxis anterior que describi?

Saludos,

Carlos Carnero Gálvez

> ... la macro ... funciono ... otra pregunta ¿... que ... corra en todas las hojas del libro?

si se han de aplicar a todas las hojas de calculo del libro, modifica a
lo siguiente:
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In ActiveWorkbook.Worksheets
Hoja.Protect UserInterfaceOnly:=True
Hoja.EnableAutoFilter:=True
Next
End Sub

si se trata de [solamente] 'ciertas' hojas, puedes modificar a lo
siguiente:
For Each Hoja In Worksheets(Array("Hoja1", "Hoja3"))

saludos,
hector.

Responder a este mensaje

#8 Héctor Miguel

14/07/2006 - 00:41 | Informe spam

hola, Carlos !

CORRECCION: Hector es la parte que NO alcanzo entender:

probablemente el codigo que andas buscando adaptar pudiera ser +/- como sigue:
en el modulo de codigo del objeto ThisWorkbook de tu libro [prueba data.xls] ==Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("data", "kardex", "ingresos"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Hoja.EnableAutoFilter:=True
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Responder a este mensaje

#9 CARLOS CARNERO

17/07/2006 - 16:59 | Informe spam

Hola Hector un gusto en saludarte: Estuve ausente desde el viernes y
hoy lunes estoy aplicando tu respuesta a mi problema en referencia y me
sale esta ventana con este mensajes:

Error de compilación
Error de sintaxis

En el "This woorkbook y la ventana de la derecha en donde salen dos
cuadros desplegables uno "Woorkbook" y la derecha "Open" (he intentado
cambar la opción pero no procede) aparece en este segmento me lo pone
en fondo amarillo: "Private Sub Workbook_Open()"

y este otro con letras rojas "Hoja.EnableAutoFilter:=True"

A espera de tus comentario y el agradecimiento correspondiente por tu
amable atención.

Saludos,

Carlos Carnero G.

Héctor Miguel ha escrito:

hola, Carlos !

CORRECCION: Hector es la parte que NO alcanzo entender:

probablemente el codigo que andas buscando adaptar pudiera ser +/- como sigue:
en el modulo de codigo del objeto ThisWorkbook de tu libro [prueba data.xls] ==> Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("data", "kardex", "ingresos"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Hoja.EnableAutoFilter:=True
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Responder a este mensaje

#10 Héctor Miguel

18/07/2006 - 05:26 | Informe spam

hola, Carlos !

... me sale esta ventana con este mensajes:
Error de compilacion
Error de sintaxis
En el "This woorkbook... pone... con letras rojas "Hoja.EnableAutoFilter:=True"

hay un 'error de dedo' [mio] en la instruccion :-( [los dos puntos] ;)
sustituye por: -> Hoja.EnableAutoFilter = True

saludos,
hector.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3

Busqueda sugerida