Supprimer les classeurs ouverts

Bonjour , j'ai trouvé un code que je voudrais modifier afin de supprimer les classeurs au lieu des les fermer.

J'ai essayé " Kill " mais cela ne fonctionne pas ! Pouvez vous m'aider ?

Sub Ferm_Fichiers()
    Dim i As Integer, j As Integer
    Dim TabFichier() As String
    j = Workbooks.Count 'Nombre de fichiers
    ReDim TabFichier(j)
    For i = 1 To j
        'nom des fichiers dans le tableau
        TabFichier(i) = Workbooks(i).Name
    Next i
    'fermeture des fichiers
    For i = 1 To j
        If TabFichier(i) <> "ferm.xls" Then
            Workbooks(TabFichier(i)).Close ' Kill
        End If
    Next i
End Sub

Bonjour

A ma connaissance, Windows ne peut supprimer un fichier ouvert

Cordialement

Avec cette macro cela fonctionne mais pour 1 seul classeur :

Private Sub Workbook_Open()
Application.OnTime TimeValue("15:38:00"), "supclasseur"
end sub

 Sub supclasseur()
If Date = #5/24/2013# Then ' supprime le classeur le 24 mai 2013
    With ThisWorkbook
        .ChangeFileAccess xlReadOnly
        On Error Resume Next
        Kill .FullName
        .Close False
    End With
End If
End Sub