You just add

Password:= "Password"

In the following I have split the code  into separate lines so it won't get
messed up by the email program and is easier to read. To split a line you
insert a space, and underline and a return character(enter)


ActiveSheet.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True _
Password:= "Password"