¿cómo ordenar celdas protegidas en excel?

hola, Alejo !

... excel 2003... ORDENAR DATOS con celdas protegidas.
... proteger la hoja... seleccionar mediante "permitir a los usuarios...", la opcion ORDENAR
... quiero impedir la modificacion de los datos... de la tabla, pero... que puedan ordenar las filas a su gusto
... a pesar de seleccionar esa opcion, no me permite.
... alguna solucion

1.- ordenar listados 'equivale a' [literalmente] RE-ESCRIBIR los datos... 'cambiando su posicion en el listado'...
['analizando' el punto anterior...]
2.- cuando es 'indispensable' proteger la hoja para evitar cambios en las celdas ->protegidas<-...
no le veo 'sentido/aplicacion' al tema de 'permitir a los usuarios... ordenar' [si las celdas NO son 'editables']
3.- lo que si te puede funcionar, es usar macros para la ordenacion 'a voluntad del usuario' para lo cual 'deberas'
a) proveer objetos/figuras/botones 'estrategicamente' colocados sobre las celdas que 'mandarian' en el orden
b) ASEGURARTE [si los 'vas copiando'] que cada boton tenga un nombre 'unico/diferente' [caja de nombres]
c) que cada boton/figura quede +/- 'centrada' sobre la celda/columna 'mandante' [p.e. en 'A1', 'B1', 'C1' ...]
d) puedes asignar una sola macro para todos los botones
incluso puedes hacer que el orden [a/de]scendente quede tambien 'a voluntad del usuario'
podrias 'elegir' una imagen 'amigable' [p.e. la del boton 'ordenar' de alguna barra de herramientas]

te pongo al final un ejemplo de los codigos 'requeridos'
si cualquier duda... comentas?
saludos,
hector.
=-> A TODOS los botones les 'asignas' la misma macro =>Ordenar_segun_columna_boton<-> despues de 'asignar' la macro a los botones, 'regresas' al editor de vba y... => la haces 'Private' < [para que SOLO sea 'accesible' por medio de los 'click' EN los botones/figuras]
-> al 'clickar' en un boton, se ordenara el rango 'segun' la columna donde 'esta' el boton =>ascendente< si 'combinas' el 'click' CON la tecla {Mayusc} 'presionada'... el orden sera =>descendente< en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSeÑa qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub
en un modulo de codigo 'normal' ==Private Declare Function EstadoDeLaTecla _
Lib "User32" Alias "GetAsyncKeyState" _
(ByVal vKey As Long) As Integer
Private Function Mayusc() As Boolean
Mayusc = (EstadoDeLaTecla(vbKeyShift) And &H8000)
End Function
Sub Ordenar_segun_columna_boton()
Dim RangoSort As String, ColSort As String, OrdSort As Variant
If Mayusc Then OrdSort = xlDescending Else OrdSort = xlAscending
With ActiveSheet
RangoSort = Range("b3").CurrentRegion.Address
With .Shapes(Application.Caller).TopLeftCell
ColSort = Mid(.Address, 2, InStr(2, .Address, "$") - 2)
End With
.Range(RangoSort).Sort _
Key1:=.Columns(ColSort), _
Order1:=OrdSort, _
Header:=xlGuess
' otras opciones como se requiera '
End With
End Sub