2024-09-07 04:21 点击次数：133
这是本公众号绽放以来的第62篇翰墨白丝 萝莉。感谢全球的解救！
前段时分责任颠倒忙，随后休了一段时分的假，公众号更新就暂停了一下。今天脱手，公众号收复更新。
好了，离题万里。
跟着XX对数据安全的喜欢进度擢升，当今关于一些较为明锐的数据进行邮件传输时，条款进行必要的加密。若是是个别文献的加密，手工操作量还不大。当一次需要进行加密的文献较多时，手工逐一操作起来就相当未便。
前段时分，咱们就际遇了这样一个责任场景。
其时，需要对一系列的明锐数据按照客户包摄关系发送到对应的网点，每个网点一张表，每张表皆需要加密，总体表格数目多达上百份。为裁减手工操作量，其时写了一段浅薄的代码，并包装成了爱惜用。
以11个Excel文献为例，以abc123d动作密码进行加密。动图演示律举例下：
图片
完成加密操作后，爱惜用会弹出一个对话框，告诉你：对XX个文献进行了加密，密码是：XXXX。点击细目后，咱们的文献就加密好了。
底下咱们试着大开被加密的文献，看是否胜仗。动图演示如下：
图片
不错看到，咱们的文献如实被加密了。输入上头设定好的密码abc123d后，文献被大开了。
上头用到的这个爱惜用，我上挂到百度云盘内部，全球可通过底下的旅途进行下载。
畅通：https://pan.baidu.com/s/1Lkn2cUXBTRVlSDXv-p7w9g 密码：ee3y
接下来，咱们看一下用到的VBA代码。
在上头这个爱惜用中，咱们用到了Excel VBA中的模块和窗体，如下图所示。
图片
模块部分莫得太多本色，主要即是一句代码：
批量加密责任簿.Show
代码的酷爱是对窗体“批量加密责任簿”进行调用。
窗体部分相对比拟复杂。咱们领先要作念出底下这样一个窗体界面来：
图片
用到的代码主要所以下这些：
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
上述代码循序对应的是：窗体运行化、取消按钮、全不选按钮、全选按钮和细目按钮。
成心思意思的一又友迎接暗里关系换取；不肯意看代码的一又友，平直按着这个爱惜用用就好了。
好了。今天的本色就到这里吧。迎接全球关爱我的公众号。请多多挑剔，多多执行。谢谢！
本站仅提供存储工作，整个本色均由用户发布，如发现存害或侵权本色，请点击举报。