Carley
New Member
Good Afternoon all from a thankfully sunny UK!
I am in the process of building individual productivity spreadsheets for agents and some of the feedback I have recieved is that the current spreadsheet they have, they do not like it password protected.
The managers do however want an audit trail of who has updated the form to ensure agents are updating thier own forms.
I am using Excel 2010 and tried the track changes, but this doesn't really work.
I then came up with the idea of using a User form in VBA that opens when the form opens and they enter there name.
I was wondering if there was a way that excel could automattically pull the login id from the person entering the name on the user form and also enter that onto the spreadsheet?
The code I have for entering the detail on the spreadsheet from the userform is:
Private Sub CommandButton1_Click()
Dim emptyRow As Long
'Make Sheet1 Active
Worksheets("admin").Visible = True
Worksheets("admin").Activate
'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Export Data to worksheet
Cells(emptyRow, 1).Value = TextBox1.Value
Worksheets("admin").Visible = False
Unload Me
Worksheets("start").Activate
end sub
I am in the process of building individual productivity spreadsheets for agents and some of the feedback I have recieved is that the current spreadsheet they have, they do not like it password protected.
The managers do however want an audit trail of who has updated the form to ensure agents are updating thier own forms.
I am using Excel 2010 and tried the track changes, but this doesn't really work.
I then came up with the idea of using a User form in VBA that opens when the form opens and they enter there name.
I was wondering if there was a way that excel could automattically pull the login id from the person entering the name on the user form and also enter that onto the spreadsheet?
The code I have for entering the detail on the spreadsheet from the userform is:
Private Sub CommandButton1_Click()
Dim emptyRow As Long
'Make Sheet1 Active
Worksheets("admin").Visible = True
Worksheets("admin").Activate
'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Export Data to worksheet
Cells(emptyRow, 1).Value = TextBox1.Value
Worksheets("admin").Visible = False
Unload Me
Worksheets("start").Activate
end sub