Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
passwords - userforms - remembering password has been entered
[Excel 2003]
I have a spreadsheet which uses forms to enter and display data. The Spreadsheet uses a main page form "frmDashboard" from which other userforms are activated using command buttons. The form frmDashoboard remains open in the background as a desktop while the user activates the other forms. I am looking at various methods to password protect the opening of other forms from the main useform frmDashboard and I use the following code to do this: Private Sub CommandButton1_Click() Dim i_pwd As String i_pwd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If i_pwd = "password" Then UserForm2.Show Exit Sub Else MsgBox "Incorrect password; no action taken.", vbInformation End If End Sub This works well enough however my problem is that the password has to be entered everytime the command button is pressed (when userform2 is closed). Is there a way to alter the code so that it remembers that the password has been entered once? That way it wont keep asking for it. I would need the algorithm to reset each time the spreadsheet opens, but I guess it would be okay as long as it remembers it as long as frmDashboard is open. Can anyone help? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
passwords - userforms - remembering password has been entered
Roger,
Not tested but an approach like following may do what you want. By placing variable outside procedure, it should hold it's value so long as main form stays open. Also, as you are using an inputbox, your password characters are not marsked. You could consider using another UserForm with textbox char property set to "*" or have a look at this site which provides a solution to masking inputbox characters. http://www.xcelfiles.com/API_09.html Hope helpful Dim pwrd As String Private Sub CommandButton1_Click() If pwrd = "" Then pwrd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If pwrd < i_pwd Then MsgBox "Incorrect password; no action taken.", vbInformation pwrd = "" Exit Sub End If End If If pwrd = i_pwd Then UserForm2.Show End Sub -- jb "Roger on Excel" wrote: [Excel 2003] I have a spreadsheet which uses forms to enter and display data. The Spreadsheet uses a main page form "frmDashboard" from which other userforms are activated using command buttons. The form frmDashoboard remains open in the background as a desktop while the user activates the other forms. I am looking at various methods to password protect the opening of other forms from the main useform frmDashboard and I use the following code to do this: Private Sub CommandButton1_Click() Dim i_pwd As String i_pwd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If i_pwd = "password" Then UserForm2.Show Exit Sub Else MsgBox "Incorrect password; no action taken.", vbInformation End If End Sub This works well enough however my problem is that the password has to be entered everytime the command button is pressed (when userform2 is closed). Is there a way to alter the code so that it remembers that the password has been entered once? That way it wont keep asking for it. I would need the algorithm to reset each time the spreadsheet opens, but I guess it would be okay as long as it remembers it as long as frmDashboard is open. Can anyone help? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
passwords - userforms - remembering password has been entered
sorry,
missed a line of code when i pasted Const i_pwd As String = "password" Dim pwrd As String Private Sub CommandButton1_Click() If pwrd = "" Then pwrd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If pwrd < i_pwd Then MsgBox "Incorrect password; no action taken.", vbInformation pwrd = "" Exit Sub End If End If If pwrd = i_pwd Then UserForm2.Show End Sub -- jb "Roger on Excel" wrote: [Excel 2003] I have a spreadsheet which uses forms to enter and display data. The Spreadsheet uses a main page form "frmDashboard" from which other userforms are activated using command buttons. The form frmDashoboard remains open in the background as a desktop while the user activates the other forms. I am looking at various methods to password protect the opening of other forms from the main useform frmDashboard and I use the following code to do this: Private Sub CommandButton1_Click() Dim i_pwd As String i_pwd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If i_pwd = "password" Then UserForm2.Show Exit Sub Else MsgBox "Incorrect password; no action taken.", vbInformation End If End Sub This works well enough however my problem is that the password has to be entered everytime the command button is pressed (when userform2 is closed). Is there a way to alter the code so that it remembers that the password has been entered once? That way it wont keep asking for it. I would need the algorithm to reset each time the spreadsheet opens, but I guess it would be okay as long as it remembers it as long as frmDashboard is open. Can anyone help? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
passwords - userforms - remembering password has been entered
Thanks John,
This works very nicely for my needs All the best, Roger "john" wrote: sorry, missed a line of code when i pasted Const i_pwd As String = "password" Dim pwrd As String Private Sub CommandButton1_Click() If pwrd = "" Then pwrd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If pwrd < i_pwd Then MsgBox "Incorrect password; no action taken.", vbInformation pwrd = "" Exit Sub End If End If If pwrd = i_pwd Then UserForm2.Show End Sub -- jb "Roger on Excel" wrote: [Excel 2003] I have a spreadsheet which uses forms to enter and display data. The Spreadsheet uses a main page form "frmDashboard" from which other userforms are activated using command buttons. The form frmDashoboard remains open in the background as a desktop while the user activates the other forms. I am looking at various methods to password protect the opening of other forms from the main useform frmDashboard and I use the following code to do this: Private Sub CommandButton1_Click() Dim i_pwd As String i_pwd = InputBox("Please Enter Password" & vbCrLf & "to activate form") If i_pwd = "password" Then UserForm2.Show Exit Sub Else MsgBox "Incorrect password; no action taken.", vbInformation End If End Sub This works well enough however my problem is that the password has to be entered everytime the command button is pressed (when userform2 is closed). Is there a way to alter the code so that it remembers that the password has been entered once? That way it wont keep asking for it. I would need the algorithm to reset each time the spreadsheet opens, but I guess it would be okay as long as it remembers it as long as frmDashboard is open. Can anyone help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Userforms, selection based on sheet and password | Excel Programming | |||
change the characters entered in cell as a Password charactes | Excel Programming | |||
How to delete spreadsheet if wrong password entered? | Excel Programming | |||
Multiple Passwords and Maste Password | Excel Discussion (Misc queries) | |||
Login and password automatically entered in a web query | Excel Programming |