Protect/Unprotect Sheet from Macro

N

Nigel

Hi All
I have a worksheet that in large part has locked cells, the sheet is then
protected. This of course disables sort. What I am trying to do is
unprotect the sheet, do the sort and then protect the sheet. I have not as
yet added a password.

If I do the above manually from the UI, all is OK, but the macro that
follows fails on the sort method. The sheet is showing unprotected. Problem
in both xl97 and xl2002.

ActiveSheet.Unprotect

Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

TIA
Cheers
Nigel
 
N

Nigel

Sorry everyone - stupid mistake - its nothing to do with protection the sort
method relies on a selection that I excluded.

Cheers
Nigel
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

protect unprotect sheet vba 3
"Runtime error 1004 Application-defined or object defined error" on data sort 0
Sorting Macro Loop 2
SpecialCells(xlCellTypeBlanks) = error 1004 No cells found 5
Simplfying the Sort macro 2
Refernce sheet names in if statement 4
Macro Error 3
Simple Do... Until problem 4

Top