Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Open("C:\MySpreadsheet.xlsx")
Dim ws As Worksheet = wb.Worksheets(0)
ws.SheetProtection.AllowSelectUnlockedCells = true
ws.Protect("password");
Setting this property to false will also set AllowSelectCells to false.