Just to add to that, to avoid an error you might like to add to that

If lcase(application.username) < "james geniti" _
and not thisworkbook.readonly then
thisworkbook.ChangeFileAccess xlReadOnly
end if

JGeniti wrote:
Thanks, I'll try that.