VBA handler

[bradgar]

trying to have a userform run only once, long story, but for somereason my handler will not take me to the line i specify.

any ideas?

Private Sub coInf1()                
Dim rF$, User$                               
Dim txt As String
 
txt = coInf.Txtbx.Value
User = Application.UserName
rF = ActiveWorkbook.Path & "-" & "8.Log"
 
If Dir(rF) = Empty Then
    coInf.Show
    If txt = "passsword" Then GoTo sLip
    Open rF For Output As #1
    Close #1
    ActiveWorkbook.Save
    MsgBox "Thank You for Registering!" & Chr(13) & Chr(13) & "This Product has now been officially Registered to " & Sheets("INPUT").Cells(2, 8).Value, vbExclamation, "Registration"

End If

sLip:
    Exit Sub

End Sub

seems straight forward enough...

 

[Norie]

How about this?

Open the form as soon as the form opens.

In the form's initialize event check for the file etc and if found unload the form.

If it's not found continue and display the form.

Then the user enters the password, clicks a button, the file is created and the form is unloaded.