品色堂最新地址 [Excel VBA]批量对Excel文献进行加密

品色堂最新地址

这是本公众号灵通以来的第62篇笔墨品色堂最新地址。感谢全球的扶植！

前段技艺使命特出忙，随后休了一段技艺的假，公众号更新就暂停了一下。今天入手，公众号还原更新。

好了，身无长物。

跟着XX对数据安全的醉心进度擢升，当今关于一些较为明锐的数据进行邮件传输时，条目进行必要的加密。若是是个别文献的加密，手工操作量还不大。当一次需要进行加密的文献较多时，手工一一操作起来就特出未便。

av资料库

前段技艺，咱们就碰到了这样一个使命场景。

那时，需要对一系列的明锐数据按照客户包摄关系发送到对应的网点，每个网点一张表，每张表王人需要加密，总体表格数目多达上百份。为裁减手工操作量，那时写了一段通俗的代码，并包装成了吝惜具。

以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

上述代码轮番对应的是：窗体驱动化、取消按钮、全不选按钮、全选按钮和细目按钮。

有敬爱的一又友接待暗里联系换取；不肯意看代码的一又友，告成按着这个吝惜具用就好了。

好了。今天的实质就到这里吧。接待全球感情我的公众号。请多多驳倒，多多扩充。谢谢！

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