Attribute VB_Name = "Writeprotection"
Public Function SchreibschutzEntfernen(ByVal _
  sFilename As String) As Boolean

  On Local Error Resume Next
  Attr = GetAttr(sFilename)
  If Err <> 0 Then
    'Datei nicht gefunden
    SchreibschutzEntfernen = False
  Else
    Attr = (Attr And Not vbReadOnly)
    SetAttr sFilename, Attr
    DoEvents

    'Prüfen, ob Schreibschutz entfernt
    Attr = GetAttr(sFilename)
    SchreibschutzEntfernen = Not (Attr And vbReadOnly)
  End If
  On Local Error GoTo 0
End Function