Tracciabilità File excel

[Omocaig]

Buongiorno, ho il sospetto che un ex dipendente abbia in qualche modo rubato il file excel contenente i dati della clientela dell'azienda. Ovviamente, se avesse scattato una foto con il cellulare non potrei mai sapere se il file è stato copiato, però non sono a conoscenza di un modo per capire se il documento è stato copiato in una chiavetta di recente oppure inviato via mail tramite il browser. Potete aiutarmi ?

Saluti, Giacomo.

[alfrimpa]

Ciao Giacomo

Non so se ti può essere utile ma questa macro (trovata in rete) fa la scansione di una cartella inserita in F1 e nelle colonne A/D ti dà nome file, DATA MODIFICA, dimensione file e autore ultima modifica.

Codice: Seleziona tutto

Sub GetAllFileInfo()
  LoadFileInfoFromDir (Range("F1").Value)
End Sub


Private Sub LoadFileInfoFromDir(ByVal pvDir)
Dim vFile, vProp
Dim fso
Dim oFolder, oFile, oFold, oShell
Dim sAuthor As String


On Error GoTo errImp
If Right(pvDir, 1) <> "\" Then pvDir = pvDir & "\"


Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(pvDir)
Set oShell = CreateObject("Shell.Application")
Set oFold = oShell.Namespace(pvDir)


Range("a1").Value = "FILE"
Range("B1").Value = "MOD DATE"
Range("C1").Value = "FILE SIZE"
Range("D1").Value = "LAST AUTHOR"


Range("a2").Select
        'scan each file and add sheet1 to the new wb
For Each oFile In oFolder.Files
    vFile = pvDir & oFile.Name
          'load file
    If InStr(oFile.Name, ".xls") > 0 Then
        ActiveCell.Value = oFile.Name
        ActiveCell.Offset(0, 1).Value = oFile.DateLastModified
        ActiveCell.Offset(0, 2).Value = oFile.Size
               
       Workbooks.Open vFile
         sAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
       ActiveWorkbook.Close False
       ActiveCell.Offset(0, 3).Value = sAuthor
       
       ActiveCell.Offset(1, 0).Select  'next row
    End If
Next


endit:
Set fso = Nothing
Set oFile = Nothing
Set oFolder = Nothing
Set oFold = Nothing
Set oShell = Nothing
Exit Sub


errImp:
MsgBox Err.Description, vbCritical, "LoadFilesInfo():" & Err
Resume endit
Resume
End Sub

E' sufficiente lanciare la Sub GetAllFileInfo; ora io non so se il anche un semplice salvataggio viene intercettato come una modifica del file.

[Omocaig]

Grazie mille. Nel caso in cui fosse stato trasferito dall'utente senza prima aprirlo ( ipotizzando che l'utente sapesse a posteriori quale file ha trasferito ), come faccio a sapere se è stato spostato in una chiavetta ? E' necessario avere un programma installato prima forse ?

Mille grazie come sempre, G.

P.S.Sapreste consigliarmi un programma che traccia e distingue le azioni compiute sul programma ? Grazie ancora !

[alfrimpa]

Grazie mille. Nel caso in cui fosse stato trasferito dall'utente senza prima aprirlo ( ipotizzando che l'utente sapesse a posteriori quale file ha trasferito ), come faccio a sapere se è stato spostato in una chiavetta ? E' necessario avere un programma installato prima forse ?

Mille grazie come sempre, G.

P.S.Sapreste consigliarmi un programma che traccia e distingue le azioni compiute sul programma ? Grazie ancora !

Mi spiace ma non so risponderti.

A lume di naso la semplice copia di un file "non dovrebbe" causarne la sua modifica (ma è tutto da verificare).

Potresti provare creando una directory con un unico file, lo copy da qualche parte e poi lanciando la macro di cui sopra vedere cosa ti dice ma sono solo tentativi.

Personalmente non conosco programmi che facciano quello che hai detto.