VBA Excel Message : Lecture seule
sion2200
-
mrlargo -
mrlargo -
Bonjour,
J'ai un fichier excel utilisé par beaucoup de monde et je voudrais que lorsque 2 personnes se connectent en même temps sur ce fichier, le dernier a s'être connecté puisse ouvrir automatiquement le fichier en lecture seule.
En faite, le dernier utilisateur a un message que je ne veux plus voir apparaître : "Ce fichier est en cours d'utilisation" avec un choix pour lecture seule ou notification...
Je voudrais enlever ce message !
J'ai déjà essayé avec Displayalert = false mais ça ne marche pas !
Attention, je ne veux pas que le fichier soit toujours en lecture mais juste enlever le message d'alerte !
Quelqu'un a une solution a me proposer ?
J'ai un fichier excel utilisé par beaucoup de monde et je voudrais que lorsque 2 personnes se connectent en même temps sur ce fichier, le dernier a s'être connecté puisse ouvrir automatiquement le fichier en lecture seule.
En faite, le dernier utilisateur a un message que je ne veux plus voir apparaître : "Ce fichier est en cours d'utilisation" avec un choix pour lecture seule ou notification...
Je voudrais enlever ce message !
J'ai déjà essayé avec Displayalert = false mais ça ne marche pas !
Attention, je ne veux pas que le fichier soit toujours en lecture mais juste enlever le message d'alerte !
Quelqu'un a une solution a me proposer ?
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Je remonte ce message parce que je n'ai toujours pas trouver de réponse !!
Quelqu'un a une idée ?
Merci d'avance -
Bonjour
Je crois avoir la solution à ce problème:
à l'ouverture du classeur, mettre le paramètre notify à false, ce qui évite le test de la notification.
Reste alors juste le message "voulez vous ouvrir en lecture seule", message que l'on peut faire disparaitre avec displayalerts = false
J'avais besoin en plus de traiter le fichier différemment selon que son ouverture est en lecture seule ou pas. J'utilise alors la propriété ReadOnly du classeur
le code ressemble à cela :
DisplayAlerts = False
Workbooks.Open RepertoireFichier, notify:=False
DisplayAlerts = True
if Activeworkbook.ReadOnly =true then
'traitement si lecture seule
else
'traitement si lecture/ecriture
end if
