Script with environ help..

[relor]

ive been using environ users to edit contents.. and the users not listed with the environ can add contents..

my problem is the users not listed on environ cannot add info.. how do i bypass the environ?

Sub Autorization()
Dim ValidUser
ValidUser = Application.Match(Environ("Username"), Array("agent44", "manager1", "manager4", "manager5", "manager3"), False)
If Not IsError(ValidUser) Then
Sheets("Data").Select
Range("A1").Select
Else
MsgBox Environ("Username") & " does not have access to this file"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

THIS IS MY ENVIRON SCRIPT.. LISTED ARE THE ADMINS THAT CAN EDIT THE CONTENTS..
HOWEVER, AGENTS CANNOT ADD INFO BECAUSE THE SHEET IS LOCKED BY ENVIRON.. HOW DO I MAKE A BYPASS SO THAT THE AGENTS CAN ADD INFO AND AFTER SAVING THEY ARE NOT ALLOWED TO EDIT THE SHEET...