Condividi:        

Tracciabilità File excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Tracciabilità File excel

Postdi Omocaig » 21/06/17 13:41

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.
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: Tracciabilità File excel

Postdi alfrimpa » 21/06/17 15:36

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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Tracciabilità File excel

Postdi Omocaig » 22/06/17 09:53

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 !
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Re: Tracciabilità File excel

Postdi alfrimpa » 22/06/17 11:19

Omocaig ha scritto: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.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli


Torna a Applicazioni Office Windows


Topic correlati a "Tracciabilità File excel":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti

cron