Change/hide "last saved by" name in Properties of Exl97

[jefff]

I have a workbook that detects specific users by their user name (in options/general of '97) and makes the book either read-only or not, depending on the name.
Problem is that the user name is visible as "last saved by" in Properties, and I want to either hide or overwrite this so that other users cant see or use these names. Is this possible? Thanks. Jefff

[NateO]

Hello Jeff, the following series of Workbook event procedures uses a public variable to store the Username, change the username before saving the file and restoring the original username before the workbook is closed.

Public y As String

Private Sub Workbook_Open()

y = Application.UserName

End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim n As String

n = "Admin"

Application.UserName = n

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.UserName = y

End Sub

The code should be placed in the 'ThisWorkbook' module. I would guess you already have workbook events, if so, layer the code in. Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-22 09:34 ]

[Juan Pablo González]

Try this:

ActiveWorkbook.BuiltinDocumentProperties(7).Value = "Other guy"

[jefff]

Thanks very much for the solutions. Excel-lent!
JeFFF