EXCEL如何加密防拷贝.docVIP

EXCEL如何加密防拷贝？ 2011-1-19 14:02 提问者： HYPERLINK /?businessaid=6un=qq4207 \l 2 \t _blank qq4207 | 浏览次数：1172次 EXCEL文件复制到别的电脑上用不了，自己的电脑文件不能另存为~但是单元格内容可以剪切复制，这个要怎么做？有谁能帮忙下，我曾经用了EXCEL版权加密4.0的，但是它单元格的内容不能复制粘贴~~各位大虾谁能帮忙下？必加分~是通过VBA代码来做呢？还是？？有好的工具推荐的? 问题补充： 以下代码补充：由FinleyWong提供 你可以先查出你的用户名：alt+F11中的，application.username就可以知道啦 application.username就可以知道你真正的用户名：然后我的代码中的中文改为你查到的用户名就可以啦，点击电脑的开始-运行 ，输入CMD 然后输入hostname也可以知道你电脑的用户名，用excel是无法解决的，比如你输入cmd按回车 到dos状态 再输入hostname 其他办法也不行，你按：ctrl+pause 就可以进去了，然后把代码删掉吧 我来帮他解答 2011-1-19 15:07 满意回答 楼主，这个问题我可以帮你解决，打开你要设置的excel文件，按alt+F11进入VB编辑器。点击this workbook,输入以下代码： 用户名字是看你的计算机的用户名是什么就是什么啦？实在不知道通过Application.UserName 就可以查出来。楼主，我不容易啊，最好给点分，谢谢！ 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