Excel VisualBasic Script

Sub protect()
    ActiveWorksheet.Protect Password:="pass"