Running code before saving workbook

[Chris Gorham]

Hi,

I want to run some code to hide sheets in a workbook just before it saves...
no problem - I just run this code in the "Thisworkbook" using "before save".
However I then want to open them up again immediately after the workbook as
saved. This is to ensure the user cannot save a version of the workbook with
the sheets visible, but doesn't then have to reenter his password and user
name to run some other code that I've written to open up the sheets again.

also what are the settings on a combobox to prevent the user editing entries
(the list of user names) that I've loaded using "additem"...if he does edit
his user name then it confuses the VLookup statement that the combobox feed
when it changes. I've tried every setting under combobox and nothing seems to
prevent this.

I also require that the user type in his password into a text box when he
selects his user name in the combobox drop down. The text box for the
password has "Enter Password" loaded in to it when the combobox
changes...however it would be nice to have this text highlighted such that
when he types, he types immediately over it rather than having to delete
these words first.

again tried every setting for text boxes and used "set focus" to the text
box when the combo box changes...no luck...

thanks for your help...Chris

 

[Jim Rech]

It's best to address one issue per post.

Re the first you might try using Ontime:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheet2.Visible = xlSheetHidden
Application.OnTime Now, "UnhideSheets"
End Sub

''In a standard module
Sub UnhideSheets()
Sheet2.Visible = xlSheetVisible
End Sub