Password protected sheets can still be unprotected without password

I created a macro to password protect all sheets in my workbook. However, after doing so, you can still right-click on any sheet and unprotect it without being prompted for the password. How do I fix this issue?

I used the following code in VBA:

Sub protect_all_sheets()
top:
pass = InputBox("password?")
repass = InputBox("verify password")
If Not (pass = repass) Then
MsgBox "incorrect password"
GoTo top
End If
For i = 1 To Worksheets.Count
If Worksheets(i).ProtectContents = True Then GoTo oops
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:=pass
s.EnableSelection = xlUnlockedCells
s.EnableSelection = xlLockedCells
Next
Exit Sub
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets when running this Macro."
End Sub