Запаковать файл Zip'ом и распаковать файл с паролем

[Ципихович Эндрю]

Здравствуйте!
Код есть, но
Всё ничего но когда я вручную пытаюсь распаковать файл, я делаю вид, что пароль не знаю и жму отмену, форма предлагающая ввести пароль убирается и файл распаковывается, странно!?
А зачем если я не ввёл пароль, можно сделать чтобы файл не распаковывался??
правда и файл не открывается, просит конвертор, но я не пробовал с другими файлами и это уже не считается

Sub Запаковать_документ_Zipом_с_паролем()

    Dim MyDocPath As String, MyDocName As String
    Dim MyArhivPath As String, MyArhivName As String
    Dim Password As String, ShellArgument As String, ZipFullName As String, ZipPathCommand As String
    Dim fs As New Scripting.FileSystemObject
    ZipFullName = "C:\Program Files\7-Zip\7z.exe"
    ZipPathCommand = ZipFullName & " a "
    If Not fs.FileExists(ZipFullName) Then
        MsgBox "Не найден файл 7z.exe" & Chr(10) & ZipFullName
        Exit Sub
    End If
    MyDocPath = "C:\"
    MyDocName = "1.doc"
    MyArhivPath = "C:\"
    MyArhivName = "1.zip"
    Password = "111"
    ShellArgument = ZipPathCommand & MyArhivPath & MyArhivName & " " & MyDocPath & MyDocName & " -p" & Password
    Shell (ShellArgument)

End Sub

2. Как распаковать программно запаролений Zip'ом файл??
Спасибо

[All_Ex]

Извиняюсь, я был не прав.

[Serge_Bliznykov]

All_Ex, извините, конечно, но вы глупость писать изволите!
Какая разница, на чём написана программа, если она поддерживает командную строку?! (а 7zip - поддерживает!)
Если Вы обратите внимание, то автор темы прекрасно запаковывает файл с паролем. из VBA, через Shell

[Ципихович Эндрю]

консультируюсь сразу на нескольких форумах, посему ответ есть, спасибо ответившему, делюсь:

Sub Распаковать_документ()
    Dim MyDocPath As String, MyDocName As String
    Dim MyArhivPath As String, MyArhivName As String
    Dim Password As String, ShellArgument As String, ZipFullName As String, ZipPathCommand As String
    Dim ZipSwitches As String
    ZipFullName = "C:\Program Files\7-Zip\7z.exe"
    ZipPathCommand = ZipFullName & " e "
    If Dir(ZipFullName) = "" Then
        MsgBox "Не найден файл 7z.exe" & Chr(10) & ZipFullName
        Exit Sub
    End If
    MyArhivPath = "C:\temp\"
    MyArhivName = "Document1.zip"
    MyDocPath = "C:\temp"
    Password = "111"
    ZipSwitches = " -p" & Password  'если архив запаролен
    ZipSwitches = ZipSwitches & " -o" & MyDocPath ' Директория, куда извлекаем файл
    ZipSwitches = ZipSwitches & " *.doc"   ' шаблон имен извлекаемых файлов
    ZipSwitches = ZipSwitches & " -aoa" ' перезаписать существующие файлы при извлечении
    ShellArgument = ZipPathCommand & MyArhivPath & MyArhivName & ZipSwitches
    Shell (ShellArgument)
End Sub

не пробовал пока сам