去编写BeforeCloseProject事件
If vars("允许关闭") Is Nothing OrElse vars("允许关闭") = False Then e.Cancel = TrueEnd If