Ouverture Fichier excel partagé par mot de passe

Question

Bonjour,
j'ai fait un fichier excel (.xlsm) et je veux le partager entre plusieurs utilisateurs dont chacun à son propre mot de passe qui lui permet d'accèder à certaines feuilles pour simplifier et y saisir et consulter des informations.
pour le mot de passe j'ai ce code (avec un formulaire):

Option Explicit
Private Sub Annuler_Click()
Application.Quit
End Sub
Private Sub Valider_Click()
Const MotDePasse = "yyy"
Select Case Password.Value
    Case MotDePasse
      Password.Value = ""
      Unload Acces
      Workbooks("____.xls").Sheets("1").Visible = True
      Workbooks("____.xls").Sheets("2").Visible = False
      Sheets("1").Select
      Application.DisplayFullScreen = True
    Case Else
      MsgBox "Mot de passe incorrect", vbExclamation
      Password.Value = ""
      Password.SetFocus
End Select
End Sub
Private Sub Password_Change()
Password.PasswordChar = "*"
End Sub
Private Sub UserForm_Activate()
Acces.ActiveControl = False
Password.Value = ""
End Sub

je veux généraliser ce code pour plusieurs utilisateurs et que le Formulaire se lance dès que je clique sur le nom du classeur sur le bureau ou dans le dossier de partage.
Merci d'avance de répondre.
Cordialement.

Saarbel · Answer

C'est urgent!!! prière quelqu'un répond!?

Ouverture Fichier excel partagé par mot de passe

1 réponse

Votre réponse

Discussions similaires