I could not understand the User name option. Now I am also
using the user name and able to save.
The final code  is (for other users)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
a = Environ("Username")
'msgbox a
If a = "stalukder" Then ' Put the user name here. Check the same with the
message box.
Cancel = False
Else
Cancel = True
End If
End Sub