Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to show/hide sheet to asterisk the password
Hello all
I need some help with some code. I found the follwoing code on the web and thank you to the author it works well, but there is a problem in that it shows the password as you type it in, increasing the risk of people breaking the code. Is there a way that the input in the password box can be asterisk out and not shown as the user is typing it in Const pWord = "password" Sub HideSheets() 'Set worksheet to Very Hidden so that it can only be unhidden by a macro Worksheets("Salary").Visible = xlSheetVeryHidden End Sub Sub ShowSheets() 'Prompt the user for a password and unhide the worksheet if correct Select Case InputBox("Please enter the password to unhide the sheet", _ "Enter Password") Case Is = pWord With Worksheets("Salary") .Visible = xlSheetVisible .Activate .Range("A1").Select End With Case Else MsgBox "Sorry, that password is incorrect!", _ vbCritical + vbOKOnly, "You are not authorized!" End Select End Sub Thanks Regards |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to show/hide sheet to asterisk the password
Hi Emanouel,
Use a form with a textbox and set the textbox property PasswordChar to * This cannot be achieved with an inputbox. Regards Jean-Yves "Newman Emanouel" wrote in message ... Hello all I need some help with some code. I found the follwoing code on the web and thank you to the author it works well, but there is a problem in that it shows the password as you type it in, increasing the risk of people breaking the code. Is there a way that the input in the password box can be asterisk out and not shown as the user is typing it in Const pWord = "password" Sub HideSheets() 'Set worksheet to Very Hidden so that it can only be unhidden by a macro Worksheets("Salary").Visible = xlSheetVeryHidden End Sub Sub ShowSheets() 'Prompt the user for a password and unhide the worksheet if correct Select Case InputBox("Please enter the password to unhide the sheet", _ "Enter Password") Case Is = pWord With Worksheets("Salary") .Visible = xlSheetVisible .Activate .Range("A1").Select End With Case Else MsgBox "Sorry, that password is incorrect!", _ vbCritical + vbOKOnly, "You are not authorized!" End Select End Sub Thanks Regards |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to show/hide sheet to asterisk the password
Hi,
Actually it can be done with a standard input box. Have a look at the code here courtesy of Ivan Moala http://www.xcelfiles.com/InPutBoxPwd.htm Mike "Jean-Yves TFELT" wrote: Hi Emanouel, Use a form with a textbox and set the textbox property PasswordChar to * This cannot be achieved with an inputbox. Regards Jean-Yves "Newman Emanouel" wrote in message ... Hello all I need some help with some code. I found the follwoing code on the web and thank you to the author it works well, but there is a problem in that it shows the password as you type it in, increasing the risk of people breaking the code. Is there a way that the input in the password box can be asterisk out and not shown as the user is typing it in Const pWord = "password" Sub HideSheets() 'Set worksheet to Very Hidden so that it can only be unhidden by a macro Worksheets("Salary").Visible = xlSheetVeryHidden End Sub Sub ShowSheets() 'Prompt the user for a password and unhide the worksheet if correct Select Case InputBox("Please enter the password to unhide the sheet", _ "Enter Password") Case Is = pWord With Worksheets("Salary") .Visible = xlSheetVisible .Activate .Range("A1").Select End With Case Else MsgBox "Sorry, that password is incorrect!", _ vbCritical + vbOKOnly, "You are not authorized!" End Select End Sub Thanks Regards |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to show/hide sheet to asterisk the password
Hi Mike,
Nice Api call ! IMHO a bit complicated for novice when a textbox already has this property. Kind Regards Jean-Yves "Mike H" wrote in message ... Hi, Actually it can be done with a standard input box. Have a look at the code here courtesy of Ivan Moala http://www.xcelfiles.com/InPutBoxPwd.htm Mike "Jean-Yves TFELT" wrote: Hi Emanouel, Use a form with a textbox and set the textbox property PasswordChar to * This cannot be achieved with an inputbox. Regards Jean-Yves "Newman Emanouel" wrote in message ... Hello all I need some help with some code. I found the follwoing code on the web and thank you to the author it works well, but there is a problem in that it shows the password as you type it in, increasing the risk of people breaking the code. Is there a way that the input in the password box can be asterisk out and not shown as the user is typing it in Const pWord = "password" Sub HideSheets() 'Set worksheet to Very Hidden so that it can only be unhidden by a macro Worksheets("Salary").Visible = xlSheetVeryHidden End Sub Sub ShowSheets() 'Prompt the user for a password and unhide the worksheet if correct Select Case InputBox("Please enter the password to unhide the sheet", _ "Enter Password") Case Is = pWord With Worksheets("Salary") .Visible = xlSheetVisible .Activate .Range("A1").Select End With Case Else MsgBox "Sorry, that password is incorrect!", _ vbCritical + vbOKOnly, "You are not authorized!" End Select End Sub Thanks Regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i put an asterisk on a bar chart to show significance | Charts and Charting in Excel | |||
How Do I Password Hide a Sheet | Excel Programming | |||
How Do I Password Hide a Sheet | Excel Programming | |||
automatically hide row if cell contains asterisk | Excel Discussion (Misc queries) | |||
Show/hide cells code | Excel Programming |