|
Error message
I am working in 2003 excel. I am trying to have the tabs not appear when i
open my excel program, because i have buttons that will open each page and once they hit the back to home button it hids that tab again. Here is the problem i am using the following code which i know is the reason i am getting the error message but i don't know what else to use to keep the tabs hidden when the book is opened, anyone have any other suggestions i have copied my code below. It's a long code 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 Private Sub workbook_open() Me.DisplayWorkbookTabs = False End Sub Thanks, BR |
Error message
Hi,
when the code is run what line causes the error? Does your routine try to hide all the sheets in the workbook? That is not allowed, you must have at least one sheet visible. -- Thanks, Shane Devenshire "Brenda" wrote: I am working in 2003 excel. I am trying to have the tabs not appear when i open my excel program, because i have buttons that will open each page and once they hit the back to home button it hids that tab again. Here is the problem i am using the following code which i know is the reason i am getting the error message but i don't know what else to use to keep the tabs hidden when the book is opened, anyone have any other suggestions i have copied my code below. It's a long code 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 Private Sub workbook_open() Me.DisplayWorkbookTabs = False End Sub Thanks, BR |
Error message
I get the follow message when i open up the program: Compile error in hidden
module. I understand that i have to have atleast on tab open. A lot of this wasn't designed by me. I looked up what that meant and nothing is password protected at least where i can see. Please understand all of this is brand new to me and i am flyi ng by the seat of my pants. -- Thank you, Brenda "ShaneDevenshire" wrote: Hi, when the code is run what line causes the error? Does your routine try to hide all the sheets in the workbook? That is not allowed, you must have at least one sheet visible. -- Thanks, Shane Devenshire "Brenda" wrote: I am working in 2003 excel. I am trying to have the tabs not appear when i open my excel program, because i have buttons that will open each page and once they hit the back to home button it hids that tab again. Here is the problem i am using the following code which i know is the reason i am getting the error message but i don't know what else to use to keep the tabs hidden when the book is opened, anyone have any other suggestions i have copied my code below. It's a long code 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 Private Sub workbook_open() Me.DisplayWorkbookTabs = False End Sub Thanks, BR |
Error message
Private Sub loadWorkbook() is what is highlighted in blue when i check run
-- Thank you, Brenda "ShaneDevenshire" wrote: Hi, when the code is run what line causes the error? Does your routine try to hide all the sheets in the workbook? That is not allowed, you must have at least one sheet visible. -- Thanks, Shane Devenshire "Brenda" wrote: I am working in 2003 excel. I am trying to have the tabs not appear when i open my excel program, because i have buttons that will open each page and once they hit the back to home button it hids that tab again. Here is the problem i am using the following code which i know is the reason i am getting the error message but i don't know what else to use to keep the tabs hidden when the book is opened, anyone have any other suggestions i have copied my code below. It's a long code 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 Private Sub workbook_open() Me.DisplayWorkbookTabs = False End Sub Thanks, BR |
Error message
Hi,
Well then the first thing we should try is to turn on Solver. In Excel choose Tools, Add-Ins, and check the box beside Solver. Then try running your code again and let me know where it stops. When an error occurs Excel usually pops up a dialog box which allows you to choose Debug, that's the one you want. Then note the line that is usually yellow. -- Thanks, Shane Devenshire "Brenda" wrote: Private Sub loadWorkbook() is what is highlighted in blue when i check run -- Thank you, Brenda "ShaneDevenshire" wrote: Hi, when the code is run what line causes the error? Does your routine try to hide all the sheets in the workbook? That is not allowed, you must have at least one sheet visible. -- Thanks, Shane Devenshire "Brenda" wrote: I am working in 2003 excel. I am trying to have the tabs not appear when i open my excel program, because i have buttons that will open each page and once they hit the back to home button it hids that tab again. Here is the problem i am using the following code which i know is the reason i am getting the error message but i don't know what else to use to keep the tabs hidden when the book is opened, anyone have any other suggestions i have copied my code below. It's a long code 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 Private Sub workbook_open() Me.DisplayWorkbookTabs = False End Sub Thanks, BR |
| All times are GMT +1. The time now is 10:13 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com