Protect a Sheet with Password and autofilter options

Hi Guys,
I want to protect a sheet with password using a VBA code.
It was like this
ActiveSheet.Protect "password"

Later i wanted to enable the autofilter options and allow formatting columns but the below code is not working.

ActiveSheet.Protect "password" DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
AllowFormattingColumns:=True, AllowFiltering:=True

Can anyone help me on this please .

Regards,
Devpp...