excel 能不能锁定不能复制

来源：百度知道编辑：UC知道时间：2024/06/04 11:48:33

设置了excel 的保护之后，本身文件不能修改了，但是，如果把原文件的内容复制到一个新的excel文档之后就可以修改了。。。。
有没有办法能够连复制也锁定了？有无这个功能？

EXCEL标准功能是无法做到不让复制的。

做一个事件驱动程序可以实现。例如有一张工作表，限制对第3列复制。当鼠标对第3列进行选择区域时，自动回到单元格A1。代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim mYadd As String

Dim mYadds, mYadde, mYs As String

Dim adda

Dim I, J As Integer

mYadd = Target.Address

I = Len(mYadd) - Len(Replace(mYadd, ":", ""))

If I = 0 And ActiveCell.Column <> 3 Then

Exit Sub

End If

If I = 0 And ActiveCell.Column = 3 Then

GoTo 100

End If

adda = Split(mYadd, ":")

mYadds = adda(0)

mYadde = adda(1)

For I = 0 To 9

mYs = Trim(Str(I))

mYadds = Replace(mYadds, mYs, "")

mYadde = Replace(mYadde, mYs, "")

Next I

mYadds = Replace(mYadds, "$", "")

mYadde = Replace(mYadde, "$", "")

If Asc(mYadds) <= Asc("C") And Asc(mY