Excel VBA Lecture seule ou pas

Signaler
Messages postés
15
Date d'inscription
jeudi 29 mai 2003
Statut
Membre
Dernière intervention
17 mai 2004
-
Messages postés
15
Date d'inscription
jeudi 29 mai 2003
Statut
Membre
Dernière intervention
17 mai 2004
-
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-)
A voir également:

3 réponses

Messages postés
15
Date d'inscription
jeudi 29 mai 2003
Statut
Membre
Dernière intervention
17 mai 2004
2
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 127 internautes nous ont dit merci ce mois-ci

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
26
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
Messages postés
15
Date d'inscription
jeudi 29 mai 2003
Statut
Membre
Dernière intervention
17 mai 2004
2
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-)