obj=CloudDeploy[FormFunction[{"city"->"City"},GeoGraphics[#city]&]]

SetPermissions[obj, PermissionsKey["MrBean"]->"Execute"]

DeletePermissionsKey[PermissionsKey["MrBean"]]