Unable to sort on a protected worksheet

[Grangedb]

My excel document is linked together using macro buttons which when pressed link to a series of protected worksheets.

The issue I am having occurs when I try to sort the data in the worksheet

To achieve a sort on a protected worksheet I followed the following procedure:-
1. Removed the protection by typing in the password
2. Highlighted the cells of the worksheet containing the data, pressed right click, format cells, protection, unlocked cells
3. Re-typed the worksheet password to protect it (after selecting sort and filter from the list of options)

At this point everything works as you would expect ie I can carry out sorts and also filter the data without any problem.

My dilemma is when I navigate away from this worksheet. For some reason when I do this and then return to the original worksheet the filter and sort buttons no longer work. It is incredibly frustrating.

Any help would be greatly appreciated

[gmr4evr1]

Try this under the sub title in your code

Please Login or Register  to view this content.

[Grangedb]

Hi Tom

Unfortunately that didn't reslove the problem. Have I entered the code you sent me in the correct place? (see below)

Sub MOR__152()
ActiveSheet.Protect userinterfaceonly:=True, Password:="1", AllowSorting:=True, AllowFiltering:=True, AllowFormattingColumns:=True
' MOR__152 Macro
'
Sheets("Year 7").Select
ActiveSheet.Unprotect Password:="Fredflinstone_7"
ActiveSheet.ShowAllData
ActiveSheet.Range("$B$4:$CC$1542").AutoFilter Field:=5, Criteria1:="7HG15A"
ActiveSheet.Protect Password:="Fredflinstone_7"

End Sub

Best Wishes

Darren

[gmr4evr1]

Yes, that is where I said to place that line of code. But, since the rest of the code protects and unprotects that sheet, I'm not sure if it will work. Then again, maybe it should be placed after the
Sheets("Year 7").Select line. I'm thinking that placing that line of code where I said to might be creating the problem since it is trying to run before the Year 7 sheet is selected....if that makes sense.

[Grangedb]

G'day Tom

Thanks for your help mate, the code you sent me was spot on. The reason why it hadn't worked was I left the password as ="1". As soon as a changed this to the password of the worksheet it worked.

Much appreciated

Darren

How do I confirm that you have solved the problem for me? (I'm new to this)

[gmr4evr1]

You are welcome, glad it worked. To mark this as solved, I believe you click Thread Tools at the top of your original post and select SOLVED.