Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Dateien im Ordner schützen

Forumthread: Alle Dateien im Ordner schützen

Alle Dateien im Ordner schützen
04.01.2021 16:19:26
Ulrich
Hallo Zusammen,
ich habe eine Frage.
Ich möchte über ein Makro alle Dateien (xlsx) im aktuellen Ordner sowie Unterordner mit einem Schreibschutz versehen.
(Gesperrte sowie nicht gesperrte Zellen)
Die folgende Beispieldatei habe ich gefunden, ich weiss nicht ob der Code läuft, da er nicht mit 64 bit kompatibel ist.
Optional wäre es gut, wenn das Passwort aus Zelle S7 entnommen würde.
Kann mir hier einer helfen?
Vielen Dank vorab.
Gruß Ulli
https://www.herber.de/bbs/user/142746.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien im Ordner schützen
04.01.2021 17:20:31
Nepumuk
Hallo Ulli,
ich habe dir den Code eingebaut der sowohl in 32- als auch in 64Bit läuft.
https://www.herber.de/bbs/user/142748.xlsm
Den Pfad in den Prozeduren SchutzAn und SchutzAus sowie das Kennwort in Zelle S7 musst du noch anpassen.
Gruß
Nepumuk
Anzeige
AW: Alle Dateien im Ordner schützen
04.01.2021 17:41:32
Ulrich
Hallo Nepumuk,
der Code funktioniert, super.
Jetzt habe ich noch das Problem, dass nicht gesperrten Zellen nicht geschützt sind (Dort ist ja auch das Häkchen gesetzt)
Wäre es möglich das die nicht gesperrten Zellen auch geschützt werden?
Und das er immer den aktuellen Pfad nimmt?
Danke für deine Hilfe
Gruß Ulli
Anzeige
AW: Alle Dateien im Ordner schützen
04.01.2021 17:53:23
Nepumuk
Hallo Ulli,
füge nach:
objSH.Protect Password
folgende Zeile ein:
objSH.EnableSelection = xlNoSelection
Gruß
Nepumuk
AW: Alle Dateien im Ordner schützen
04.01.2021 18:08:09
Ulrich
Hallo Nepumuk,
einwandfrei! Klasse.
Ist es noch mit wenig Aufwand möglich zu hinterlegen, das immer der aktuelle Pfad genommen werden soll?
Gruß Ulli
Anzeige
AW: Alle Dateien im Ordner schützen
04.01.2021 18:11:42
Nepumuk
Hallo Ulli,
ersetze in den Aufrufen "E:\Forum" durch ThisWorkbook.Path
Gruß
Nepumuk
AW: Alle Dateien im Ordner schützen
04.01.2021 18:24:06
Ulrich
Hallo Nepumuk,
läuft super!!
Danke für deine großartige Hilfe!
Gruß Ulli
;

Forumthreads zu verwandten Themen

Suche Code zum umbenennen von Dateien
Dateien

Hallo,
ich suche reinen VBcode um die Dateien aus einem Ordner nach dem Dateierstelldatum umzubenennen. Und alles über UserForm ohne sheets.
Hat jemand das schon mal gemacht?
Viele Grüße aus dem mal sonnigen Hamburg
Ray
23.10.2008 15:59:58
Thread-ID: 1018718
6 Beiträge
Umbenennen von Windows-Ordnern aus VBA
Windows-Ordnern

Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher ni...
07.04.2009 13:21:31
Thread-ID: 1067383
8 Beiträge
Anzeige
Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
BENNY
Hallo,
habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.
Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
13.01.2010 14:52:54
Thread-ID: 1129510
5 Beiträge
Ordnerpfad auflisten bestimmter Dateien
Andre´

Hallo alle zusammen,
kennt jemand eine Möglichkeit,
den Ordnerpfad in einer Exceltabelle aufzulisten mit entsprechenden Link
für alle Dateien mit der Endung xls.
Versteckt Dateien sollen auch mit angezeigt werden.

Das ganze soll auch unter Excel 2007 funktionieren.
19.05.2010 08:04:49
Thread-ID: 1157751
3 Beiträge
Anzeige
Umbenennen von Dateien in einem Ordner
Dateien

Hallo,
ich habe folgende Frage:
Ich nutze Excel 2007.
Ich habe einen Ordner mit über 100 Excel-Dateien. Diese sollen so umbenannt werden, daß an den vorhandenen und unterschiedlich langen Dateinamen vier Buchstaben angehangen werden sollen.
Gibt es eine Möglichkeit dieses zu aut...
04.06.2010 13:20:53
Thread-ID: 1160328
4 Beiträge
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Dateien im Ordner unbenennen
bruno

Hallo zusammen
Ich habe einen Ordner, in dem eine Variable Anzahl von pdf-Dateien sind. Kann ich mit einem Macro alle Dateien unbennenen? (unter unbenennen meine ich in diesem Fall, den alten Namen verkürzen auf die ersten 14 Zeichen)
Gruess ond Danke
de Bruno
27.10.2010 13:19:04
Thread-ID: 1184116
5 Beiträge
Auswertung aller Dateien in einem Ordner
Joerg.Kaiser1@web.de

Hallo
Habe eine Datei mit folgendem Aufbau:
---- A------B-----------------C----
1-----------------------------------
2-----------------------------------
3-----------------------------------
4--------Drehen---------Schmidt
5--------Fräsen----------Schulze
6------...
13.12.2011 07:22:59
Thread-ID: 1241758
14 Beiträge
Dateien im Ordner mit Exceldatei vergleichen
Sandra

Hallo,
Wie kann ich am einfachsten mit Excel die in einem Ordner gespeicherten Dateinamen mit Dateinamen vergleichen, die in einer Exceldatei sind? Als Ergebnis soll die nicht vorhandenen Dateien ausgegeben werden.Danke im voraus,
sandra

13.06.2002 09:43:18
Thread-ID: 128302
2 Beiträge
Anzeige
Kopieren&umbenennen von Dateien mit VBA
Dateien

Moin,
verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject v0 = "c:\prog\testfiles" TNetzCopy "\\pc1\i1\*T ", v0, "1" und dann weiter mit der SUB Private Sub TNetzCopy(QuellPC As...
02.09.2013 08:49:00
Thread-ID: 1329147
2 Beiträge
vba aus mehreren Dateien Range zusammenfügen
Dani

Hallo zusammen,
ich bin leider kein vba-Profi und bitte euch um eure Hilfe.
Für mein Praktikum muss ich ein Makro programmieren.
Per Button soll aus beliebig vielen Excel Files die sich in einem bestimmten Ordner befinden der gleiche Range ausgelesen werden und in einer neuen Datei...
30.09.2013 16:03:28
Thread-ID: 1332678
3 Beiträge
VBA: Formel auslesen und verändern
Sabine

Hallo Profis,
ich habe in Zelle P7 folgende Formel: =[RWH 2013-01.xls]Jahreswerte'!$O$20
Ich würde gerne mittels VBA die 01 in meiner Formel um jeweils 1 erhöhen.
Ergebnis soll dann sein: =[RWH 2013-02.xls]Jahreswerte'!$O$20, beim nächsten Durchlauf
=[RWH 2013-03.xls]Jahreswert...
17.02.2014 12:26:41
Thread-ID: 1349972
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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