Prompt others only for password

[NickUsaMi]

Hello Excel Experts,
how can I require other users to enter password if they try to make changes to any of the file content?
PS. If I open it to modify, no need for password. If others open it to modify, ask for password. No password required for Read-only.
in another word, I have excel file saved on shared drive, or on the network, that is mine, or created by me. I would like to have it available to others but as read only.
I want to be able to open and modify the file without password from my PC, or login. however, if other users opens it (not from my PC, or Login) I want Excel to prevent any changes by others unless they input the password.
I hope I got it explained correctly.
thanks for the help.

 

[ranman256]

run UserWantsToEdit() , if you, it will unlock the wb for you. otherwise ask user

public const kPASS = "wbPassword"

sub UserWantsToEdit()
if IsMeNick() then
    UnlockWB
else
vRetval = Inputbox("Enter Password", "Workbook has password")
if vRetval = "" then exit sub
 
if vRetval = kPass then
    UnlockWB
else
   msgbox "Invalid Password"
endif
end sub

private function IsMeNick() as boolean
 IsMeNick=  getUserID() = "NickUsaMi"      'my userlong
end function

Public Function getUserID() As String
getUserID = Environ("Username")
End Function

private sub     UnlockWB()
  'apply workbook password here
end sub

 

[NickUsaMi]

thank you very much ranman256 for your help, but where do i paste this in VBA?
also only 1 place i have to change my user name?
i modified this section below, but did not work
IsMeNick= getUserID() = "NickUsaMi" 'my userlong

 

[NickUsaMi]

also this first line is red:
public const kPASS = "wbPassword"