Hide Command button - still use it

  • Thread starter Thread starter Madiya
  • Start date Start date
M

Madiya

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
 
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
 
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






- Show quoted text -
Click to expand...

This button is on user form.
Any other thoughts?
Regards,
Madiya
 
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
 
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
 
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.
 
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.






- Show quoted text -
Click to expand...


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
 
Back
Top