Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect userinterfaceonly:=True
Next sh
Dim strPassword As String
strPassword = InputBox("Enter the password for the worksheet")
Worksheets("XYZ").Protect Password:=strPassword, Scenarios:=True
End Sub