Attribut "Schreibgeschützt" ändern

• Attribut "Schreibgeschützt" ändern von Carsten vom 08.12.2003 15:33:44
  • AW: Attribut "Schreibgeschützt" ändern - von Tom am 08.12.2003 15:45:00
    • AW: Attribut "Schreibgeschützt" ändern - von Carsten am 08.12.2003 16:09:15
      • AW: Attribut "Schreibgeschützt" ändern - von K.Rola am 08.12.2003 16:14:36
        • AW: Attribut "Schreibgeschützt" ändern - von Carsten am 09.12.2003 07:23:24

Betrifft: Attribut "Schreibgeschützt" ändern
von: Carsten
Geschrieben am: 08.12.2003 15:33:44
Hallo zusammen,

wenn ich eine Excel-Datei von einer CD auf die Platte kopiere bleibt das Attribut "Schreibgeschützt" erhalten. Dies läßt sich auch in Excel durch den Button "Schreibschutz ein/aus" nicht ändern.
Wie kann ich die Datei trotzdem speichern ohne ihr einen neuen Namen zu geben?

Gruß
Carsten

Betrifft: AW: Attribut "Schreibgeschützt" ändern
von: Tom
Geschrieben am: 08.12.2003 15:45:00
den schreibschutz mit dem explorer nach dem kopieren wegmachen. ( rechtklick auf datei und dann eigenschaften und haken bei schreibschutz weg ) ;)

Betrifft: AW: Attribut "Schreibgeschützt" ändern
von: Carsten
Geschrieben am: 08.12.2003 16:09:15
Hallo Tom,

danke für den Tip. Darauf bin ich selbst auch schon gekommen.
Ich suche eher nach einer VBA-Lösung.

Trotzdem danke

Gruß
Carsten

Betrifft: AW: Attribut "Schreibgeschützt" ändern
von: K.Rola
Geschrieben am: 08.12.2003 16:14:36
Hallo,

Option Explicit

Sub Attribut_normal()
Dim i As Long
With Application.FileSearch
.LookIn = "C:\tmp\"
.FileType = 1
.FileName = "*.*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
SetAttr .FoundFiles(i), 0
Next
End If
End With
End Sub

Gruß K.Rola

Betrifft: AW: Attribut "Schreibgeschützt" ändern
von: Carsten
Geschrieben am: 09.12.2003 07:23:24
Hallo K.Rola,

hab gestern Abend noch eine andere Lösung gefunden. Trotzdem vielen Dank für Deine Mühe.

Gruß
Carsten