设置程序启动项为sub main函数,建一个模块,里面写好main函数,如下:Sub Main() If App.PrevInstance = True Then Call MsgBox("程序已经在运行", vbCritical) End End Ifend sub 或者更简单点,在你启动时调用的窗体的form_load事件里最前面,加上If App.PrevInstance = True Then END就行