You are probably trying to hide them all before making another visible, one
must be visible at all times

Private Sub Workbook_Open()
'
' Make all sheets very hidden except Entrance sheet

Application.EnableEvents = False
ThisWorkbook.Unprotect (PWORD_Workbook)

' Make Entrance Sheet visible and active
ThisWorkbook.Sheets("Entrance").Visible = xlSheetVisible

ThisWorkbook.Sheets("Fabric Colors").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Input Lists").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Quote Form").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Bill of Materials").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Margin Structure").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Shipping Costs").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("zips").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Dealer List").Visible = xlSheetVeryHidden

Worksheets("Entrance").Activate

ThisWorkbook.Protect (PWORD_Workbook)
Application.EnableEvents = True

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Steve E" wrote in message
...
Been scratching my head for a few hours and am ready to call in the "A"
team...

My project was opening fine and having no problems. I changed a macro
assignment on a button and now am getting an error when I open the
project:

"Unable to set the Visible property of the Worksheet class"

My XL2003 project consists of a workbook with 9 worksheets.
I have (had?) the project set up so that when the workbook opens there is
an
"entrance" sheet that explains to my user how to use the program. All of
the
other sheets are hidden. My user clicks on a button and this opens up the
quote form...

But now my project is opening with the error and the sheet that is open is
the quote form...

When I go to the workbook module (where I am setting the visible sheets,
etc
in my Workbook_Open event and try and run this sub I get this error
message:

"Application defined or Object defined error"

But I can't find what I've gotten goofed up...

In a seperate module I have:

Public Const PWORD_Workbook As String = "password"


And in my ThisWorkbook module I have:

Private Sub Workbook_Open()
'
' Make all sheets very hidden except Entrance sheet

Application.EnableEvents = False
ThisWorkbook.Unprotect (PWORD_Workbook)

ThisWorkbook.Sheets("Fabric Colors").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Input Lists").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Quote Form").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Bill of Materials").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Margin Structure").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Shipping Costs").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("zips").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("Dealer List").Visible = xlSheetVeryHidden
' Make Entrance Sheet visible and active
ThisWorkbook.Sheets("Entrance").Visible = xlSheetVisible
Worksheets("Entrance").Activate

ThisWorkbook.Protect (PWORD_Workbook)
Application.EnableEvents = True

End Sub

Can you see what I have goofed up and help me ungoof it?

TIA,

Steve