设置程序启动项为sub main函数，建一个模块，里面写好main函数，如下：
Sub Main()
If App.PrevInstance = True Then
Call MsgBox("程序已经在运行", vbCritical)
End
End If
end sub
或者更简单点，在你启动时调用的窗体的form_load事件里最前面，加上If App.PrevInstance = True Then END就行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024