droit d'acces sur classeur excel et tracabilité

[laurent-faivre@club-inter]

Bonjour à vous tous, je suis infirmier dans un service de réanimation et pour faciliter les prescriptions médicales, nous avons crée un document excel.
Le pb, c'est qu'on arrive pas à créer un droit d'acces qui permettrait à chaque médecin qui inscrit une prescription d'avoir une traçabilité de ce qu'il a écrit sur une feuille annexe.
Je suis un amateur en matière de visual basic, alors j'aurais besoin d'une aide assez précise afin de finaliser ce petit logiciel.
Merci à ceux qui vondront bien me donner un coup de main. Ceci est dans l'unique but de sécuriser le traitement de nos patients.

 

[michel_m]

Re : droit d'acces sur classeur excel et tracabilité

Bonsoir Laurent,

Ci dessous un truc assez géant des Maîtres MichelXLd et _Thierry qui espionne tout ce que tu saisis dans un classeur. A placer dans le module Workbook de VBE.

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
' AUTEUR: MichelXLD adapté de :
'@+Thierry
'http://www.excel-downloads.com/html/French/forum/messages/1_74783_74783.htm
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String, ThePath
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
ThePath = "C:\Spy.txt" ' à adapter au réseau

Spy = _
Format(Now, "DD/MM/YYYY HH MM SS") & vbTab & _
"User Name : " & UserName & vbTab & _
Sh.Name & vbTab & Target.Address & vbTab & Target.Cells(1, 1)
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

Quant à l'accès, il faudrait + de renseignements:
Chaque Toubib a t il un ordi (on peut rêver) avec son identifiant ?
sinon, si le classeur et/ou l'ordi restent ouverts , il faudra trouver une astuce pour que le toubib soit identifié sans risque de confusion

bonne soirée