Command Button Invisible

> Is there a way to make a **command button** invisible and/or disable it?

Emphasis added.

All I can offer is code that has been tested in the proper context based on
the question asked. (such as in this case).

the button from the forms menu is not a commandbutton. It is simply a
button. If you can't ask the correct question, it would be best not to come
back in an accusatory fashion exlaiming that the code doesn't work.

Buttons from the forms toolbar are members of the buttons collection

Activesheet.Buttons("Button 1").visible = False

they are also members of the Shapes collection, but more than buttons can be
members of this collection. No, they are not members of the OleObjects
collection, but commandbuttons use OleObjects as containers, so if you had
been using a commandbutton as you stated, and the name of the commandbutton
was commandbutton1, or you were able to recognize that you should actually
use the real name of the button, then you would not have had such a problem.
as to useforms, I provided that since you did not state where you were using
the "commandbutton" and I decided to give you as complete an answer as
possible.

here is some code demo's from the immediate window in attempt to assure you
that in the proper context, the recommended code does work:

activesheet.buttons("Button 2").Visible = False
? activesheet.Buttons("button 2").Visible
False
activesheet.buttons("button 2").visible = True
? activesheet.buttons("button 2").visible
True

--
Regards,
Tom Ogilvy




"JR_06062005" wrote:

> The code doesn't work. For the first set of code I get the message "Object
> does not support this property or method" and for the second line of the
> first set the message is "Unable to get OLE Object property of the worksheet
> class"
>
> For second set I get this message for the first line "Variable Not Defined"
> and it indicates userform1 and for the second line I get the same message.
> As far as I know I have not created a form, only buttons using the Forms Menu.
> "Tom Ogilvy" wrote:
>
> > Activesheet.Commandbutton1.Visible = False
> > Activesheet.OleObjects("Commandbutton1").Visible = False
> >
> > on a userform
> >
> > Userform1.Commandbutton1.Visible = False
> > Userform1.Controls("CommandButton1").visible = False
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "JR_06062005" wrote:
> >
> > > I think I didn’t phrase my question correctly. I did not want a yes/no
> > > answer as I had already suspected there was a way to do this, but I don’t
> > > know how to identify the command button object. I suppose the code is
> > > something like:
> > >
> > > Commandbutton(button identifier).visible=false ‘to make invisible
> > > Commandbutton(button identifier).enable=false ‘to disable
> > >
> > > I certainly would appreciate a little more help.
> > >
> > >
> > > "Harald Staff" wrote:
> > >
> > > > Sure, commandbuttons have an Enabled property and a Visible property, both
> > > > can be set to False.
> > > >
> > > > HTH. Best wishes Harald
> > > >
> > > > "JR_06062005" <JR06062005@discussions.microsoft.com> skrev i melding
> > > > news:24A8991B-85F8-423B-A77C-18F29BF6BE33@microsoft.com...
> > > > > Is there a way to make a command button invisible and/or disable it? This
> > > > > can be done in Access, but if it can be done in Excel, I don't know how to
> > > > do
> > > > > it.
> > > >
> > > >
> > > >

I didn't mean to be accusatory. and I do appreciate your help. I guess I
didn't realize how my reply came across. And you are exactly right I didn't
know how to ask the question.

If I understand your answer, I should use the following code :

Activesheet.Buttons("Button 1").visible = False

If that is the case, I still can't get the code to work. The error message
I get is "Unable to get buttons property of the worksheet class" Is there
something I need to configure with VP so that it can get this property or
perhaps, it may be where the code is placed. That is, does it have to be
placed in the worksheet?
Tom Ogilvy" wrote:

> > Is there a way to make a **command button** invisible and/or disable it?
>
> Emphasis added.
>
> All I can offer is code that has been tested in the proper context based on
> the question asked. (such as in this case).
>
> the button from the forms menu is not a commandbutton. It is simply a
> button. If you can't ask the correct question, it would be best not to come
> back in an accusatory fashion exlaiming that the code doesn't work.
>
> Buttons from the forms toolbar are members of the buttons collection
>
> Activesheet.Buttons("Button 1").visible = False
>
> they are also members of the Shapes collection, but more than buttons can be
> members of this collection. No, they are not members of the OleObjects
> collection, but commandbuttons use OleObjects as containers, so if you had
> been using a commandbutton as you stated, and the name of the commandbutton
> was commandbutton1, or you were able to recognize that you should actually
> use the real name of the button, then you would not have had such a problem.
> as to useforms, I provided that since you did not state where you were using
> the "commandbutton" and I decided to give you as complete an answer as
> possible.
>
> here is some code demo's from the immediate window in attempt to assure you
> that in the proper context, the recommended code does work:
>
> activesheet.buttons("Button 2").Visible = False
> ? activesheet.Buttons("button 2").Visible
> False
> activesheet.buttons("button 2").visible = True
> ? activesheet.buttons("button 2").visible
> True
>
> --
> Regards,
> Tom Ogilvy
>
>
>
>
> "JR_06062005" wrote:
>
> > The code doesn't work. For the first set of code I get the message "Object
> > does not support this property or method" and for the second line of the
> > first set the message is "Unable to get OLE Object property of the worksheet
> > class"
> >
> > For second set I get this message for the first line "Variable Not Defined"
> > and it indicates userform1 and for the second line I get the same message.
> > As far as I know I have not created a form, only buttons using the Forms Menu.
> > "Tom Ogilvy" wrote:
> >
> > > Activesheet.Commandbutton1.Visible = False
> > > Activesheet.OleObjects("Commandbutton1").Visible = False
> > >
> > > on a userform
> > >
> > > Userform1.Commandbutton1.Visible = False
> > > Userform1.Controls("CommandButton1").visible = False
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > >
> > > "JR_06062005" wrote:
> > >
> > > > I think I didn’t phrase my question correctly. I did not want a yes/no
> > > > answer as I had already suspected there was a way to do this, but I don’t
> > > > know how to identify the command button object. I suppose the code is
> > > > something like:
> > > >
> > > > Commandbutton(button identifier).visible=false ‘to make invisible
> > > > Commandbutton(button identifier).enable=false ‘to disable
> > > >
> > > > I certainly would appreciate a little more help.
> > > >
> > > >
> > > > "Harald Staff" wrote:
> > > >
> > > > > Sure, commandbuttons have an Enabled property and a Visible property, both
> > > > > can be set to False.
> > > > >
> > > > > HTH. Best wishes Harald
> > > > >
> > > > > "JR_06062005" <JR06062005@discussions.microsoft.com> skrev i melding
> > > > > news:24A8991B-85F8-423B-A77C-18F29BF6BE33@microsoft.com...
> > > > > > Is there a way to make a command button invisible and/or disable it? This
> > > > > > can be done in Access, but if it can be done in Excel, I don't know how to
> > > > > do
> > > > > > it.
> > > > >
> > > > >
> > > > >

Maybe you are using the wrong name. By default, these controls usually have
a space in the name.

to get information about your buttons, with your sheet as the activesheet:
Place this in a general module (insert=>Module in the VBE).

Sub Showbuttons()
Dim btn As Button
For Each btn In ActiveSheet.Buttons
sCell = btn.TopLeftCell.Address
If Intersect(btn.TopLeftCell, ActiveWindow.VisibleRange) Is Nothing Then
Application.Goto btn.TopLeftCell, Scroll:=True
End If
btn.Select
MsgBox "Name: " & btn.Name & vbNewLine & _
"Over cell: " & sCell & vbNewLine & _
"Caption: " & btn.Caption
Next
End Sub


Just a utility to play with. Use this in the general module of a new
workbook.

Sub AddAButton()
Dim sh As Worksheet, rng As Range
Dim btn As Button
Set sh = ActiveSheet
sh.Buttons.Delete
Set rng = sh.Range("B9")
With rng
Set btn = ActiveSheet.Buttons.Add( _
Top:=rng.Top, Left:=rng.Left, _
Width:=rng.Width, Height:=rng.Height)
End With
Range("A1").Select
MsgBox "Button " & btn.Name & _
" should be visible"
btn.Visible = False
MsgBox "Button " & btn.Name & _
" should be hidden"
sh.Buttons(btn.Name).Visible = True
End Sub

--
Regards,
Tom Ogilvy


"JR_06062005" wrote:

> I didn't mean to be accusatory. and I do appreciate your help. I guess I
> didn't realize how my reply came across. And you are exactly right I didn't
> know how to ask the question.
>
> If I understand your answer, I should use the following code :
>
> Activesheet.Buttons("Button 1").visible = False
>
> If that is the case, I still can't get the code to work. The error message
> I get is "Unable to get buttons property of the worksheet class" Is there
> something I need to configure with VP so that it can get this property or
> perhaps, it may be where the code is placed. That is, does it have to be
> placed in the worksheet?
> Tom Ogilvy" wrote:
>
> > > Is there a way to make a **command button** invisible and/or disable it?
> >
> > Emphasis added.
> >
> > All I can offer is code that has been tested in the proper context based on
> > the question asked. (such as in this case).
> >
> > the button from the forms menu is not a commandbutton. It is simply a
> > button. If you can't ask the correct question, it would be best not to come
> > back in an accusatory fashion exlaiming that the code doesn't work.
> >
> > Buttons from the forms toolbar are members of the buttons collection
> >
> > Activesheet.Buttons("Button 1").visible = False
> >
> > they are also members of the Shapes collection, but more than buttons can be
> > members of this collection. No, they are not members of the OleObjects
> > collection, but commandbuttons use OleObjects as containers, so if you had
> > been using a commandbutton as you stated, and the name of the commandbutton
> > was commandbutton1, or you were able to recognize that you should actually
> > use the real name of the button, then you would not have had such a problem.
> > as to useforms, I provided that since you did not state where you were using
> > the "commandbutton" and I decided to give you as complete an answer as
> > possible.
> >
> > here is some code demo's from the immediate window in attempt to assure you
> > that in the proper context, the recommended code does work:
> >
> > activesheet.buttons("Button 2").Visible = False
> > ? activesheet.Buttons("button 2").Visible
> > False
> > activesheet.buttons("button 2").visible = True
> > ? activesheet.buttons("button 2").visible
> > True
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> >
> >
> > "JR_06062005" wrote:
> >
> > > The code doesn't work. For the first set of code I get the message "Object
> > > does not support this property or method" and for the second line of the
> > > first set the message is "Unable to get OLE Object property of the worksheet
> > > class"
> > >
> > > For second set I get this message for the first line "Variable Not Defined"
> > > and it indicates userform1 and for the second line I get the same message.
> > > As far as I know I have not created a form, only buttons using the Forms Menu.
> > > "Tom Ogilvy" wrote:
> > >
> > > > Activesheet.Commandbutton1.Visible = False
> > > > Activesheet.OleObjects("Commandbutton1").Visible = False
> > > >
> > > > on a userform
> > > >
> > > > Userform1.Commandbutton1.Visible = False
> > > > Userform1.Controls("CommandButton1").visible = False
> > > >
> > > > --
> > > > Regards,
> > > > Tom Ogilvy
> > > >
> > > >
> > > > "JR_06062005" wrote:
> > > >
> > > > > I think I didn’t phrase my question correctly. I did not want a yes/no
> > > > > answer as I had already suspected there was a way to do this, but I don’t
> > > > > know how to identify the command button object. I suppose the code is
> > > > > something like:
> > > > >
> > > > > Commandbutton(button identifier).visible=false ‘to make invisible
> > > > > Commandbutton(button identifier).enable=false ‘to disable
> > > > >
> > > > > I certainly would appreciate a little more help.
> > > > >
> > > > >
> > > > > "Harald Staff" wrote:
> > > > >
> > > > > > Sure, commandbuttons have an Enabled property and a Visible property, both
> > > > > > can be set to False.
> > > > > >
> > > > > > HTH. Best wishes Harald
> > > > > >
> > > > > > "JR_06062005" <JR06062005@discussions.microsoft.com> skrev i melding
> > > > > > news:24A8991B-85F8-423B-A77C-18F29BF6BE33@microsoft.com...
> > > > > > > Is there a way to make a command button invisible and/or disable it? This
> > > > > > > can be done in Access, but if it can be done in Excel, I don't know how to
> > > > > > do
> > > > > > > it.
> > > > > >
> > > > > >
> > > > > >