[求助]怎样才能在动态中锁定单元格？

txlgq · 发表于 2003-12-15 13:29

如果只有在某列（假设在G列）的单元格中输入内容后，才使此单元格以上及以左的单元格锁定，而在A列至F列输入内容，不执行锁定功能，如在G30中输入内容后，A1：G30锁定并保护工作表，请问宏代码如何修改，并注释。

[此贴子已经被作者于2003-12-15 13:31:01编辑过]

txfshzg · 发表于 2003-12-15 18:00

还是用您做的表,在第二个表中,在A列中输入数字后,后几列不能写放了,传上来让您看一下:

kMMuqQO7.rar (9.16 KB, 下载次数: 41)

txfshzg · 发表于 2003-12-17 15:50

呵呵,又有问题了.
第8楼的问题又出现了:".......,最好能做到:对于当前输入,在未保存工表簿前能够进行修改,一旦保存了,相应单元格就被锁定......."

简单地说吧,就是在没有保存文件前,新输入的内容可以修改,就象平时用一张普普通通的工作表一样!一旦保存,以前的内容被锁定.

是不是太不客气了,呵呵...
其实我非常感谢你的!
......

txfshzg · 发表于 2003-12-18 11:57

再一次对hzg7818的帮助表示由衷的感谢!!!
不过还有一个问题:就是在十四楼中提到过的:怎样进入funcres 和 atpvbaen
先谢了!

有机会还要向您多多请教.

[此贴子已经被作者于2003-12-18 12:00:16编辑过]

txfshzg · 发表于 2003-12-18 13:43

还有问题传上来请教:

txfshzg · 发表于 2003-12-18 13:48

还有问题传上来请教:

XYvpNWQ7.rar (11.67 KB, 下载次数: 16)

txfshzg · 发表于 2003-12-19 09:33

还有问题存在,请看:

hv0uV3BA.rar (11.78 KB, 下载次数: 20)

[此贴子已经被作者于2003-12-22 13:11:24编辑过]

txfshzg · 发表于 2003-12-24 15:02

再一次表示感谢!!!
现问题是解决了.
不过,其它问题确实还有,有机会再请教.

还有,你这么客气,我要付您工资了.快将银行卡卡号告诉我,还有密码.呵呵...开个玩笑!

希望有机会能跟您合作---------这不是玩笑!

txfshzg@citiz.net

hzg7818 · 发表于 2003-12-17 19:32

你仔细看看我的文件，这个功能我为你预留了，你看看是否运转正常

hzg7818 · 发表于 2003-12-15 22:09

以下是引用txlgq在2003-12-15 13:29:00的发言：
如果只有在某列（假设在G列）的单元格中输入内容后，才使此单元格以上及以左的单元格锁定，而在A列至F列输入内容，不执行锁定功能，如在G30中输入内容后，A1：G30锁定并保护工作表，请问宏代码如何修改，并注释。

[此贴子已经被作者于2003-12-15 13:31:01编辑过]

呵呵，够不客气的啦（开个玩笑），你看看能满足需要吗？
Private Sub Worksheet_Activate()
With ActiveSheet
      .Unprotect '取消工作表保护
      .Cells.Locked = False '取消所有单元格锁定
      .Protect '保护工作表
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect '取消工作表保护
If Target.Column = 7 Then '变化目标单元格的列为7即G列
      Range(Cells(1, 1), Target).Locked = True '变化单元格左上区域为锁定
End If
ActiveSheet.EnableSelection = xlUnlockedCells '工作表可选区域为未锁定区域
ActiveSheet.Protect '保护工作表

End Sub
这段代码放到需要该功能的工作表代码模块中

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

[讨论] [求助]怎样才能在动态中锁定单元格？