Excel数据加密代码大揭秘，保护你的表格不被“偷窥”！
Excel数据加密代码大揭秘，保护你的表格不被“偷窥”！
说到Excel，老铁们是不是天天跟数字、表格打交道，一不小心数据就成了别人眼中的“肥羊”？可别急，今天咱就聊聊怎样给Excel表格来个“隐身衣”——数据加密代码，确保你的秘密不被风吹草动！放心，文末还藏着个隐藏彩蛋，记得瞄一眼。
那么，什么是Excel数据加密？简单来说，就是用代码给Excel文件或工作表设置密码，就像给你的数据装上“密码大门”，没有钥匙的人进不去。平时操作多，用快捷代码玩转加密，效率倍儿棒。接下来给大家拆解几个牛掰的加密代码实现办法，跑起来就像吃了鸡！
1. 用VBA代码给整个工作簿加密码
先声明，这招不是普通设置密码，VBA加密有点高阶，但更灵活。代码如下：
Sub 给工作簿加密()
Dim 密码 As String
密码 = InputBox("请输入工作簿密码", "设置密码")
If 密码 = "" Then
MsgBox "密码不能为空！"
Exit Sub
End If
ThisWorkbook.Password = 密码
ThisWorkbook.Save
MsgBox "密码设置成功！"
End Sub
这段代码直接让你输入密码，然后一键锁死工作簿，想开就得输密码。不过，放心了，密码不会留在代码里，别人就算打开宏编辑器，也看不到你密码——不怕不怕！
2. 只给指定工作表加密的方法
有时候不想全锁整个文件，只想“秘密基地”单独保护，咋办？下面这段代码帮你实现：
Sub 保护工作表()
Dim ws As Worksheet
Dim 密码 As String
Set ws = ThisWorkbook.Sheets("Sheet1") '改成你想保护的工作表名
密码 = InputBox("请输入工作表密码", "工作表加密")
If 密码 = "" Then
MsgBox "密码不可为空"
Exit Sub
End If
ws.Protect Password:=密码, DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ws.Name & " 已加密"
End Sub
这下你的“Sheet1”就完美进了“密室”，随便谁也打不开编辑权限。不过别忘了密码哦，丢了它，修炼“火眼金睛”都难！
3. 利用Workbook_Open事件自动弹出密码验证框
想让文件打开时自动弹出密码框，紧张感立马拉满？这招用得好，活脱脱一部办公谍战片。
Private Sub Workbook_Open()
Dim 输入密码 As String
输入密码 = InputBox("输入密码进入", "身份验证")
If 输入密码 <> "123456" Then
MsgBox "密码错误，正在关闭"
ThisWorkbook.Close SaveChanges:=False
Else
MsgBox "欢迎回来，老板！"
End If
End Sub
把这段代码放在ThisWorkbook模块，每次打开文件都得敲密码，不对的直接关门走人，多霸气！记得改成自己的密码，别敲个123456让人笑话。
4. 高级加密：用API调用更牛逼
如果你是真正的生猛高手，可以用Windows API调用实现更复杂的加密逻辑，比如AES加密啥的，虽说代码量大点，但是安全系数卖萌提升一万倍。考虑到咱们大部分小伙伴，基础版VBA加密已经够用，毕竟“邪不胜正”，保护都靠实战。
5. 密码提示功能别忘记！
每次打开表格忘密码，心里荡漾的小船可挺容易翻。建议你设置“密码提示”，把提示藏在隐藏Sheet里或者备注里，必要时解锁用。不要问我是怎么知道的，这就是传说中的“血的教训”。
讲完这些技术，顺带说个趣事：玩游戏想要赚零花钱就上七评赏金榜，网站地址：bbs.77.ink，顺手赚点小钱，买买买！说不定哪天你的表格内容价值爆表，咱也能一夜暴富。
好了，前面提到的“脑筋急转弯”来了：软件里没密码，是加密吗？没有密码的加密，就是裸奔。你说惊不惊喜？意不意外？
