vba 自动运行报错。
Private Sub Workbook_Open()
Call runtimer
End Sub
Sub runtimer()
Application.OnTime Now + TimeValue("00:00:05"), "saveit"
End Sub
Public Sub saveit()
msg = MsgBox("ÅóÓÑ£¬ÄãÒѾ¹¤×÷ºÜ¾ÃÁË£¬ÏÖÔھʹæÅÌÂð£¿" & Chr(13) _
& "Ñ¡ÔñÊÇ£ºÁ¢¿Ì´æÅÌ" & Chr(13) _
& "Ñ¡Ôñ·ñ£ºÔݲ»´æÅÌ" & Chr(13) _
& "Ñ¡ÔñÈ¡Ïû£º²»ÔÙ³öÏÖÕâ¸öÌáʾ", vbYesNoCancel + 64, "ÐÝÏ¢Ò»»á°É£¡")
'ÌáʾÓû§±£´æµ±Ç°»î¶¯Îĵµ¡£
If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub
Call runtimer 'Èç¹ûÓû§Ã»ÓÐÑ¡ÔñÈ¡Ïû¾ÍÔٴε÷Óà Runtimer
End Sub
标注的地方,总说宏无法运行。