一键加密Excel文档

　　Excel工作表中的数据对内没有保密的需要，但对外有的公司不行，例如笔者所在公司就有这样的规定，公司的Excel文档不能随便给人看。如何快速加密Excel文档呢？在Excel中按组合键“Alt+F11”
　　打开VB编辑窗口，输入关键代码：
　　ActiveSheet.Unprotect（“123456”）//默认密码
      Cells.Select
      Selection.LOCked= False
      Selection.SpecialCells
     （xlCellTypeFormulas, 23）。Select
      Selection.Locked= True
      Selectlon.FormulaHidden=True
      ActiveSheet.Protect（“123456”）
      ActiveSheet.
　　EnableSelection =
      xlUnlockedCells

      之后，将该宏拖到工具栏即可。这样就可以一键加密了，只有输入密码才可以看到文档内容，保密性大大提升。
　　密码可以自行修改，加密后就可以将当前工作表保护起来。

本文关键字：加密  Excel  软件的使用，电子学习 - 软件的使用