Hidden Tabs appear when I reopen the file

B

Brenda

I am working in Excel 2003. I am not the designer of the program and there
are a lot of formulas, links etc in this program. However, i have placed
buttons from the forms toolbar and hide the tabs located at the bottom. In
otherwords they click on the bottom and it brings up the tab i hide and on
that page another button that says take back to the home page and hides that
tab again. My problem is when i close out the program and go back in the tabs
are back at the bottom and i have to hide them to make the buttons work. How
can i get them to stay hidden when the program is opened.
 
R

Roger Govier

Hi Brenda

Show the code you are using to do this, and somebody may be able to help.
 
B

Brenda

As i said in my email i didn't make this program i am taking over it and have
added some of my own things. I don't know what type of code i would even put
out there for someone to help me. here is the code that was entered on this
particular page. its a long one.
Private Sub Workbook_Open()
'check for solver
If (CheckSolver = False) Then
MsgBox "Solver Add-In is not installed, you will not be able to
solve least costing on the Auto-Balance sheet. Consult Excel help for
information on installing the Solver Add-In."
End If
'load the expiry date from cell Expiration!B1
Expiry = getExpirationDate
rightNow = Date
'if we have expired, or moved to a different machine
If (Expiry = Empty Or rightNow > Expiry Or Not
IsDataValid(getRegistrationNumber, getExpirationDate)) Then
showExpiryDialog
End If
'load the workbook
loadWorkbook
End Sub

Private Sub loadWorkbook()
Application.ScreenUpdating = False
changeVisibility InstructionsSheet, xlSheetVisible
InstructionsSheet.Activate
changeVisibility RequirementsSheet, xlSheetVisible
changeVisibility EvaluateSheet, xlSheetVisible
changeVisibility AutoBalanceSheet, xlSheetVisible
changeVisibility HerdDescriptionSheet, xlSheetVisible
changeVisibility IngredientsSheet, xlSheetVisible
changeVisibility MixSheet, xlSheetVisible
changeVisibility ReportsEVSheet, xlSheetVisible
changeVisibility ReportsLCSheet, xlSheetVisible
changeVisibility ErrorSheet, xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
resetToStart
Geminator.Save
Application.ScreenUpdating = True
End Sub

Private Sub changeVisibility(Sheet As Worksheet, v As Integer)
unProtect "AmIn0"
Sheet.unProtect "AmIn0"
Sheet.Visible = v
Sheet.Protect "AmIn0"
Protect "AmIn0"
End Sub

Private Sub resetToStart()
changeVisibility ErrorSheet, xlSheetVisible
changeVisibility AutoBalanceSheet, xlSheetVeryHidden
changeVisibility EvaluateSheet, xlSheetVeryHidden
changeVisibility HerdDescriptionSheet, xlSheetVeryHidden
changeVisibility IngredientsSheet, xlSheetVeryHidden
changeVisibility MixSheet, xlSheetVeryHidden
changeVisibility InstructionsSheet, xlSheetVeryHidden
changeVisibility ReportsEVSheet, xlSheetVeryHidden
changeVisibility ReportsLCSheet, xlSheetVeryHidden
changeVisibility RequirementsSheet, xlSheetVeryHidden
setUseCount getUseCount + 1
If (getFirstUsed = Empty) Then
setFirstUsed Date
End If
Geminator.Protect "AmIn0"
End Sub

Private Sub showExpiryDialog()
registrationForm.regTextBox.SetFocus
registrationForm.regTextBox.SelStart = 0
registrationForm.regTextBox.SelLength =
Len(registrationForm.regTextBox.Text)
registrationForm.Show
End Sub


Private Sub Scrollarea()
Sheets("HerdDescription").Scrollarea = "24R:13C"
End Sub
 
D

Dave Peterson

When I hide the tabs in xl2003 and save the workbook with that window's tabs
hidden, then the tabs are hidden when I reopen the workbook.

I don't have a guess why they're shown for you.

But maybe you could add a line in your workbook_open procedure to hide the tabs:

Me.DisplayWorkbookTabs = False

(Me refers to the object that owns the code--in this case, it's the workbook
itself.)
 
B

Brenda

Did you see the code i posted before your response? Any clue with all of
those codes i didn't enter those they were there when i got this program
should i enter the code you mentioned at the end of what i pasted below.
 
D

Dave Peterson

I saw the code and didn't notice anything in there that would change the
visibility of the tabs.

But there were lots of calls to a couple of macros that may do something that
you didn't share.

Try looking through those procedures to see if you have any
"DisplayWorkbookTabs" in them.

Heck, maybe searching the entire workbook's project for that would be
worthwhile.

=====
But if you want to take the easy route (I would!)...

Just try:

....
loadWorkbook
Me.DisplayWorkbookTabs = False
End Sub

But I don't know what LoadWorkbook does. Maybe that line of code really belongs
in that procedure????


Did you see the code i posted before your response? Any clue with all of
those codes i didn't enter those they were there when i got this program
should i enter the code you mentioned at the end of what i pasted below.
 
B

Brenda

Dave sorry to be a pain your suggestion worked. however when i went onto
other worksheets in the same document and clicked on the buttons they gave me
an error
compile error in hidden module when it first brings up the file i get the
same error any suggestions?
 
D

Dave Peterson

Glad you got part of your problem fixed.

I'm not sure when you get the error.

Do you get it when you open the workbook with the change you just made?

If yes, then maybe you changed something that you shouldn't have.

If you're getting the error when you click on the button, then it's not this
changed that caused the trouble. If the tabs or hidden or shown, the code
would work (or blow up) the same way.

To help debug the problem, you're going to have to find the workbook that's
causing the trouble. Then unprotect that workbook's project (in the VBE). And
save that (as a new copy).

Then close and reopen that new workbook. The project won't be protected, so
you'll get an option to debug. And that should point at the line of code that
caused the trouble.

Then fix that workbook and test it out. If it works fine, you can save as the
old name -- or fix the real workbook's project.

Dave sorry to be a pain your suggestion worked. however when i went onto
other worksheets in the same document and clicked on the buttons they gave me
an error
compile error in hidden module when it first brings up the file i get the
same error any suggestions?
 
R

Roger Govier

Hi Brenda

I think I would just rem out the line
' loadWorkbook
in the Auto_open procedure
--
Regards
Roger Govier

Brenda said:
Dave sorry to be a pain your suggestion worked. however when i went onto
other worksheets in the same document and clicked on the buttons they gave
me
an error
compile error in hidden module when it first brings up the file i get the
same error any suggestions?
 
B

Brenda

How do i get to the Auto_Open Procedure? It i take out LoadWorkbook the
formula isn't complete
 
R

Roger Govier

Hi Brenda

it is the LoadWorkbook procedure, that is hiding each of your sheets.
If you place a single quote in front of the line, then it won't get called
'load Workbook

--
Regards
Roger Govier

Brenda said:
How do i get to the Auto_Open Procedure? It i take out LoadWorkbook the
formula isn't complete
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top