dimming a cell

[sassriverrat]

good morning,

I have some code that I've written/compiled for making a "registration key" of sorts for a workbook. Only issue, if the "password, as defined in cell B39, is a series of numbers, the coding works perfectly. if the password is a word or letters, it doesn't. I'm guessing I've got everything dimmed wrong.

Someone help please. thanks!

Dim s As StringDim namer As String
Dim d As String
Dim ExpirationDate As Date
Dim pass1 As String
Dim pass2 As String




With Sheets("Developer")
    s = .Range("B34")                   'username
    'pass1 = .Range("B15:E15").Value     'sheet unprotect
    'pass2 = .Range("B39").Value         'date password
    ExpirationDate = .Range("E37")      'expiration date
    d = .Range("B39").Value             'registration key
    initialdate = .Range("C36")         'initializing date
End With


TryAgain:
        d = Application.InputBox("Your workbook date has expired. Please enter the registration key to renew your license.", namer)
        If d = False Then Exit Sub
        If d = CStr(Worksheets("Developer").Range("B39").Value) Then
            Sheets("Developer").Range("C36") = Date
            MsgBox "Welcome Back " & s, vbOKOnly, namer
        Else
            MsgBox "Password Incorrect, Please try again.", vbCritical, namer
            GoTo TryAgain
        End If
    End If

 

[Yongle]

If input box is cancelled then Application.Input box returns False (a boolean value)
So d must be able to handle boolean and strings and therefore must be type Variant

Dim d As Variant

and replace

If d = False Then Exit Sub

with

If d = "" Or d = False Then Exit Sub

 

[sassriverrat]

brilliant! thank you sir.

 

[Norie]

Use InputBox instead of Application.InputBox and change this,

If d = False Then Exit Sub

to this.

If d = "" Then Exit Sub

 

[sassriverrat]

out of curiosity, what's the difference between this and the line of code from @Yongle?

 

[Yongle]

out of curiosity, what's the difference between this and the line of code from @Yongle?

InputBox ALWAYS returns a string (click on Cancel or X return a string)
Application.InputBox returns either a string or a boolean (Cancel or X)

 

[sassriverrat]

InputBox ALWAYS returns a string (click on Cancel or X return a string)
Application.InputBox returns either a string or a boolean (Cancel or X)

So wouldn't I want application.inputbox (so the user either puts in a blank or wrong password or cancels and it's done)?

 

[Norie]

You are checking for a string, why bring boolean values into it?

 

[sassriverrat]

I guess maybe I don't understand boolean values well enough. I understood them to be a true/false comparison.
I understand a string as just what's entered in the cell, regardless of number or text.

 

[Yongle]

You understand well enough.
All Norie is saying that InputBox can deliver what you appear to want and the code for that is simpler.
One is a VBA function, the other an Excel function.
Perhaps this explains it https://bettersolutions.com/excel/macros/application-inputbox.htm