Password removal via VBA (as defined in the code with password)

Afternoon happy campers,

First off - This is not a request to bypass or break a password, i have the password and want to know how to modify my current code.

I have the following code in one of my sheets:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim myPassword As String
    Dim wSheet As Worksheet
myPassword = "pass123"
    If Environ("USERNAME") = "joe.bloggs" Then
        For Each wSheet In ActiveWorkbook.Worksheets
         wSheet.Unprotect Password:=myPassword
        Next
        End If
    If Environ("USERNAME") = "bob.hope" Then
        For Each wSheet In ActiveWorkbook.Worksheets
         wSheet.Unprotect Password:=myPassword
        Next
    If Environ("USERNAME") = "no.hope" Then
        For Each wSheet In ActiveWorkbook.Worksheets
         wSheet.Unprotect Password:=myPassword
        Next
Application.ScreenUpdating = True
End Sub

Which works fine, however, i want to add code to it that will look at the username, and if for example the user is 'Tom.Jones' then the code would only unlokc 'Sheet.3' and nnot the whole file.

Your help, as always is greatly appreciated.

Hi Blue,
Thans for the code, i will check shortly and feedback :D