Application.Quit ne fonctionne pas sur fichier en lecture seule

Bonsoir à tous,

J'utilise souvent un code de sauvegarde à la fermeture de mon classeur qui teste le nombre de Workbooks ouverts avant de quitter. Il sauvegarde et ferme juste le classeur utilisé si j'ai d'autres Workbooks actifs sinon il sauvegarde, ferme le classeur et quitte complètement Excel. Cela fonctionne toujours bien.

Ici j'ai ajouté une petit macro à l'ouverture, demandant si je veux ouvrir le fichier en lecture seule ou pas. Du coup j'ai modifié légèrement le code, le fichier à la fermeture teste la lecture seule. Si je suis en écriture il sauvegarde et quitte, si je suis en lecture seule, il ne demande pas la sauvegarde, il lance son test Workbooks, et là il ne ferme pas Excel... Je pense donc que la lecture seule embête le monde, auriez-vous une idée ?

Bonjour,

Supprimer le premier: Me.Close False

ce qui donne:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.ReadOnly Then
        If Workbooks.Count = 1 Then
            Application.DisplayAlerts = False
            Application.Quit
        Else
            Application.Visible = True
            Me.Close False
        End If
    Else
        Me.Save
    End If
End Sub

et là, Excel est bien fermé.

Cdlt

Mince c'était juste cela...

Merci cela fonctionne bien