I've got following problem :
Working in a sheet that's protected, want to write a macro wich unprotects the sheet, locks the selected cells and then protects again the sheet with a pasword - I also want that afterwards the user is able to : make use of autofilter, cell formatting, select portected cells and select unprotected cell.
How can I do that? Following doesn't work after running the macro.
Thaks very much in advance!!!!

Private Sub Admin_Click()
ActiveSheet.Unprotect Password:="oeps"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True
ActiveSheet.Protect Password:="oeps"
End Sub