Eviter une condition macro en Lecture seule

**NulenExcel77** · 04/11/2011, 12h56

Bonjour à tous,

J'ai grâce à votre aide mis en place un fichier Excel de suivi affaire( étape par étape) .Les Opérateurs y insèrent leur nom puis check lorsque la tache est terminée pour ainsi avoir le temps production.

Il y a entre autre une macro condition qui empêche les utilisateurs de sortir du fichier sans avoir renseignés une certaine cellule ( Qté effectués ).

Ces feuilles suivi sont donc en réseau et il m'arrive de vouloir suivre une affaire en ouvrant certaines feuilles en "Lecture seul", seulement voilà je suis souvent soumis à l'obligation de la macro citée plus haut.

Comment puis je modifier ma macro pour qu'elle ne tienne pas compte de la lecture seul??

Cordialement

**Jean-Pierre49** · 04/11/2011, 13h10

Bonjour,

Pour un problème similaire, et ne me servant que de mon PC, je me suis basé sur mon login
Ainsi avant le code pour faire valider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Environ("username")= "JPC" Then exit sub

A adapter bien sur

Cordialement

**NulenExcel77** · 04/11/2011, 13h17

RE bonjour,

C'est idiot de ma part ,mais en farfouillant j'ai peut être une solution, mais je suis chez moi et je ne peut pas tester en lecture seul.
Est ce que quelqu’un peut me dire si je suis dans la bonne voie.

Voici ce que j'ai ajouté en début du code condition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Beforeclose(Cancel As Boolean)
If ThisWorkbook.ReadOnly = True Then
  Exit Sub
    End If

@ bientôt

Bonjour Jean-Pierre49,

Merci pour ta réponse rapide, il me reste plus qu'à tester ces 2 possibilités.
J'avais pas pensé à ta soluce, encore merci à toi.

Je test et je reviens pour conclure le Topic

**Jean-Pierre49** · 04/11/2011, 13h20

En faisant F1 sur ReadOnly

Cette propriété a la valeur True si l'objet a été ouvert en lecture seule. Type de données Boolean en lecture seule.

Cette propriété s'utilise uniquement pour les listes liées à un site SharePoint.

Donc à voir
cordialement