استخراج ملفات الضغط محمي بكلمة سر عن طريق vba

Sub test1()

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

Application.DisplayStatusBar = False

Application.EnableEvents = False



    Dim File        As Object

    Dim Files       As Object

    Dim MainFldr    As Object

    Dim MainPath    As Variant

    Dim oShell      As Object

    Dim ZipFile     As Variant

    Dim ZipFldr     As Object

    

        MainPath = (ThisWorkbook.Path & "\")

        

        Set oShell = CreateObject("Shell.Application")

            

        Set MainFldr = oShell.Namespace(MainPath)

        

            Set Files = MainFldr.Items

                Files.Filter 32, "test1.zip"

                

                

            For Each File In Files

                Set ZipFldr = oShell.Namespace(File)

                For Each ZipFile In ZipFldr.Items

                    MainFldr.CopyHere ZipFile.Path

                Next ZipFile

            Next File

            

            Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

Application.DisplayStatusBar = True

Application.EnableEvents = True

            

End Sub

Sub test2()



    Dim RarIt As String

    Dim Source As String

    Dim Desti As String

    Dim WinRarPath As String

           Dim sPathTo7ZipExe As String

        Dim sZipPassword As String

'sPathTo7ZipExe = "C:\Program Files\WinRar\WinRAR.exe"

    WinRarPath = "C:\Program Files\WinRar\"

    Source = (ThisWorkbook.Path & "\test2.rar")

    sZipPassword = "456"

    Desti = (ThisWorkbook.Path & "\")



    RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " e " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)



End Sub

Sub test3()



    Dim strCommand As String

    Dim strDestFileName As String

    Dim strSourceFileName As String

    Dim str7ZipPath As String

    Dim strPassword As String











strDestFileName = (ThisWorkbook.Path & "\")

strSourceFileName = (ThisWorkbook.Path & "\test3.rar")

str7ZipPath = "C:\Program Files\7-Zip\7z.exe"

strPassword = "456"



strCommand = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & strSourceFileName & """"

Shell strCommand



End Sub