一个色导航

这是本公众号通畅以来的第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

yqk 勾引

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

上述代码步骤对应的是：窗体运颐养、取消按钮、全不选按钮、全选按钮和细目按钮。

有兴味的一又友迎接私行掂量相易；不肯意看代码的一又友，顺利按着这个孤寒具用就好了。

好了。今天的实质就到这里吧。迎接大众顺心我的公众号。请多多驳斥，多多实行。谢谢！

本站仅提供存储就业，悉数实质均由用户发布，如发现存害或侵权实质，请点击举报。