VBA code for Early Error Warning if the workbook connected in LAN is lost

Question

As Default, an Error will prompt " Save As " if the Workbook Experienced lost Connection if you save the file.

My workbook is a front end that was shared on a L