<em>EXCEL如何加密防拷贝</em>？

因为EXCEL的密码加密码方法与我们平常的不一样.

EXCEL中是把你输入的密码转化成" ABABBBABAAA* "这种形式的:

前面11位每一位A或B组成,第12位才是任意一个字符.

举例:你输入1234为密码,结果用1257也能打开是一样的:

这样子就算你输入的密码1000万种情况,到EXCEL中就只有20多万种情况了.

用VBA代码很快就e799bee5baa6e78988e69d83339破了,下面这段代码就是破解工作表保护的,你看下就知道了:

所以说工作表保护密码是非常脆弱的：

Sub RemovePPW()
Dim i As Integer, j As Integer, k As Integer
   Dim l As Integer, m As Integer, n As Integer
   Dim i1 As Integer, i2 As Integer, i3 As Integer
   Dim i4 As Integer, i5 As Integer, i6 As Integer
   On Error Resume Next
   If ActiveSheet.ProtectContents = False Then
      ' MsgBox "该工作表没有保护密码！"
       Exit Sub
   End If
   For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
   For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
   For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
   For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
         Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
         Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   If ActiveSheet.ProtectContents = False Then
         ' MsgBox "已经解除了工作表保护！"
         Exit Sub
   End If
   Next: Next: Next: Next: Next: Next
   Next: Next: Next: Next: Next: Next
 
End Sub

打开你要zhidao设置的excel文件，按alt+F11进入VB编辑器。点击this workbook,输入以下代码 ：
Private Sub Workbook_Open()
If Application.UserName = "用户名字（注：用户名字是看你的计算机的用户名是什么就是什么啦？）" Then
For Each ctl In Application.CommandBars.FindControls(ID:=748)
ctl.Enabled = False
Next
Else
Application.WindowState = xlMinimized
MsgBox "¸该文件你无权操作"
Application.Quit End If End Sub

如果你学过VB可能觉得麻烦，那你也版可以通过审权阅-保护工作表-输入比较复制的密码来保护你的内容，但是这是可以被拷贝的。
第一点要不要别人看到内容啊
怕别人复制就不要给别人看的
不然难免要被别人使用的，即使保护加密，破译也不难的

防止考内可以通过以下方式解决:
1. 全选copy你要保护的工作表,按Ctrl+1,选择保护百，选中“锁定”前方框度
2。工具->保护->保护工作表 输入密码。
3。按Alt+F11,再按Ctrl+R,找到知你刚加保道护的工作表,选中，按F4调出属性框
4。在属性框中，找到"EnableSelection",选右测下拉框，xlNoSelection
就ok了.马上试试.