Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
UserForm Password
I have just inherited a spreadsheet with userform and the vba lines
below (Yes, I happen to a beginner in VBA). The problem I am having with the userform is that once it pops up, you click on the create template command button and the program starts. Now the problem is it doesn't ask you to enter a password even though it has textbox and a command button to ok this. Please help me explain how I can incorporate a password in the vb lines below so that everytime a correct password is entered the program is activated. Many thanks. Private Sub cmdCreate_Click() frmauthorisation.Hide Call CreateTemplate Me.lbldone.Caption = "A total of " & iWCount & " workbooks" _ & " containing a total of " & iCCount & " worksheets created." Me.lbldone.Visible = True frmauthorisation.Show End Sub Private Sub cmdCancel_Click() Unload frmauthorisation End Sub Private Sub cmdOK_Click() If vPW = sPW Then Me.cmdcreate.Enabled = True Else Me.cmdcreate.Enabled = False MsgBox "Incorrect Authorisation Code!", vbCritical, "Authorisation" End If End Sub Private Sub Label1_Click() End Sub Private Sub lblDone_Click() End Sub Private Sub txtPW_Change() vPW = Me.txtpw.Text Me.cmdOk.Enabled = Len(vPW & vbNullString) 0 End Sub Private Sub UserForm_Initialize() sPW = Chr$(112) & Chr$(104) & Chr$(79) & Chr$(110) & Chr$(108) & Chr$(121) End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
UserForm Password
You have a line in the Private Sub cmdOK_Click() routine.
If vPW = sPW Then It looks like those variables are set somewhere else. But maybe you could use the same technique: Private Sub cmdCreate_Click() frmauthorisation.Hide If vPW = sPW Then Call CreateTemplate Me.lbldone.Caption = "A total of " & iWCount & " workbooks" _ & " containing a total of " & iCCount & " worksheets created." Me.lbldone.Visible = True else msgbox "wrong password" end if frmauthorisation.Show End Sub But this is just a guess. Ola2B wrote: I have just inherited a spreadsheet with userform and the vba lines below (Yes, I happen to a beginner in VBA). The problem I am having with the userform is that once it pops up, you click on the create template command button and the program starts. Now the problem is it doesn't ask you to enter a password even though it has textbox and a command button to ok this. Please help me explain how I can incorporate a password in the vb lines below so that everytime a correct password is entered the program is activated. Many thanks. Private Sub cmdCreate_Click() frmauthorisation.Hide Call CreateTemplate Me.lbldone.Caption = "A total of " & iWCount & " workbooks" _ & " containing a total of " & iCCount & " worksheets created." Me.lbldone.Visible = True frmauthorisation.Show End Sub Private Sub cmdCancel_Click() Unload frmauthorisation End Sub Private Sub cmdOK_Click() If vPW = sPW Then Me.cmdcreate.Enabled = True Else Me.cmdcreate.Enabled = False MsgBox "Incorrect Authorisation Code!", vbCritical, "Authorisation" End If End Sub Private Sub Label1_Click() End Sub Private Sub lblDone_Click() End Sub Private Sub txtPW_Change() vPW = Me.txtpw.Text Me.cmdOk.Enabled = Len(vPW & vbNullString) 0 End Sub Private Sub UserForm_Initialize() sPW = Chr$(112) & Chr$(104) & Chr$(79) & Chr$(110) & Chr$(108) & Chr$(121) End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Password Userform help !!!! | Excel Discussion (Misc queries) | |||
Userform | Excel Discussion (Misc queries) | |||
userform | New Users to Excel | |||
how to automate opening a password protected excel file? e.g. a .xls that has a password set in the security tab. | Excel Worksheet Functions | |||
bypass password when update linking of password protected file | Excel Discussion (Misc queries) |