Unprotect Password Prompt

    On Error Resume Next
    If ActiveSheet.ProtectContents = False Then
        MsgBox "Worksheet already unlocked!", vbCritical, "Fatal Error"
        Exit Sub
    End If
    
    myPass = InputBox("Enter worksheet password:", "Password Required")
    If myPass = vbNullString Or myPass = "" Then
        MsgBox "You did not enter a password!", vbCritical, "Fatal Error"
        Exit Sub
    End If
    
    ActiveSheet.Unprotect myPass
    
    If ActiveSheet.ProtectContents = True Then
        MsgBox "Invalid password.", vbCritical, "Fatal Error"
        Exit Sub
    End If
    
    MsgBox "Password accepted. Worksheet unlocked.", vbInformation, "Password Accepted"