Combine two buttons in one and change the text.

[Romano_odK]

Good afternoon,

I use the below 2 sets of code to hide and unhide the commandbars and some other stuff. I would like to let this work behind one button and when let the text on the button change when you push it. Is that possible?
Thank you for your time.

Romano

ActiveSheet.Unprotect "trein"


Dim cb As CommandBar
  For Each cb In CommandBars
    If cb.Type < 3 Then cb.Enabled = False
  Next cb
  With ActiveWindow
    .DisplayHeadings = False
    .DisplayWorkbookTabs = False
  End With
  With Application
    .DisplayFullScreen = True
    .DisplayFormulaBar = False
    .DisplayScrollBars = False
    .DisplayStatusBar = False
  End With

    
ActiveSheet.Protect "trein", AllowFiltering:=True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True

End With

ActiveSheet.Unprotect "trein"

Dim cb As CommandBar
  For Each cb In CommandBars
    If cb.Type < 3 Then cb.Enabled = False
  Next cb
  With ActiveWindow
    .DisplayHeadings = True
    .DisplayWorkbookTabs = True
  End With
  With Application
    .DisplayFullScreen = False
    .DisplayFormulaBar = True
    .DisplayScrollBars = True
    .DisplayStatusBar = True
  End With

'This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
   
ActiveSheet.Protect "trein", AllowFiltering:=True, AllowFormattingColumns:=True

 

[Jamie McMillan]

Hello Romano,

Simply write a single macro to call each macro based on another cell: then it will toggle between them.

Sub Combine
If Range("Z1").value = 1 then
Call Macro1Name
Range("Z1").value = 0
Else
Call Macro2Name
Range("Z1").value = 1
End If
End Sub

Jamie

 

[Jamie McMillan]

Hello Romano,

I didn't read the bit about the name changing on the button.
Select the shape and in the formula bar type =Z2
Then in cell Z2 type the formula:- =if(Z1=1,"On","Off")

Change Z1 / Z2 / On / Off to what you would like.

Jamie

 

[Romano_odK]

Hello Romano,

I didn't read the bit about the name changing on the button.
Select the shape and in the formula bar type =Z2
Then in cell Z2 type the formula:- =if(Z1=1,"On","Off")

Change Z1 / Z2 / On / Off to what you would like.

Jamie

Thank you, that helped a lot. Have a nice day.