各位大虾,老师们帮帮忙！

hc2266116 · 发表于 2011-11-11 18:04

我想在一个工作簿打开时判定它的名称是否是"库存表"如果是"库存表"就在工作簿关闭前用下面的代码将一段代码复制到工作簿模块里,覆盖原代码,应怎么做.

如下面写入sheet1模块:

在这个之前该怎样写判定代码?

Str = ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.Lines(1, 1000)

ActiveWorkbook.VBProject.VBComponents("sheet1").CodeModule.InsertLines 1, St

主要是工作中,代码常被别人改得面目全非,以至于程序无法工作,得费神修改,所以想如果关闭工作簿代码又恢复原状就不用再费神修改了,只要点关闭就行(因为其他人在用表格时经常修改一次就保存一次,所以只能想用这种方法)

希望大虾们帮帮忙,不胜感激!

530087187 · 发表于 2011-11-11 18:27

要上附件，把问题说清楚点三

jiminyanyan · 发表于 2011-11-11 18:18

请上附件吧。。。

fsc163198 · 发表于 2011-11-11 19:00

打开时保存sheet1模块内所有代码　关闭时恢复sheet1模块代码

fsc163198 · 发表于 2011-11-11 19:01

{:soso_e113:}　你自己写的代码应该知道咋保存了吧

hc2266116 · 发表于 2011-11-11 20:05

谢谢fsc163198!,也谢谢前面两位的回复.
如果有好多工作簿,这样就得一个个的写,我是想把代码写在一个工作簿的各个模块内,在其它工作簿打开时判定是否是目标工作簿,如果是就把对应模块里的代码在关闭工作簿时复制过去.

fsc163198 · 发表于 2011-11-11 20:12

如果不想别人改动可以设置密码　封装成DLL文件　远程可以网络更新　本地可以用文件更新　只要代码被改动就自动更新
刚才哪个文件在关闭时不保存可以改动代码　{:soso_e113:}　这个只要关闭就自动保存恢复

hc2266116 · 发表于 2011-11-11 20:30

本帖最后由 hc2266116 于 2011-11-11 23:03 编辑

fsc163198 发表于 2011-11-11 20:12
如果不想别人改动可以设置密码　封装成DLL文件　远程可以网络更新　本地可以用文件更新　只要代码被改动就自 ...

汇总.rar (24.86 KB, 下载次数: 8) 谢谢fsc163198的热心帮助,我原来是这样想的,我把查找重复工作簿和汇总工作簿里的代码全部写在监测工作簿的两个模块里,如是这两个工作簿有一个打开,就在它关闭之前把监测工作簿相应的模块里的代码复制过去.把原来的代码删除.
只要代码被改变就自动更新怎么做呀?这个我是真的不会!

fsc163198 · 发表于 2011-11-12 07:42

两个代码比较　现代码不等于原代码　就自动更新　这个也可以用于代码升级

hc2266116 · 发表于 2011-11-12 11:23

fsc163198 发表于 2011-11-12 07:42
两个代码比较　现代码不等于原代码　就自动更新　这个也可以用于代码升级

能否给个简单的实例?
谢谢!

		自动登录	找回密码
密码			免费注册

[求助] 各位大虾,老师们帮帮忙！