联系我们 [Excel VBA]批量对Excel文献进行加密
这是本公众号通达以来的第62篇笔墨联系我们。感谢寰宇的复古！
前段本事责任特别忙，随后休了一段本事的假，公众号更新就暂停了一下。今天出手，公众号规复更新。
好了，缺乏无物。
跟着XX对数据安全的怜爱进度提升，现在关于一些较为敏锐的数据进行邮件传输时，条目进行必要的加密。如若是个别文献的加密，手工操作量还不大。当一次需要进行加密的文献较多时，手工一一操作起来就相等未便。
红球冷码统计：双色球第2024078期开出红球奖号分别为：05、09、14、21、22、26，在最近300期开奖中，各号码出现之后其下期出现最少的5个红球分别为：
红球冷热分析：上期开出1个冷码红球：26，奖号冷热比为1:5，本期参考冷热比4:2，关注冷码15、16、23、31。
前段本事，咱们就碰到了这样一个责任场景。
那时，需要对一系列的敏锐数据按照客户包摄关系发送到对应的网点，每个网点一张表，每张表齐需要加密，总体表格数目多达上百份。为裁汰手工操作量，那时写了一段苟简的代码，并包装成了吝啬用。
以11个Excel文献为例，电商软件制作费用以abc123d手脚密码进行加密。动图演示成果如下：
图片
完成加密操作后，吝啬用会弹出一个对话框，告诉你：对XX个文献进行了加密，密码是：XXXX。点击确信后，咱们的文献就加密好了。
底下咱们试着怒放被加密的文献，看是否顺利。动图演示如下：
图片
不错看到，咱们的文献照实被加密了。输入上头设定好的密码abc123d后，文献被怒放了。
上头用到的这个吝啬用，我上挂到百度云盘内部，寰宇可通过底下的旅途进行下载。
连结：https://pan.baidu.com/s/1Lkn2cUXBTRVlSDXv-p7w9g 密码：ee3y
接下来，咱们看一下用到的VBA代码。
在上头这个吝啬用中，咱们用到了Excel VBA中的模块和窗体，如下图所示。
图片
模块部分莫得太多骨子，主要即是一句代码：
批量加密责任簿.Show
app开发代码的风趣是对窗体“批量加密责任簿”进行调用。
窗体部分相对比拟复杂。咱们最初要作念出底下这样一个窗体界面来：
图片
用到的代码主要所以下这些：
PrivateSub UserForm_Initialize()
OnError Resume Next
Application.DisplayAlerts= False
Dimfopen As FileDialog
Dimmypath As String
DimtheSh As Object
DimtheFolder As Object
SettheSh = CreateObject('shell.application')
SettheFolder = theSh.browseforfolder(0, '', 0, '')
IftheFolder Is Nothing Then
ExitSub
EndIf
mypath= theFolder.items.Item.Path
Me.Label2= mypath
Setmyfso = CreateObject('scripting.filesystemobject')
Setmyfile = myfso.getfolder(mypath).Files
i= 0
ForEach fe In myfile
With Me.ListBox1
.AddItem
.List(i, 0) = fe.Name
End With
i = i + 1
Next
Application.DisplayAlerts= True
EndSub
PrivateSub 取消_Click()
End
EndSub
PrivateSub 全不选_Click()
Fori = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next
EndSub
PrivateSub 全选_Click()
Fori = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = True
Next
EndSub
PrivateSub 确信_Click()
Application.ScreenUpdating= False
Fori = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
myfilename = Me.Label2 &'\' & Me.ListBox1.List(i, 0)
Workbooks.Open Filename:=myfilename
ActiveWorkbook.Password = Me.TextBox1
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=True
End If
Next
MsgBox('已完成对通盘表格加密，密码为： ' &Me.TextBox1)
Application.ScreenUpdating= True
End
EndSub
上述代码轮换对应的是：窗体驱动化、取消按钮、全不选按钮、全选按钮和确信按钮。
有好奇羡慕的一又友接待暗里关系不异；不肯意看代码的一又友，顺利按着这个吝啬用用就好了。
好了。今天的骨子就到这里吧。接待寰宇蔼然我的公众号。请多多驳斥，多多奉行。谢谢！
本站仅提供存储做事，通盘骨子均由用户发布，如发现存害或侵权骨子，请点击举报。