Problème avec mon code workbook before save

scoubidou35

XLDnaute Occasionnel
Bonjour à tous,

J'ai besoins d'aide. Dans mon fichier en fonction du rôle de la personne elle n'a pas accès à toute les feuilles.
Dans le cas du "visiteur" il est en lecture seul et quand il ferme l'enregistrement est impossible.
J'ai donc mis dans le code dans l'userform1 un message qui alerte la personne qu'elle est en lecture seule.
Et dans workbook j'ai mis le code pour la fermeture.
Sauf que plusieurs fois aujourd'hui j'ai eu le message pour me prévenir que l'enregistrement est impossible alors que je suis sur le compte admin.
J'ai beau chercher je ne trouve pas pourquoi il me fait ca.

Pour accèder au fichier
admin 1234 (en mode admin)
demo 5678 (en mode visiteur)

Merci
A+
 

Fichiers joints

D.D.

XLDnaute Occasionnel
Bonjour

j'imagine que c'est parce que il perdait le contenu de la variable "Nuser" qui est celle qui stocke le Login.
Dans ce cas L = 0 et le
If T(L, 3) = "Visiteur" Then
passe sur le msgbox.

(du code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
)


Tu n'avais pas stoppé des macros "brutalement" auquel cas les valeurs publics sont effacées ?
 

scoubidou35

XLDnaute Occasionnel
Bonjour D.D.
Non je n'ai rien fait au niveau des macros, je travaillais sur les bases de données de mon fichier et quand j'ai voulu enregistrer, le message s'est affiché et le fichier s'est fermé (ce qui est normale en mode "visiteur") alors que j'étais sur le compte admin.
C'est pour cela que je ne comprends pas.
 

scoubidou35

XLDnaute Occasionnel
J'ai un code dans userform1 qui est similaire pour commander des ordres au lancement. Est ce que ça pourrait faire "parasite" et créer le bug de façon aléatoire ?. Y a t'il un moyen de l'éviter ?
 

Discussions similaires


Haut Bas