SheetProtection

Sub SheetProtection(Sname)
ThisWorkbook.Sheets(Sname).Protect Password:=MasterPass, DrawingObjects:=False, AllowFormattingColumns:=True, UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
End Sub