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

hzg7818 · 发表于 2003-12-15 19:28

XPIbzvXF.rar (10.75 KB, 下载次数: 67)
这次试试能实现要求吗？由于原程序对Usedragne属性操作，具有格式的单元格也在范畴之内，所以会出现错误，是我一时失误，造成你的无法应用，抱歉！

hzg7818 · 发表于 2003-12-14 18:01

以下是引用txfshzg在2003-12-4 13:24:00的发言：
[em00]又有问题了!
如果有表格线,或者有底色的话,也就是说,单元格设置了格式的话,这个办法就不管用了!
还有,funcres 和 atpvbaen 为什么进不去,需要密码?
谢谢!

[此贴子已经被作者于2003-12-4 13:53:06编辑过]

代码属性的设置与以上你说的这些没有联系，你的是什么问题呢？

hzg7818 · 发表于 2003-12-3 18:20

vbe中设置工程属性，保护工程然后设置密码

hzg7818 · 发表于 2003-12-1 20:35

.Protect
.Unprotect
这两个方法分别是保护和取消保护工作表，这两个方法都有一个可以省略的password参数，就是密码
.Protect password:="你自己的密码"
.Unprotect password:="你自己的密码"
就可以了
第二个问题把代码放到workbook的beforesave事件就可以了
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveSheet
      .Unprotect
      .Cells.Locked = False
      .UsedRange.Locked = True
      .EnableSelection = xlUnlockedCells
      .Protect
End With
End Sub
另外上例中.Range(Cells(Target.Row + 1, 1), Cells(65536, 256)).Locked = False
这句是不必要的，因为仅仅需要保护已经用过的单元格，这是原来就你的问题遗留下来的，不好意思

hzg7818 · 发表于 2003-11-30 13:16

你把第2个表中的代码复制到任何一个sheet的代码模块中就可以用了，这段代码是通用的
其主要思路是：
Private Sub Worksheet_Activate()
'工作表的激活事件是用来做初始化工作的，初始锁定已用区域，
'设置工作表可选定区域为未锁定单元格，并保护工作表
With ActiveSheet
      .Unprotect
      .Cells.Locked = False
      .UsedRange.Locked = True
      .EnableSelection = xlUnlockedCells
      .Protect
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'防错处理
On Error Resume Next
With ActiveSheet
      '取消工作表保护，确保后续动作成功
      .Unprotect
      '锁定已用区域
      .UsedRange.Locked = True
      '取消当前编辑区域以下所有单元格锁定选项
      .Range(Cells(Target.Row + 1, 1), Cells(65536, 256)).Locked = False
      '保护工作表
      .Protect
End With
End Sub

hzg7818 · 发表于 2003-11-29 20:50

FO1Bcmwy.rar (7.28 KB, 下载次数: 372)
内有比较详细的注释，你先看看是否合意

hzg7818 · 发表于 2003-11-29 15:16

blue你好，我已经很久没有见到你了。
这个问题不是很困难，但只能用VBA来解决，思路有两种，一是限制工作表的选择区域，动态更改，这种方法不用保护工作表，另外就是保护工作表，动态调整单元格的锁定属性，我单位就有这个例子，稍后我传文件上来

hzg7818 · 发表于 2003-12-23 18:56

lUSnIOCI.rar (11.15 KB, 下载次数: 73)
这次再看看，能不能用，为你增加了输入批注的功能
对不起，我不能随时上网，耽搁了你几天时间，有什么问题再问吧

hzg7818 · 发表于 2003-12-18 22:14

问题出现在把解开sheet保护的代码被注释了，删掉Unprotect前面的“'”
添加注释这是被保护工作表机制屏蔽掉的，无法帮你实现

TAwican · 发表于 2009-10-17 16:59

哈哈，学习学习拉

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

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