Sub PasSheets()
    Dim sht As Worksheet
    Dim strPassword As String
    Dim i As Integer, j As Integer
    Dim a()
    
    ReDim a(ThisWorkbook.Windows(1).SelectedSheets.Count - 1)
    strPassword = InputBox("Enter the password for the worksheet")
    
'    For Each sht In ActiveWorkbook.Worksheets
'        ListBox1.AddItem sht.Name
'    Next sht
    
    For Each sht In ThisWorkbook.Windows(1).SelectedSheets
        a(i) = sht.Name
        i = i + 1
    Next
    
    For j = 0 To UBound(a)
        Worksheets(a(j)).Protect Password:=strPassword, Scenarios:=True
    Next
End Sub

Sub ShowDialog2()
    UserForm2.Show 0
End Sub