Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ordner mit Dateien zippen mit 7Zip

Ordner mit Dateien zippen mit 7Zip
03.10.2023 07:50:51
Andy
Hallo alle zusammen,

ich habe eine Frage hinsichtlich des zippens von Ordnern mit dem Programm 7Zip.

Besteht die Möglichkeit, dass man einen vorgegebenen Ordner mit seinem Inhalt in eine ZIP-Datei packt
und die ZIP Datei im Anschluss mit einem Passwort sichert? Habe mich schon versucht, leider klappt es irgendwie nicht.

Ich habe zwar hier einen Beitrag im Forum gefunden, leider klappt das mit der aktuellen Version aber irgendwie nicht.

https://www.herber.de/forum/archiv/1068to1072/1069004_Zip_Archiv_mit_7zexe_erstellen.html


Würde mich über Hilfe freuen.





Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner mit Dateien zippen mit 7Zip
03.10.2023 09:10:48
Andy


Sub Zip
Dim oPath As String
Dim dPath As String
Dim pPath As String
Dim pw As String
Dim shellCommand As String

oPath = spfadAkte & "*.*"
dPath = "O:Test.zip"
pPath = "C:Program Files7-Zip7z.exe"
pw = "Test"

shellCommand = pPath & " -p" & pw & " a""" & dPath & """-r""" & oPath & """"
MsgBox shellCommand
Shell shellCommand
end sub



Das habe ich auch schon versucht...leider passiert hier nichts...
Anzeige
AW: Ordner mit Dateien zippen mit 7Zip
03.10.2023 12:32:15
case
Hallo, :-)

funktioniert bei mir so: ;-)

shellCommand = pPath & " -p" & pw & " a " & dPath & " -r " & oPath


Schaue dir auch insbesondere mal die Parameter für die Commandline an:

https://7ziphelp.com/7zip-command-line

Da gibt es für -p noch mehrere Möglichkeiten. Auch die Packrate und, und, und...

Servus
Case
Anzeige
AW: Ordner mit Dateien zippen mit 7Zip
03.10.2023 12:58:50
snb
Warum nicht in VBA ?

Sub M_snb()

c00 = "G:OFZZ"
c01 = "G:OF__ziptest.zip"

CreateObject("scripting.filesystemobject").CreateTextFile(c01).write "PK" & Chr(5) & Chr(6) & String(18, 0)

With CreateObject("Shell.Application")
.Namespace(c01).CopyHere .Namespace(c00).Items
End With
End Sub

Anzeige
AW: Ordner mit Dateien zippen mit 7Zip
03.10.2023 13:05:01
case
Hallo, :-)

wollte ich auch vorschlagen. ;-)

Aber - ich habe die Frage genau gelesen! Er möchte gleich ein Passwort vergeben. Das Leben kann so einfach sein. :-)

Servus
Case
AW: Ordner mit Dateien zippen mit 7Zip
03.10.2023 13:29:49
snb
Passwörter sind doch murks.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Ordner mit Dateien zippen und Passwort vergeben


Schritt-für-Schritt-Anleitung

Um einen Ordner mit Dateien zu zippen und ein Passwort zu vergeben, kannst du die Software 7Zip zusammen mit VBA in Excel verwenden. Hier sind die Schritte:

  1. Installation von 7Zip: Stelle sicher, dass 7Zip auf deinem Computer installiert ist.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  3. Neues Modul erstellen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Code einfügen: Füge den folgenden VBA-Code in das Modul ein:

    Sub Zip
        Dim oPath As String
        Dim dPath As String
        Dim pPath As String
        Dim pw As String
        Dim shellCommand As String
    
        oPath = "Pfad\zum\Ordner\*.*" ' Ersetze dies mit dem Pfad zu deinem Ordner
        dPath = "Pfad\zum\Ziel\Ordner\Test.zip" ' Ersetze dies mit dem Zielpfad
        pPath = "C:\Program Files\7-Zip\7z.exe" ' Überprüfe den Installationspfad von 7Zip
        pw = "DeinPasswort" ' Setze hier dein Passwort
    
        shellCommand = pPath & " a -p" & pw & " """ & dPath & """ """ & oPath & """"
        Shell shellCommand
    End Sub
  5. Code anpassen: Ändere die Pfade und das Passwort nach deinen Bedürfnissen.

  6. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus. Dein Ordner wird nun gezippt und das Passwort vergeben.


Häufige Fehler und Lösungen

Problem: Der ZIP-Ordner wird nicht erstellt.
Lösung: Überprüfe, ob der Pfad zu 7Zip korrekt ist. Stelle sicher, dass die Datei 7z.exe im angegebenen Ordner existiert.

Problem: Passwort wird nicht gesetzt.
Lösung: Achte darauf, dass die Syntax im shellCommand korrekt ist. Überprüfe die Verwendung des Parameters -p.


Alternative Methoden

Wenn du kein VBA nutzen möchtest, kannst du auch manuell einen Ordner zippen:

  1. Öffne 7Zip.
  2. Navigiere zu dem Ordner, den du zippen möchtest.
  3. Wähle die Dateien aus und klicke auf "Hinzufügen".
  4. Stelle sicher, dass du im Dialogfeld die Option „Verschlüsselung“ aktivierst und ein Passwort vergibst.

Praktische Beispiele

  • Um eine Excel-Datei zu zippen, kannst du denselben Prozess wie oben anwenden. Ersetze einfach den oPath mit dem Pfad zur Excel-Datei.
  • Wenn du Bilder zippen möchtest, gehe ebenfalls vor, indem du den Pfad zu den Bilder anpasst.

Tipps für Profis

  • Wenn du regelmäßig Dateien zippen musst, erstelle eine Benutzerdefinierte Schaltfläche in Excel, um das Makro schnell auszuführen.
  • Nutze die Parameter von 7Zip, um die Kompressionsrate zu optimieren. Informationen dazu findest du auf der 7Zip Command-Line Hilfe-Seite.

FAQ: Häufige Fragen

1. Wie kann ich ein Passwort aus einer ZIP-Datei entfernen?
Du kannst das Passwort nicht direkt entfernen. Entpacke die ZIP-Datei zunächst und erstelle dann eine neue ZIP-Datei ohne Passwort.

2. Kann ich mehrere Ordner gleichzeitig zippen?
Ja, du kannst mehrere Ordner in einem Befehl angeben. Achte darauf, die richtigen Pfade und Platzhalter zu verwenden.

3. Welche Excel-Version benötige ich für das VBA-Skript?
Das VBA-Skript sollte in den meisten modernen Excel-Versionen (2010 und später) funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige