Travar

[bEbEr]

Galera.. é o seguinte.. eu travei uma planilha.. só q quando eu quero por em ordem crescente ele não deixa porque a planilha ta travada.. tem como libera essa opção através de um script vb?

flww

[Lisandro Oliveira]

Galera.. é o seguinte.. eu travei uma planilha.. só q quando eu quero por em ordem crescente ele não deixa porque a planilha ta travada.. tem como libera essa opção através de um script vb?

flww

Olá Beber, veja:

Sub destrava()

ActiveSheet.Unprotect

Range("A1:A9").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Abraços,

Lisandro Oliveira.