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ú,
 

Leer las respuestas

#1 Héctor Miguel
19/06/2006 - 20:34 | Informe spam
hola, Carlos !


... acerca de los autofiltros con hoja protegida en las versiones Excel 97 y 2000.
... luego de haber cerrado el libro y... abrir una vez mas (habilitando las macros) no opera los text del autofiltro.
Sera que algo no hecho bien?... he probado con estas dos sintaxis [...]



cabria la posibilidad de que los procedimientos [codigos o macros] los hubieras 'copiado/pegado'...
-> en un modulo de codigo donde NO 'les corresponde' -?- [p.e. en un modulo de codigo 'general'] -?-

los procedimientos 'de eventos' tienen sus propios modulos 'de clase' [no son modulos 'normales'] p.e.
-> el evento 'Workbook_Open' va en el modulo de codigo del objeto libro [ThisWorkbook]
-> el evento 'Selection_Change' va en el modulo de codigo de [alg]un objeto hoja [Hoja1, Hoja2...]

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

__ los codigos expuestos __
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

Preguntas similares