RE: Is it possible to hide and show buttons?

I found this somewhere and I think with a as long as I'm carful where I call
it from it should work more easily than what I was thinking
___________________
Sub ToggleButton()
With Worksheets(1).Shapes("CommandButton1")
If .Visible = False Then
..Visible = True
Else
..Visible = False
End If
End With
End Sub
__________________________
(just changin the sub name, and module name to reflect the button it
toggles, 1 is the work*** number, and "commandbutton1" to button name.
Thanks for the help I wouldn't of known where to start from with out you.

"Kiba" wrote:

Yes, I created them from the control toolbar.
I decided to try it this way but the code still errors
_______________________________________
'Hide Undo Button
Sub HideButtonUndo()

Dim Button_Name As String

Button_Name = "Undo"

With Active***.Buttons(Button_Name)
If Range("b1").Value = "1" Then
.Visible = True
Else
.Visble = False
End If
End With

End Sub
___________________________________________
Then I just called from the Save Command
Along with adjusting the other cells in other events. the .visible is
getting highlighted.

"Tom Ogilvy" wrote:

Are the buttons from the control toolbox toolbar? I demonstrated that the
code works for a commandbutton from the control toolbox toolbar. If your
having problems as you claim, there is little I can say based on the minimal
information provided.

--
Regards,
Tom Ogilvy


"Kiba" wrote:

I named it and its still going to the debug screen no matter what event I
call it from.

"Tom Ogilvy" wrote:

Commandbutton1 was the name of my button and was used as an example.

You would use the names of your buttons.

--
Regards,
Tom Ogilvy


"Kiba" wrote:

Neither way seems to be working I just get the debug message. Do I need to
change the Commandbutton1 to something else?

"Tom Ogilvy" wrote:

You can't find it because it is inherited from the container - the Ole Object
(assuming these are on a work***).

so from the immediate window as a demo:

? Active***.Commandbutton1.Visible
True
active***.Commandbutton1.Visible = False

? Active***.Commandbutton1.Visible
False

Or you can do

Active***.OleObjects("Commandbutton1").Visible = False

Again, from the immediate window as a demo:
Active***.OleObjects("Commandbutton1").Visible = True
? Active***.Commandbutton1.Visible
True

--
Regards,
Tom Ogilvy


"Kiba" wrote:

I can't find a visible property How would I go about finding it and changing
it with a code?

"Tom Ogilvy" wrote:

The buttons have a visible property. You would need to run code to set that
property to false. So, the the update click event would contain code to make
the Undo Update visible as an example.

The work***/workbook have other events that could come into play.
--
Regards,
Tom Ogilvy



"Kiba" wrote:

I have four buttons on my spread***. (Top of Page, Update, Undo Update,
Redo Update). I was wondering if there was a way to hide the Undo Update
when the spread *** is opened until the update button is pressed. And hide
the Redo Button untill the Undo button is pressed.)
.