[RESOLU] : Historique d'un fichier

[MADAGASCAR]

Bonjour EXCEL DOWNLOADS
Bonjour chers membres
SVP je sollicite votre aide si vous pouvez mettre fin a ce punible fichier ..il ne me reste que ça ..
J'ai expliqué mon probleme dans l'onglet "BASE" de fichier.
Merci beaucoup d'avance pour toute suggestion
Bien cordialement
MADA BLACK

 

[Staple1600]

Re : historique d'un fichier

Bonsoir à tous

MADAGASCAR
Tu travailles du chapeau ou c'est une blague ?😕😛
Tu m'as mis un like dans ce fil
https://www.excel-downloads.com/threads/historique.20001793/
Post dans lequel j'ai mis plusieurs liens qui concerne la mise en place d'historique des modifs d'un fichier
Tu as dans ce même fil mis aussi un like au dernier post celui de JB (dans lequel il y a une PJ)

Tu as donc de quoi trouver solution ou inspiration à ta question
(qu 'il est toujours plus simple de poster dans directement dans le message)

Aussi pour bien bien finir ce fichier comment faire l'historique d'acces des
utilisateurs a ce fichier avec la date et l'heure debut et sortie .
Un tres grand plaisir de vos part de m'aider chers membres .

Cordialement
MADA BLACK

 

[BOISGONTIER]

Re : historique d'un fichier

Bonsoir,

Dans le même genre

Private Sub B_ok_Click()
  If Me.motpasse <> "" And utilisateur <> "" Then
     For i = 1 To Range("MotPasse").Count
      If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) And _
         UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
         For j = 1 To [feuille].Count
           If Range("droits").Cells(i, j) = "X" Then
              temp = Range("feuille")(j)
              Sheets(temp).Visible = True
           End If
         Next j
      End If
    Next i
  End If
  Unload Me
End Sub

JB

 

[MADAGASCAR]

Re : historique d'un fichier

Bonsoir BOISGONTIER
Oui en realité je t'ai mis "LIKE" ..car ton fichier je le trouve extraordinaire
Mais dans tous ces fichier je n'ai pas trouvé ce que je veux exactement .. j'ai trouvé dans tous ces fichier qu'on peut faire historique dont le nom qui s'affichera est le nom de "windows" tandisque moi j'ai precise dans ma combobox d'accees les noms que je veux les afficher dans page "BASE"
Merci beaucoup d'avance pour l'aide maitre
Cordialement
MADA BLCK

 

[Staple1600]

Re : historique d'un fichier

Re

MADAGASCAR
On boude?
Assez pour ne pas me saluer.
(pas très cohérent cette histoire : d'un côté tu me mets des Like de l'autre, tu ne me salues pas...🙄)
C'est moi qui ait parler des Like pas JB...

 

[MADAGASCAR]

Re : historique d'un fichier

Re

MADAGASCAR
On boude?
Assez pour ne pas me saluer.
(pas très cohérent cette histoire : d'un côté tu me mets des Like de l'autre, tu ne me salues pas...🙄)
C'est moi qui ait parler des Like pas JB...

Bonsoir Staple1600
Mes excuses en realité meme BOISGONTIER je l'ai mis "LIKE" ..
Je vous jure que j'ai pas vu votre message
J'etais trop trop presse .. j'ai pas bien concentré
Encore une deuxieme fois je suis tres tres desole ..
Cordialement
MADA BLACK

 

[BOISGONTIER]

Re : historique d'un fichier

Voir PJ

http://boisgontierjacques.free.fr/fichiers/Protection/ProtectionOngletMultiFeuillesUtilMP-2.xls

JB

 

[MADAGASCAR]

Re : historique d'un fichier

Merci BOISGONTIER
Un seul mot "BRAVO"
Oui c'est exactement ce que je veux voir et avoir
Merci 1000 fois pour ce formidable fichier et cet excellent travail et extra-codes
Merci pour votre gentillesse
Mais je suis sur et certain que j'aurai quelques petites questions pour mieux comprendre et bien manipuler ce genial fichier
Merci encore ..
Bien cordialement
MADA BLACK

 

[MADAGASCAR]

Re : [RESOLU] : Historique d'un fichier

Bonjour EXCEL DOWNLOADS
Bonjour BOISGONTIER
Je vous remercie infiniment pour votre aide et votre excellent fichier .. c'est vraiment et sans exagerer formidable travail
Simplement si vous pouvez et si vous aurez le temps bien sur de m'aider a changer dans ce meme fichier .. il me plait beaucoup ..le TextBox "utilisateur" par combobox qui affiche les utilisateurs .. avec msgbox de 3 tentatives dont sortie completement du fichier apres la troisieme.
Merci maitre BOISGONTIER pour votre gentillesse
Avec mes respects envers vous
Cordialement
MADA BLACK

 

[BOISGONTIER]

Re : [RESOLU] : Historique d'un fichier

Bonjour,

voir pj

Option Explicit
Dim NbEssai
Private Sub UserForm_Initialize()
  Me.Utilisateur.List = Sheets("admin").Range("Utilisateur").Value
  Me.MotPasse.PasswordChar = "*"
End Sub

Private Sub MotPasse_Change()
  Dim mdp As Variant, p, ok As Boolean
  p = Application.Match(Me.Utilisateur, Range("Utilisateur"), 0)
  mdp = Application.Index(Range("MotPasse"), p)
  If Not IsError(mdp) Then
    If Me.MotPasse = CStr(mdp) Then ok = True
  End If
  b_ok.BackColor = IIf(ok, &HFF00&, &HFF&)
End Sub

Private Sub b_ok_Click()
  Dim i, j, temp
  If Me.MotPasse <> "" And Me.Utilisateur <> "" Then
     NbEssai = NbEssai + 1: Me.Label10.Caption = NbEssai & " essai(s)"
     For i = 1 To Range("MotPasse").Count
       If UCase(Me.MotPasse) = UCase(Range("motpasse")(i)) And _
         UCase(Me.Utilisateur) = UCase(Range("utilisateur")(i)) Then
         For j = 1 To [feuille].Count
           If Range("droits").Cells(i, j) = "X" Then
              temp = Range("feuille")(j)
              Sheets(temp).Visible = True
           End If
         Next j
         Sheets("Espion").[M2] = Me.Utilisateur
         Unload Me: Exit Sub
       End If
      Next i
   End If
   If NbEssai > 3 Then
      MsgBox NbEssai & " essais!"
      ThisWorkbook.Close False
   End If
End Sub

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
  b_ok_Click
End Sub

JB

 

[MADAGASCAR]

Re : [RESOLU] : Historique d'un fichier

Bonsoir maitre BOISGONTIER
Je n'ai qu'a vous dire
" BRAVO "
Merci pour tous
C'est parfaitement résolu
Bien cordialement
MADA BLACK