Having searched google, found this website
http://techonthenet.com/access/security/disable_shift.htm with the following
code.
Sub DisableShiftKey()
Dim db As DAO.Database
Dim prp As DAO.Property
Set db = CurrentDb
db.Properties.Delete "AllowBypassKey"
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
db.Properties.Append prp
db.Properties.Refresh
Set prp = Nothing
Set db = Nothing
End Sub
And it works a treat. Thought I'd post it here as others may require it.
There are other snipits of code on the site for you to enable it aswell.
Thanks for recommendations