一、excel文档怎样防止破解密码

整体来说excel的密码很脆弱的，很难防住刻意要的人；

可以将excel压缩、压缩文件加密，这个密码比excel的密码强一些；

或者用机器码、注册表等方式相结合吧

Private Declare Function GetComputerName Lib kernel32 Alias _

       GetComputerNameA (Byval lpBuffer As String, ByRef nSize As Long) As Long

Private Function ComputerName () As String

Dim stBuff As String * 255, lAPIResult As Long

Dim lBuffLen As Long

lBuffLen = 255

lAPIResult = GetComputerName (stBuff, lBuffLen)

If lBuffLen > 0 Then ComputerName = Left (stBuff, lBuffLen)

End Function

Sub ComputerCheck ()

Dim CompName As String

If CompName <> BillJelenPC Then                                            '注：电脑名称是BillJelenPC

        MsgBox This application does not have the right to run on this computer.

        ActiveWorkbook.Close SaveChanges := False

End If

End Sub

二、word文档密码忘记了，怎打开文档？

闪电般的 5秒斩杀Word文档密码

为Word文档加密本来无可厚非，但如果过段时间忘记了密码怎么办？虽然网络上充斥着各种软件，但它们无一例外的采用暴力方式，耗费时间长并且成功率低。我们今天将采用一种特殊的方法，在几秒内解除Word中的密码，让你的宝贵资料“失而复得”。

一、Word密码不是梦

其实我们利用的也是一款软件——Word Password Recovery Master（下载地址：），解压缩软件后不必安装，直接运行WPasRec.exe，软件的使用方法更是简单，通过浏览按钮指定已经加密的Word文档，然后软件会自动识别该文档具备何种密码（如图1），此时相应的“Remove”按钮即可解除对应的密码。完成后会弹出如图2所示信息，整个过程非常快，但在中必须保证电脑已经连接到网络。

最后会在加密文档的同级目录下生成一个新文件，以“demo”标注，再次打开这个文件，或者点软件界面的“Open document in Microsoft Word”直接打开后的文档。在使用了10位密码加密并且文档容量在250KB的过程中只耗费了不到5秒种（图2）。

在过程中必须连接到网络，如果出现错误对话框可能是由于网络不稳定造成的，最好尝试重新。

二、Excel也别跑

Office Password Remover也是一款软件，它不但能解除Word密码，还可以Excel密码（下载地址：）。首先保证要的文件没被占用，然后指定加密文件进行（如图3），速度同样很快，但必须连接到网络。虽然这款软件也可以Word密码，但笔者还是推荐使用Word Password Recovery Master，因为经过测试它连接服务器相对更稳定。

用了这两款软件，再保密的Word（Excel）文件也能恢复回来，对付应急情况很管用。

三、WPS中excel表格密码忘记怎么办？

示例在EXCEL2007中进行，可以不使用宏设置，直接按以下方法操作。；

1、先打开EXCEL,sheet1是一个被保护的工作表，当点击单元格尝试编辑时。会提示试图更改的单元格或图表在受保护的工作表中！；

2、点击工作表左上角全选，按Ctrl+C 复制工作表，然后在右侧新建 一个工作表，再次点击左上角全选，按CTRL+V粘贴，将被保护的工作表粘贴到新的表中，此时的工作表内容与原表相同，只是没有了密码保护。；

3、删除原工作表，将新建的工作表名称改为原名称，并移动到原位置即可。

现在的WPS都有回档功能，回档到设置密码之前就可以了