You end your code by going to the sheet, so you will always get there. Try placing 'Sheets("Bank Account").Select' before before 'Case Else'.
Or use the code below
Private Sub CommandButton8_Click()
Dim mPW As String
mPW = InputBox("Enter Password", "Password Protected")
If mPW = "Shewasadragon" Then
MsgBox "Incorrect Password"
I don't see anything about unprotecting the sheet, but I guess you'll add that later.