How to lock the user name?

[SwordAngel]

Hello!

Those of you who have used the "share workbook" and/or "track changes" features of Excel probably know that it is possible to set a user name at each computer so that people can easily see who changed what. This seems like a useful feature, but I have not found any information regarding how a computer administrator can prevent the computer user to change his/her user name. If the administrator cannot prevent normal users from changing the user name, then this user name would be useless in assuring accountability.

Is it at all possible to lock the user name?

 

[crimson_b1ade]

This should work, unless the user disables macros.

Private Sub Workbook_Open()

Application.UserName = Environ("UserName")

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.UserName = Environ("UserName")

End Sub

 

[SwordAngel]

This should work, unless the user disables macros.

Private Sub Workbook_Open()

Application.UserName = Environ("UserName")

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.UserName = Environ("UserName")

End Sub

Heh, that begs the question: how do I prevent the users from disabling macro?

 

[crimson_b1ade]

you can't prevent someone from disabling macros (it's a security feature for a user's protection against bad macros).

you can however force someone to enable macros by hiding the worksheet and putting an workbook open event that unhides the worksheet (i.e. macro-disabled users will not see the sheet because the code doesn't run to unhide the sheet).

In a shared workbook, however, this may not work since as soon as someone enables macros and unhides the worksheet, any subsequent users (both macro-enabled and macro-disabled users) will be able to see that sheet when they open the workbook.

Perhaps you could protect the worksheet entirely and only allow input/changes through a userform that opens with an workbook open event.

sorry, there's no easy solution here.