Ordenar

Claro que si, la primera es que desprotegas la hoja, ordenes y vuelvas a proteger, por supuesto todo esto por código, esto seria así...
Public Sub Ordenar()
ActiveSheet.Unprotect "abrete"
Range("A1").Sort Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="abrete"
End Sub
La otra opción es que solo protejas por código, de esta manera, puedes agregar una opción que solo te proteja la interfaz del usuario, por ejemplo
Public Sub PonerPas()
ActiveSheet.Protect Password:="abrete", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End Sub
La macro anterior te protegue la hoja con password pero solo la interfaz del usuario, o sea que desde código puedes hacer lo que quieras, como ordenar
Sub Ordenar1()
Range("A1").Sort Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.