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