lecture seule et renregistrement

[Esox]

Bonjour le forum,

voilà j'ai un fichier qui 'souvre automatiquement en lecture seule via macro dans le workbook open.
apres, j'ai des possiblités de s'identifier, qui passe en écriture, plus modif, etc... et dans le workbook close, une macro qui me reblinde le tout avant fermeture.

Je souhaiterai, quand l'utilisateur n'est que visiteur, donc ne s'identifie pas, donc reste en lecture seule, ne plus avoir le message "voulez vous enregistrer les modifs" lors de la fermeture du fichier.

Auriez vous une piste ? merci

Stef.

 

[Softmama]

Re : lecture seule et renregistrement

Bonjour

ActiveWorkbook.Close False

devrait résoudre ton problème.

 

[Fred0o]

Re : lecture seule et renregistrement

Bonsoir Esox,

Pour cela, il te faut mettre l'instruction suivante :

ActiveWorkbook.Close SaveChanges:=False

A+

 

[Esox]

Re : lecture seule et renregistrement

Bonjour,
Effectivement mais en fait comment faire ceci :

si fichier lecture seule alors fermeture sans enregistrer
sinon exécuter mes lignes de "reblindage" du fichier

merci,

 

[Softmama]

Re : lecture seule et renregistrement

Re,

Ben comme tu le dis, tout simplement :

If activeWorkbook.Readonly then ActiveWorkbook.Close False

 

[Esox]

Re : lecture seule et renregistrement

Et après je continue par un ELSE et tout mon blabla derrière ??

 

[Softmama]

Re : lecture seule et renregistrement

Re,

Ben après tu continues ton blabla sans besoin du Else, vue que le fichier sera fermé dans le cas où a condition est vérifiée !

 

[Esox]

Re : lecture seule et renregistrement

Re,
Ok merci, je vais bien finir par acquérir cette gymnastique cérébrale qui me manque...
encore merci...

 

[Staple1600]

Re : lecture seule et renregistrement

Bonsoir à tous


En complément des messages précédents

Private Sub Workbook_Open()
MsgBox "Pour test"
ActiveWorkbook.Close IIf(ActiveWorkbook.ReadOnly, False, True)
End Sub