Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify User, Copy/Paste Login Info. to File on C:\
I originally posted this a few days ago and got only one response, which
although helpful, didn't allow me to do what I was hoping to do. Im wondering if there is a way to create a private sub to identify someone who has opened a spreadsheet, by the windows login ID, and also get the time and date that the spreadsheet was opened. Id like to copy/paste this information to a Word document (or a text file), which could be located on the C-drive. Ideally, Id like to create a running log of all instances of users opening the spreadsheet, so the 2nd, 3rd, 4th, etc. users would have to be appended to the Word document so that the original time stamps were not overwritten. I have a time stamping macro, but everything is done right in Excel, not outside of Excel. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("$A$1:$b$400")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False With Worksheets("Sheet2") ..Select ..Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select ActiveCell.Value = Target.Address ActiveCell.Offset(0, 1).Select ActiveCell.Value = Target.Value ActiveCell.Offset(0, 1).Select ActiveCell.Value = Now() ActiveCell.NumberFormat = "mm/dd/yy" ActiveCell.Offset(0, 1).Select ActiveCell.Value = InputBox("You've made a change to the Rates tab. Please enter your name here for historical purposes.") Application.EnableEvents = True Application.ScreenUpdating = True End With End If End Sub How can I send this data to a destination outside of Excel, and append data as login information of users opening the file? Regards, Ryan-- -- RyGuy |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Identify User, Copy/Paste Login Info. to External File | Excel Programming | |||
Creating a User login Log file for an Excel workbook | Excel Programming | |||
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro | Excel Programming | |||
Help! Find info then copy and paste | Excel Programming | |||
Complex identify values then cut/copy/paste query | Excel Programming |