添加新记录时如何只保存

Question

仅在添加新记录时保存

我只是尝试添加 objExcel.ActiveWorkbook.Close False 它不起作用。即使我只查询数据库，我仍然会收到“保存”消息

脚本有两个部分。第一个只是允许我查看与代码关联的单词。第二部分允许我创建一个新单词并分配下一个代码编号（顺序）。没有太多代码，所以我在这里显示两个模块。

私有子工作表_更改（按目标的ByVal目标）     'ActiveSheet.Unprotect密码：=“ wood3481”     'Range（“ c3：g10000”）。Locked = True     暗淡PW作为范围     如果Target.Address <>“ $ C $ 3”，则退出Sub     Application.EnableEvents = False     设置PW = Sheet1.Columns（6）.Find（Target）     如果没有PW就没有了         [D3] = PW.Offset（，1）     其他         MsgBox“未找到”     万一     'ActiveSheet.Protect密码：=“ wood3481”     范围（“ C3”）。选择     Application.EnableEvents =真     '除C3，D3和D4以外，所有单元格均被锁定，需要使用脚本更改它们     '另外，数据存储范围（g2：f10000）已锁定以允许清单运行 结束

私人子CommandButton21_Click（）     '该脚本记录了新密码     工作表（“ sheet1”）。激活     昏暗编号     昏暗的idnew     昏暗pswd     '取消保护电子表格以允许修改     'ActiveSheet.Unprotect密码：=“ vfgtrfd”     pswd = Application.InputBox（“输入新密码”）     '找到密码代码列的末尾     Range（“ f1”）。End（xlDown）.Select     '记住最后分配的代码     id = ActiveCell.Value     '向下移动1个存储新代码的单元格     ActiveCell.Offset（1，0）。选择     '将新代码写入数据库     ActiveCell.Value = id +1     idnew = ActiveCell.Value     ActiveCell.Offset（0，1）。选择     ActiveCell.Value = pswd     MsgBox（“这是您的新密码ID：”和idnew）     Range（“ c4”）。Value = idnew     'Range（“ c4”）。Locked = True     '在返回未锁定的单元格之前保护电子表格     'ActiveSheet.Protect密码：=“ vfgrfdr”     '将光标移回输入单元格     范围（“ c3”）。选择

结束子

Answer 1

我找到了答案。我去简单。我添加了ActiveWorkbook.Save命令，因此无论我在做什么，我都可以保存。简单，快速，简单。问题解决了。