fichier ouvre avec formulaire "Userform" mais n'indique pas s'il est déjà ouvert

sirbeetee · 24 Février 2017

j'ai ce ficher qui est utilisé depuis 2 ans et il se comporte très bien

mais maintenant je dois donner accès à ce fichier à 200 usagés. je viens de me rendre compte que si je l'ouvre alors qu'il est déjà ouvert, j'aurai un message de lecture seul seulement quand je vais tenter un enregistrement, et non à l'ouverture, alors que je viens d'y inscrire 125 lignes de data !

ce fichier n'est pas partagé pourtant

Dranreb · 24 Février 2017

Bonsoir.
C'est sûr à votre place j'ajouterais cette sécurité :

VB:

Private Sub Workbook_Open()
If Me.ReadOnly Then MsgBox "Déjà ouvert ailleurs…", vbExclamation, "Ouverture " & Me.Name: Exit Sub
UF_saisie_audit.Show
End Sub

sirbeetee · 24 Février 2017

excellent merci !

je viens de trouver mon problème !

les autres utilisateurs n'ont pas eu les bons accès, ils sont en lecture seul donc le fichier ouvre même sans le message d'origine "lecture seul"

je garde ton code, il me sera pratique, merci encore

fichier ouvre avec formulaire "Userform" mais n'indique pas s'il est déjà ouvert

sirbeetee

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

sirbeetee

XLDnaute Nouveau

Discussions similaires