Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / March 2008

Tip: Looking for answers? Try searching our database.

Hide Command button - still use it

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Madiya - 05 Mar 2008 12:09 GMT
I have a command button in addin which when clicked, shows the data on
a very hidden sheet.
I want to hide this button so that users can not see or use them.
At the same time I want to use it myself as and when required for
cross checking the data.

If I hide it, I am unable to use it.

Is it possible?

Regards,
Madiya
paul.robinson@it-tallaght.ie - 05 Mar 2008 12:39 GMT
Hi
If the command is on a toolbar simply comment out the code that adds
it to the toolbar (maybe in the Workbook Open macro of your AddIn?).
Distribute this version of the AddIn to your users.
regards
Paul

> I have a command button in addin which when clicked, shows the data on
> a very hidden sheet.
[quoted text clipped - 8 lines]
> Regards,
> Madiya
Madiya - 05 Mar 2008 13:20 GMT
On Mar 5, 5:39 pm, paul.robin...@it-tallaght.ie wrote:
> Hi
> If the command is on a toolbar simply comment out the code that adds
[quoted text clipped - 17 lines]
>
> - Show quoted text -

This button is on user form.
Any other thoughts?
Regards,
Madiya
paul.robinson@it-tallaght.ie - 05 Mar 2008 13:30 GMT
Hi
As part of the macro that runs from the button, ask for a password.
Insert

pw = inputbox("Password required")
If pw = "mypassword" then
'run rest of sub
end if

not as elegent as hiding the button but easier.
regards
Paul

> On Mar 5, 5:39 pm, paul.robin...@it-tallaght.ie wrote:
>
[quoted text clipped - 26 lines]
>
> - Show quoted text -
minimaster - 05 Mar 2008 14:40 GMT
You can give one and the same button "hidden" functions by using in
addition the keyboard when clicking it.
for example the hidden sheet is only shown when you press the shift
key while clicking the button (or may be the Ctrl key).

the VBA code for that is relatively simple:

Option Explicit
'-------------------------------
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey
As Long) As Integer
'-------------------------------
Function Key_pressed(key_to_check As Long) As Boolean
  If GetAsyncKeyState(key_to_check) And &H8000 Then
     Key_pressed = True
  Else
     Key_pressed = False
  End If
End Function
'----------------------------
Sub Button1_Click()
  If Key_pressed(vbKeyControl) Then    ' alternatively use the
"vbKeyShift" constant for the shift key
     ' do something special, unhide hidden sheet or show the
worksheets from an add-in
     ThisWorkbook.IsAddin = False
     ThisWorkbook.Activate
  Else
       ' here comes the standard functionality when clicking Button1
without pressing the Ctrl key at the same time
       ' ....
  End If
End Sub
Carl Hartness - 05 Mar 2008 15:29 GMT
It's not very transportable, but I hide/unhide stuff based on my
username.

If Environ("username") = "myUserName" Then do something.
I have two PC's with different usernames, and so have to check for
both names.

If you used a common name like "user", then you can check for your
specific PC with
If Environ("computername")="yourPCsName" then do something.

Carl.

> I have a command button in addin which when clicked, shows the data on
> a very hidden sheet.
[quoted text clipped - 8 lines]
> Regards,
> Madiya
Madiya - 08 Mar 2008 14:27 GMT
> It's not very transportable, but I hide/unhide stuff based on my
> username.
[quoted text clipped - 23 lines]
>
> - Show quoted text -

Sorry for delay in reply since I was out of office.
Mini Master,
Thanks for your help.
This is exactly what I wanted.

Carl,
Thanks but this not going to be usefull as I am taking the users
machine on remot due to which user name remains the same while I start
debuging.
But still thanks for trying to help me out.

Regards,
Madiya
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.