Vba recognize first time startup

[sassriverrat]

Does anyone know how to write coding such that excel will recognize the first time a particular file is opened on a computer?

Situation- I have a fairly self-automated workbook/program I’ve written that does a lot on its own with menus and calculations and all- all written in vba- but I’d like excel to recognize the first time a file is put on a machine (I.e. transferred via jump drive or email download) and to therefore open a userform that otherwise wouldn’t be available (I.e. someone can “initialize” the program with their name and credentials and such). Make sense?

 

[sassriverrat]

@Tetra201

Ok So I've come back to finally wrapping this up and I've tweaked it. I'm failing with the 'Sheets' .select piece (I want it to go to the 'Notes' sheet and make it visible....)
but the idea now is that the ThisWorkbook calls for the "DemoTest" when the workbook opens and the demotest is below. This should check for a registration and if it exists, then it 1. Does nothing or 2. If the activesheet is on Notes (i.e. the user opens the "Notes" tab), then it says "Welcome back blah blah."

However, if the registration doesn't exist upon first opening, this automatically directs the user to the "Notes" sheet after having them input a name.

Sub DemoTest()    Dim s As String    s = GetSetting("DemoTest", "Registration", "UserName")    If s = "" Then        s = InputBox("Please enter your name:")        If s <> "" Then SaveSetting "DemoTest", "Registration", "UserName", s        If s <> "" Then Sheets("Notes").Select
        If s <> "" Then Sheets("Notes").Visible = True    Else        If Activesheet.name = "Notes" Then
        MsgBox "Welcome back, " & s    End IfEnd Sub

 

[sassriverrat]

I've also tried this:

 DemoTest()
'First time initializing Code
Dim s As String
Dim name As String
name = Sheets("Notes").Range("N4")
s = GetSetting("DemoTest", "Registration", "Username")
    If s = "" Then
        s = InputBox("Please enter your name:", name)
        If s <> "" Then SaveSetting "DemoTest", "Registration", "Username", s
        If s <> "" Then Sheets("Notes").Select
        If s <> "" Then Sheets("Notes").Visible = True
    ElseIf Sheets("Notes").Select = True Then MsgBox "Welcome Back, " & s, , name
    Else
        If ActiveSheet.name = "Notes" Then
        MsgBox "Welcome Back, " & s, , name
        End If
    End If
End Sub

 

[Tetra201]

Maybe

Sub DemoTest()
    Dim s As String
    Dim name As String
    name = Sheets("Notes").Range("N4")
    s = GetSetting("DemoTest", "Registration", "Username")
    If s = "" Then
        s = InputBox("Please enter your name:", name)
        If s <> "" Then
            SaveSetting "DemoTest", "Registration", "Username", s
            Sheets("Notes").Visible = xlSheetVisible
            Sheets("Notes").Select
        End If
    ElseIf ActiveSheet.name = "Notes" Then
        MsgBox "Welcome Back, " & s, , name
    End If
End Sub

 

[sassriverrat]

I'll give it a shot and get back to you! Thanks!

 

[sassriverrat]

So code worked like a champ!

now as I continue tweaking- I have an textbox on Userform17. I tried adding the below to see if that would work but it obviously didn't.

s = Userform17.TextBox1.Value

 

[sassriverrat]

On a secondary note, I tried the following modifications to attempt a "date" initialization for locking out the workbook using a date. This is in addition to having the "name" in place.

Sub DemoTestDate()
Dim s as String
Dim name as String
Dim resp as Integer
Dim cdate as String
Dim ddate as String
name = Sheets("Notes").Range("N4")
cdate = Sheets("Developer").Range("A34") 'where A34 is C34+E34
ddate = Sheets("Developer").Range("C34") 'where C34 is a date (manually typed in) and E34 is a manual number of days, say 30

s = GetSetting("DemoTestDate", "Registration", "Username")

If s = "" Then
s = Date

ElseIf s > cdate Then
If s <> "" Then 
SaveSetting "DemoTestDate", "Registration", "Username", s 
End If 

ElseIf s < cdate Then
resp = MsgBox("This is expired, vbYesNo, name)
If resp = Yes Then
ddate = date
If resp = No Then Exit Sub
End If

End If 
'lesson learned- don't manually type out code when you could just copy and paste.....
End Sub