可能有宏，如在 ThisWorkbook 中有下面的代码： Private Sub Workbook_SheetActivate(ByVal Sh As Object)

怎么操作！麻烦具体点！

右击 工作表 标签，选 查看代码，
双击 ThisWorkbook ，如果没有，按 ctrl + r，
删除 代码。

private sub form_activate() '当窗口被激活时 data1.databasename = app.path & "\" & "sjk.mdb" '定义数据库路径 data1.recordsource = "class" '定义绑定的数据库中的表为class data1.refresh '刷新一下 data2.databasename = app.path & "\" & "sjk.mdb" ''定义sata2的数据库路径 end sub private sub text1_keyup(keycode as integer, shift as integer)'当在text1中输入内容时键盘按键弹起时引发以下操作 if keycode <> 8 then '如果按下的不是空格键,空格键的键值=8 if len(text1.text) = 4 then '如果内容长度等于4(英文与中文字符均算一个字) text1.text = text1.text & "-" '在四个字符后面自动加上一个"-" text1.selstart = len(text1.text) '并使输入光标停在最后一个字的后面(selstart为选择的起始点,如为0则为第一个字之前) end if if len(text1.text) = 6 then '如果字符数=6 end if '什么也不做 end if end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息