Attribut "Schreibgeschützt" ändern

Bild

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

Bild


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 ) ;)


Bild


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


Bild


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


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " zählen:rote,nicht gefilterte"