{"id":406,"date":"2005-11-09T19:30:10","date_gmt":"2005-11-09T17:30:10","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2005\/11\/09\/have-fun-with-excel-log-accesses-to-a-file\/"},"modified":"2007-05-08T16:09:33","modified_gmt":"2007-05-08T14:09:33","slug":"have-fun-with-excel-log-accesses-to-a-file","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2005\/11\/have-fun-with-excel-log-accesses-to-a-file\/","title":{"rendered":"Have Fun with Excel : Log Accesses to a File"},"content":{"rendered":"

At work, colleagues and I are working on network shared directories. Just like everybody else I guess : you have a personal directory bound to your login username, and you are granted access to various shared directories where various people also have read \/ write permissions.<\/p>\n

I've been doing some fun experiment these past few days at work : creating an Excel document with an appealing name (say, "salary_augmentation.xls<\/em>", burried deep into "Confidential\\HR\\Budget\\<\/em>") and silently logging usernames everytime someone loads this file.<\/p>\n

Here is how I did this :
\n<\/p>\n

Create a silly file<\/h2>\n

That's the easy step : create a file with a name so sexy that you're sure anyone seeing it will compulsively double-click it everytime they spot it. Any filename related to human resources and budget will surely trawl some fishes.<\/p>\n

Then add some irrelevant content. A flashy red box reading something like "Did you really think I was going to tell you something secret" will do the job : you don't need more than people going "pfff moron" and closing the file.<\/p>\n

Add the following Visual Basic<\/h2>\n

Add the following Visual Basic code to your excel document (the menu should be something like Tools \/ Macro \/ Visual Basic Editor)<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
vb<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. Private<\/span> Sub<\/span> Workbook_Open()<\/div><\/li>\n
  2.  <\/div><\/li>\n
  3.     Dim<\/span> filenum As<\/span> Integer<\/span><\/div><\/li>\n
  4.     Dim<\/span> i As<\/span> Integer<\/span><\/div><\/li>\n
  5.     Dim<\/span> fic As<\/span> String<\/span><\/div><\/li>\n
  6.     <\/div><\/li>\n
  7.     filenum = FreeFile<\/div><\/li>\n
  8.         '\/\/ Get a free file number<\/span><\/div><\/li>\n
  9.     <\/div><\/li>\n
  10.     logfile = "Z:\/path-to\/non-appealing\/directory\/sql.log"<\/span><\/div><\/li>\n
  11.         '\/\/ A text file located and named so that it won't be looked at<\/span><\/div><\/li>\n
  12.     <\/div><\/li>\n
  13.     Open<\/span> logfile For<\/span> Append As<\/span> filenum<\/div><\/li>\n
  14.         '\/\/ open the file<\/span><\/div><\/li>\n
  15.     Print<\/span> #filenum, Environ("UserName"<\/span>) & Chr(13)<\/div><\/li>\n
  16.         '\/\/ write username to the file<\/span><\/div><\/li>\n
  17.     Close<\/span> filenum<\/div><\/li>\n
  18.         '\/\/ Close the file<\/span><\/div><\/li>\n
  19.  <\/div><\/li>\n
  20. End<\/span> Sub<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n

    Be sure to add this macro code to your Excel document and not in your personal Macros (perso.xls<\/em>). To do so, add the Visual Basic code to ThisWorkBook<\/em> of your current document.<\/p>\n

    Create a log text file<\/h2>\n

    Create a blank text file, named and located so that it won't be interesting. Something like sql.log<\/em> in the most boring directory you'll find. Modify the code above so that logfile<\/strong> points to this file.<\/p>\n

    Even better, make this file hidden if possible (right click, Properties, check "Hidden file")<\/p>\n

    Wait.<\/h2>\n

    From now on, everytime someone loads your sexy Excel document, their username will be appended to your log file. Just check back from time to time and just be amazed by the number of employees who just seem to wander from directory to directory, looking for stuff that are normally not of their business :-)<\/p>\n","protected":false},"excerpt":{"rendered":"

    Curious about who's looking into your Excel documents ?<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,120,87,121,102],"class_list":["post-406","post","type-post","status-publish","format-standard","hentry","tag-code","tag-excel","tag-microsoft","tag-visual-basic","tag-work"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/406","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=406"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/406\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=406"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=406"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=406"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}