Excel VBA Lecture seule ou pas

Question

Bonjour à tous,

A la fermeture d'un classeur, j'ai fait une ligne de code pour que celui ci s'enregistre automatiquement (afin d'éviter les messages), mais quand le classeur est ouvert en lecture seule, je voudrais que celui ci soit fermé sans s'enregistrer (Pour éviter le message " Le classeur existe déja, voulez vous enregistrer une copie...")

Merci à tous pour l'aide que vous m'apportez.

 8-)

daffy21 · Accepted Answer

Solution trouvé à mon problème:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveWorkbook.ReadOnly Then
ThisWorkbook.Saved = True
Else
ThisWorkbook.Save
End If
End Sub

nhervagault · Answer

Public Sub essai()
    Dim fso  As New FileSystemObject
    Dim f As File
    Set f = fso.GetFile(Me.Application.ActiveWorkbook.FullName)
     
     Select Case f.Attributes
     Case 1, 3, 5, 33, 35, 129
        MsgBox "RO"
     Case Else
        MsgBox "not ro"
    End Select
     
End Sub
'Constante  Valeur   Description
'Normal   0     Fichier normal.  Aucun attribut n'est défini.
'ReadOnly   1   Fichier en lecture seule. L'attribut est en lecture/écriture.
'Hidden   2    Fichier caché. L'attribut est en lecture/écriture.
'System   4   Fichier système. L'attribut est en lecture/écriture.
'Volume  8   Étiquette de volume de lecteur de disque. L'attribut est en lecture seule.
'Directory  16   Dossier ou répertoire. L'attribut est en lecture seule.
'Archive   32  Le fichier a été modifié depuis la dernière sauvegarde. L'attribut est en lecture/écriture.
'Alias   64   Lien ou raccourci. L'attribut est en lecture seule.
'Compressed   128   Fichier compressé. L'attribut est en lecture seule.

Un peu t'aide dans ta recherche

daffy21 · Answer

Merci pour la soluce apporté.
Mais ne fonctionne pas sous VBA
J'ai peut être oublié de préciser que je travaille sous Excel VBA
Merci à tous pour l'aide que vous m'apportez.

 8-)

Excel VBA Lecture seule ou pas

3 réponses

Discussions similaires