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

Schreibschutz einer Datei per VBA löschen

Forumthread: Schreibschutz einer Datei per VBA löschen

Schreibschutz einer Datei per VBA löschen
08.04.2004 16:58:03
Florian Meyer
Hallo,
über einen Download verteile ich ein umfangreiches Excel-Sheet an registrierte Nutzer unserer Firma.
Nach dem Setup startet der Nutzer das Sheet, um es für die zukünftige Verwendung durch ein Kennwort freizuschalten. Durch die Kennworteingabe werden über Select Case die Adreßdaten des Nutzers (im Sinne einer Visitenkarte - Name, Anschrift, Telefonnummer) in der Vorlage hinterlegt und diese dann gespeichert, so dass der Anwender zukünftig eine personalisierte .xlt-Datei hat.
Problem: Sämtliche Dateien im Zip-Ordner sind nach der Installation schreibgeschützt, wohl durch den Download oder meinen Upload. Jetzt möchte ich der Installationsroutine eine Funktion hinzufügen, die das Windows-Datei-Merkmal "Schreibgeschützt" in False ändert.
Da gibt es doch bestimmt eine wsh-Methode oder etwas ähnliches. Wie kann ich das anstellen?
Vielen Dank im voraus, angenehmen Nachmittag und schönes Osterfest wünscht
Florian aus Berlin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreibschutz einer Datei per VBA löschen
08.04.2004 17:01:27
Nepumuk
Hallo Florian,
Beispiel:


Public Sub Schreibschutz_loeschen()
    Dim myFsyObjekt As Object, myFObjekt As Object, intIndex As Long
    Set myFsyObjekt = CreateObject("Scripting.FileSystemObject")
    With Application.FileSearch
        .LookIn = "D:\Eigene Dateien\Eigene Tabellen\"
        .Filename = "*.*"
        .Execute
        For intIndex = 1 To .FoundFiles.Count
            Set myFObjekt = myFsyObjekt.GetFile(.FoundFiles(intIndex))
            If myFObjekt.Attributes And Then myFObjekt.Attributes = myFObjekt.Attributes - 1
        Next
    End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Nepumuk
Anzeige
Super geilst! Die schnellste Antwort in Mexico!
08.04.2004 17:05:23
Florian Meyer
Ich hab's noch nicht ausprobiert - so schnell bin ich nun wiedr nicht - aber schon einmal ein RIESENGROSSE DDDAAANNNKKKEEE!
Florian
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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