对指定区域的单元格进行锁定与解锁（已解决）

aman1516

求助：

      这是一个数据录入模板，为了防止别人随意修改或误操作，希望实现以下功能：

      1）当在“A30”下拉选择“LOCK”时，仅对“A5：A28”中有数据的单元格进行锁定，如为空白单元格则仍可下拉选择或输入，但下拉选择或输入后则马上自动锁定。
      （上述操作对工作表所有其它单元格不管有无数据都不受锁定影响）

      2）当在“A30”下拉选择“UNLOCK”时，则解除“A5：A28”所有单元格的锁定。

      3）而通过对“A30”的单元格设立操作权限，如用"InputBox"+ "Password"等，控制对“A5：A28”有数据的区域加锁解锁，以达到保护数据的目的。

      详见附件： 能否只对指定区域的单元格进行锁定与解锁.rar (7.6 KB, 下载次数: 521)

2012-5-29 20:59 上传

点击文件名下载附件

          请老师帮忙，谢谢！


补充内容 (2017-8-25 20:33):
22楼更新，改为：对选定区域进行锁定与解锁 方式，更通用些

guojianlin1985

除非写到程序里，否则基本上实现不了，因为excel的保护机制太薄弱了。

印度矮子

guojianlin1985 发表于 2012-5-29 21:48
除非写到程序里，否则基本上实现不了，因为excel的保护机制太薄弱了。

     是青城后山下面的一个镇上吗？

aman1516

guojianlin1985 发表于 2012-5-29 21:48
除非写到程序里，否则基本上实现不了，因为excel的保护机制太薄弱了。

所以在VBA板块里求助。对于我们这些不懂什么代码的，觉得主要难在锁定的功能——只锁定指定区域内有数据部分，而空白部分若输入数据后又自动锁定。

置于用权限限制对“A30”单元格的操作，方法是比较多的。

aman1516

想到还有这样的情况：

        如果区域是 “A5：B28” 呢，请老师用这个条件来解答吧——这个会了，一列数据区域或多列数据区域的自然就会以，省得后面遇到这种情况时又不懂改代码了。

aman1516

弄了一个晚上，东拼西凑，终于搞掂：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$30" Then
   If Range("A30").Value = "lock" Then
      Me.Unprotect Password:="123"
      Cells.Locked = False
      'Range("A5:D28").Locked = True
      Range("A30").ClearComments
      Range("A30").AddComment.Text Text:="lock"
      Range("A5:D28").SpecialCells(2, 23).Locked = True
      Me.Protect Password:="123"
      Else
      Me.Unprotect Password:="123"
      Range("A30").ClearComments
      Range("A30").AddComment.Text Text:="unlock"
   End If
ElseIf Target.Column >= 1 And Target.Column <= 4 And Target.Row >= 5 And Target.Row <= 28 Then
   If Range("A30").Value = "lock" Then
      Me.Unprotect Password:="123"
      Cells.Locked = False
      Range("A5:D28").SpecialCells(2, 23).Locked = True
      Range("A5:D28").SpecialCells(xlCellTypeFormulas, 23).Locked = True
      Me.Protect Password:="123"
   Else
      Me.Unprotect Password:="123"
   End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ss
If Target.Address = "$A$30" Then
   ss = InputBox("  请输入操作口令：", "温馨提示：")
   If ss <> "123" Then Range("A29").Select
End If
End Sub

aman1516

发现一个小bug，就是“A30”更改后，第一次操作其它单元格的时候还是能改动，但之后就正常了。还是一句话：先用着先

这个代码哪里还有问题？  还是下拉列表、  Worksheet_Change  、  Worksheet_SelectionChange  响应先后中需调整的问题？  唉，百思不得其解......请高手终极完善！

（虽说本人菜鸟一个，但通过学习，哪怕解决一个小小的问题，取得一点点进步，心里还是很"自豪"的，如果还帮得上别人，那就更开心了——锁定指定区域非空单元格、锁定含公式单元格、输入后自动锁定、单元格添加批注——会者略过，需者自取吧。谢谢EH！）

aman1516

疏怱了：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$30" Then
   If Range("A30").Value = "lock" Then
      Me.Unprotect Password:="123"
      Cells.Locked = False
      'Range("A5:D28").Locked = True
      Range("A30").ClearComments
      Range("A30").AddComment.Text Text:="lock"
      Range("A5:D28").SpecialCells(2, 23).Locked = True
      Range("A5:D28").SpecialCells(xlCellTypeFormulas, 23).Locked = True       '漏了一行了，补上
      Me.Protect Password:="123"
     else
     ......

代码能否可以更优化？

aman1516

附件： 能否只对指定区域的单元格进行锁定与解锁0529.rar (9.2 KB, 下载次数: 1352)

2012-5-30 13:10 上传

点击文件名下载附件

aman1516

如果觉得 InputBox 画蛇添足的话，则将 Worksheet_SelectionChange 内的代码全部去掉。

将所有  Range("A5:D28") 改为 Range("A5:D28,A30") ， 连 “A30” 一并锁定就ok了。