用于在LAN中连接的工作簿丢失时发出早期错误警告的VBA代码

默认情况下，如果保存文件时工作簿发生连接丢失，则会出现错误提示“另存为”

我的工作簿是一个在局域网上共享的前端，其功能是使用VBA将文件复制到另一个excel，但每次局域网临时失去连接时，它都无法复制到另一个工作簿，并且我将丢失一些数据，因为前端工作簿跳过顺序控制编号，就好像数据已过账一样

若要完成此操作，请将前端工作簿复制到我的计算机，或使用VBA代码首先检测是否出现连接丢失，然后关闭前端工作簿，使其不会继续发布

用于在LAN中连接的工作簿丢失时发出早期错误警告的VBA代码