Can a Button affect the code of another sheet?

[riedyp]

Hello,

I have a very large workbook of sheets that contain macros that causes it to run very slow at times. However, only certain sheets need to be used at a time. I am wondering if I can make a button that when selected hides certain sheets and also comment blocks the code in those sheets so my workbook can run faster.

Example:
Home Tab(Sheet1)
Group1(Sheets 2-5)
Group2((Sheets6-10)

I want the "Home Tab" to contain 2 buttons "Group1" and "Group2".
If "Group1" is selected then Sheets6-10 are hidden and there code is comment blocked.
If "Group2" is selected then Sheets2-5 are hidden and there code is comment blocked.

Is this possible to do? If so would it actually make my documents run faster?

Thank you.

 

[mole999]

code only runs when triggered, and to comment out code would be very complex i believe. hiding sheets dosen't make the book quicker. Macros that trigger refresh all, and sheet formulas are more likely to be suspect

 

[Larry Haydn]

If you hide the worksheets, you will also need to unhide them.
So instead of 2 buttons, you will need 4 buttons:
Button 1 - Hide Group 1
Button 2 - Hide Group 2
Button 3 - Unhide Group 1
Button 4 - Unhide Group 2

(You can actually use just 2 buttons, by changing and reading the buttons' captions, but I will keep simple here)

Here are the 4 codes.
Associate the appropriate code to each button:

Sub HideGrp1()
    With ActiveWorkbook
        .Sheets("Sheet2").Visible = False
        .Sheets("Sheet3").Visible = False
        .Sheets("Sheet4").Visible = False
        .Sheets("Sheet5").Visible = False
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub HideGrp2()
    With ActiveWorkbook
        .Sheets("Sheet6").Visible = False
        .Sheets("Sheet7").Visible = False
        .Sheets("Sheet8").Visible = False
        .Sheets("Sheet9").Visible = False
        .Sheets("Sheet10").Visible = False
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub UnhideGrp1()
    With ActiveWorkbook
        .Sheets("Sheet2").Visible = True
        .Sheets("Sheet3").Visible = True
        .Sheets("Sheet4").Visible = True
        .Sheets("Sheet5").Visible = True
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub UnhideGrp2()
    With ActiveWorkbook
        .Sheets("Sheet6").Visible = True
        .Sheets("Sheet7").Visible = True
        .Sheets("Sheet8").Visible = True
        .Sheets("Sheet9").Visible = True
        .Sheets("Sheet10").Visible = True
        .Sheets("Sheet1").Activate
    End With
End Sub

 

[Larry Haydn]

Codes running slow can be caused by several reasons:
* links to other workbooks
* lookup from other workbooks
...and many other possibilities
etc.

 

[riedyp]

code only runs when triggered, and to comment out code would be very complex i believe. hiding sheets dosen't make the book quicker. Macros that trigger refresh all, and sheet formulas are more likely to be suspect

Is there a way to stop those codes from running by using a button?

 

[riedyp]

If you hide the worksheets, you will also need to unhide them.
So instead of 2 buttons, you will need 4 buttons:
Button 1 - Hide Group 1
Button 2 - Hide Group 2
Button 3 - Unhide Group 1
Button 4 - Unhide Group 2

(You can actually use just 2 buttons, by changing and reading the buttons' captions, but I will keep simple here)

Here are the 4 codes.
Associate the appropriate code to each button:

Sub HideGrp1()
    With ActiveWorkbook
        .Sheets("Sheet2").Visible = False
        .Sheets("Sheet3").Visible = False
        .Sheets("Sheet4").Visible = False
        .Sheets("Sheet5").Visible = False
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub HideGrp2()
    With ActiveWorkbook
        .Sheets("Sheet6").Visible = False
        .Sheets("Sheet7").Visible = False
        .Sheets("Sheet8").Visible = False
        .Sheets("Sheet9").Visible = False
        .Sheets("Sheet10").Visible = False
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub UnhideGrp1()
    With ActiveWorkbook
        .Sheets("Sheet2").Visible = True
        .Sheets("Sheet3").Visible = True
        .Sheets("Sheet4").Visible = True
        .Sheets("Sheet5").Visible = True
        .Sheets("Sheet1").Activate
    End With
End Sub

Sub UnhideGrp2()
    With ActiveWorkbook
        .Sheets("Sheet6").Visible = True
        .Sheets("Sheet7").Visible = True
        .Sheets("Sheet8").Visible = True
        .Sheets("Sheet9").Visible = True
        .Sheets("Sheet10").Visible = True
        .Sheets("Sheet1").Activate
    End With
End Sub

Okay thank you very much.