Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Dateien im Ordner schützen

alle Dateien im Ordner schützen
27.08.2004 11:07:57
Horst
Hallo nette Leute vom Forum,
benötige Hilfe:
Frage 1:
Habe kleines Programm, möchte jedoch noch ein makroeinbinden, das beim verlassen der Anwendung alle Dateien in einem best. Ordner c:\mein Ordner\*xls dann schreibschützt. Wie müßte so ein Makro aussehen? Könnte mir jemand so etwas zeigen?
Frage 2:
Wie muß ein Makro aussehen, damit aus diesem Ordner c:\mein Ordner\yyyymmdd.xls die neueste Datei herausgesucht wird, diese kopiert wird in den Ordner c:\meine Arbeit\ , diese dann öffnen, ein makro10 einbinden und schließen. Dies (muss offen und aktiv bleiben) sollte als Makro in eine bestehende Mappe eingefügt werden. Wie realisiert man das am besten. Kann mir jemand helfen?
Danke.
Horst

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

Betreff
Datum
Anwender
Anzeige
AW: alle Dateien im Ordner schützen
OttoH
HAllo Horst,
folgendes Programm schützt alle Dateien im Pfad

Sub Schreibschutz()
Dim a As String
a = Shell("c:\windows\system32\attrib c:\mein Ordner\*.xls +r", vbNormalFocus)
End Sub

Du mußt evtl. den Pfad für attrib anders setzen. Suche mal im Explorer die Datei Attrib.* und trage den Pfad ein.
Gruß OttoH
AW: alle Dateien im Ordner schützen
27.08.2004 11:42:17
Horst
Hallo Otto,
Danke. Habe gleich ausprobiert, DosFenster öffnetesich und schloss, aber im Ornder auf dem Netzwerkpfad sind die Attribute noch auf A. Woran kann das liegen?

Sub Schreibschutz()
Dim a As String
a = Shell("c:\Winnt\system32\attrib F:\AOs\main\


Sub day sap\*.xls +r", vbNormalFocus)
End Sub



Schau doch bitte einmal.

Gruß

Horst
Anzeige
AW: alle Dateien im Ordner schützen
OttoH
Hallo Horst,
scheint wohl ein kleiner Bug drin zu sein; ich weiß nur nicht welcher.
Versuche doch mal folgende Alternative:

Sub Schreibschutz()
SetAttr "C:\mein ordner\xyz.xls", vbReadOnly
End Sub

Dieser Befehl funktioniert aber nur für eine einzelne Datei, die mit vollem Namen angegeben werden muss. Die Dateien des Verzeichnisses müssen also alle in einer Schleife mit dir eingelesen werden und dann mit SETATTR bearbeitet werden.
Gruß OttoH
AW: alle Dateien im Ordner schützen Nachtrag
OttoH
so müsste es klappen:

Sub Schreibschutz_für_alle()
Const Pfad As String = "c:\murks\"
Dim Dateiname As String
Dateiname = Dir(Pfad & "*.xls")
Do While Dateiname <> ""
SetAttr Pfad & Dateiname, vbReadOnly
Dateiname = Dir
Loop
End Sub

Ändere lediglich den Pfad auf Deine Belange ab.
Gruß OttoH
Anzeige
AW: alle Dateien im Ordner schützen Nachtrag
30.08.2004 11:51:22
Horst
Hallo Otto,
die letzte Lösung (alle Dateien) funktioniert prima. Steht jetzt fein überall "R" drin. Ich danke dir!
Noch eine Frage: weißt du, wie man mittels VB ein komplettes Verzeichnis mit Dateien kopieren/sichern kann? Ist es möglich, einschl. der offenen Mappe? mit filecopy kann ich nur einzeln, möchte aber ein komplettes Verzeichnis auf einer anderen Festplatte sichern, einschl. der aktiven Mappe. Wie realisiert man das am besten? Ich kann das noch nicht schreiben. Hättest du da etwas für mich? Wäre prima!
Gruß
Horst

152 Forumthreads zu ähnlichen 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
Anzeige
Dateien im aktuellen Ordner auslesen
Mister

Hallo und guten morgen,
vor langer Zeit habe ich folgendes Makro aus dem Forum das die Dateien im angegebenen Ordner ausliest und in der Tabelle "PDF" auflistet. Wie muss ich das Makro ändern damit die Dateien aufgelistet werden die sich im gleichen Ordner befinden wie die Datei die das Ma...
24.09.2009 10:20:27
Thread-ID: 1105169
3 Beiträge
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
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
VBA: mehrere Dateien nacheinander einlesen
H.Benitz

Hallo,
da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.
Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!
Das Ziel ist:
Es sollen aus einem vom Anwender vorgegeb...
06.12.2012 11:06:13
Thread-ID: 1289572
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
2
4
2
3
22
4
13
2
1
1
2
3
5
2
1
1
1
7
1
2
1
4
3