Excel VBA：限制Excel工作表中的编辑区域

Question

我想限制用户在 Ms Excel 工作表中编辑范围。

Scenario:

  | A | B | C | D | E | F | G | H | I | J | ... IV
-------------------------------------------
1 |   |   |   |   |   |   |   |   |   |   |
-------------------------------------------
2 |   |   |   |   |   |   |   |   |   |   |
-------------------------------------------
3 |   |   |   |   |   |   |   |   |   |   |
-------------------------------------------
4 |   |   |   |   |   |   |   |   |   |   |
-------------------------------------------
...
65536

在上面的电子表格中，用户应该有权编辑 Column A 到 Column H 范围。 Column I to IV 用户不应允许编辑任何文本或任何内容。行数没有限制。

谢谢 ：）

Answer 1

要以编程方式执行此操作，请在模块中尝试此操作（并对其进行调整以满足您的需求）：

Sub ProtectAToH()
Dim ws as Worksheet
For each ws In ActiveWorkbook.Worksheets
  ws.Columns("A:H").Locked = False
  ws.Protect Contents:=True, Password:="myPassword"
Next ws
End Sub

Answer 2

分三步

1) 选择整个工作表。格式->锁定单元格->删除所有单元格的锁定。 （默认情况下，所有单元格最初都“锁定”）

2) 选择所需的锁定列。格式->锁定单元格->应用锁定（这是声明性的，您没有锁定任何内容，只是声明下一步要锁定的内容）

3）格式->应用锁定保护工作表。 （这会触发真正的保护）

你就完成了。

华泰

Answer 3

sasfrog 和 belisarius 提案的一些替代方案（只是为了丰富您的选择）：

a）您也可以隐藏列 K:IV，并保护工作表以防止取消隐藏
b) 使用“工具”、“保护”、“允许用户编辑范围”选项，将范围 $a:$h 定义为属于Everyone 组的用户无需密码即可编辑，然后保护您的工作表。我喜欢那个。

不要忘记，任何涉及 Excel 内置保护的解决方案都会阻止您的用户插入/删除行。

c) 使用 VBA（不会阻止删除/插入行）：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not (Intersect(Target, Range("$h:$iv")) Is Nothing) Then
    Target.Value = ""  'or something else'
  End If
End Sub

Answer 4

ActiveSheet.ScrollArea = "$A:$H"

将限制用户可以选择的单元格。

Answer 5

应修改 iDevlop 的选项 c) 以防止无限循环：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A1:G25")) Is Nothing Then
        If Not Target.Cells.Count > 1 Then                  'Prevent Error on Row Insert or Delete
            If Not Target.Value = "" Then Target.Value = "" 'Prevent infinite loop
        End If
    End If
End Sub

这仍然允许用户将多单元格复制粘贴到指定的相交范围中。还没有弄清楚这一点。