Lock Author details

[Lise]

Hi there

Is there a way to lock the author details found in properties? I don't want
other users to be able to change this but at the same time don't want to have
to password protect the whole sheet.

Any help as always appreciated

 

[Gary Keramidas]

not sure if it can be locked or not, but maybe you can set it in the workbook
before save procedure

ThisWorkbook.BuiltinDocumentProperties("Author").Value ="Your Name"

 

[Gord Dibben]

Why would you be doing this?

With the workbook closed I can still right-click>Properties>Summary and
change the Author Name if I wanted to steal and distribute the workbook as
my creation.

Assuming I have full permissions to make changes to files and folders.

If users have restricted permissions then I think Gary's beforesave code
will do the job.

But will be defeated if macros are disabled by users.


Gord Dibben MS Excel MVP

 

[Gary Keramidas]

gord:

have you noticed that in windows 7, you can't change the revision number on the
details tab by right clicking an xls file?
i constantly have to rename them to a 2007+ extension (xlsm) to expose that box.

 

[Gord Dibben]

I don't have Windows 7

I'm still stuck on WinXP Pro

I don't use shared workbooks so have never had any workbooks with revision
numbers and change tracking.

So...........I had not noticed<g>


Gord

 

[Gord Dibben]

Or did you mean Document Version which is a property Excel 2003 does not
have?


Gord

 

[Gary Keramidas]

i use that field just so i can keep track of which version of a particular
workbook they're using. i display it on the title bar so the can tell me if i
suspect they have an older version.

 

[Lise]

Thanks Gary - but where do I enter that sentence please??

 

[Gary Keramidas]

in the vb editor, double click thisworkbook in the project explorer, paste this
in the code window and enter the name you want to show:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Author").Value ="Your Name"
End Sub