You can achieve it with small customization.
[EventSubscriber(ObjectType::Table, Database::Vendor, 'OnBeforeRenameEvent', '', false, false)]
local procedure OnBeforeRenameEventVendor(var Rec: Record Vendor; var xRec: Record Vendor; RunTrigger: Boolean)
begin
Error('Renaming Vendor No. is not allowed.');
end;