Activation Code (1 Viewer)

' Function to retrieve the custom database property: ActivationKey
Public Function GetActivationKey() As String
    Dim db As Database, prp As Property
    Dim doc As Document

    Set db = CurrentDb
    Set doc = db.Containers!Databases.Documents!UserDefined
    On Error Resume Next
    Set prp = doc.Properties("ActivationKey")
    If Err.Number = 0 Then
       GetActivationKey = prp.Value
    End If
End Function

' Function to set the custom database property: ActivationKey
Public Sub SetActivationKey(ByVal keyValue As String)

    Dim db As Database
    Dim doc As Document
    Dim prp As Property

    Set db = CurrentDb
    Set doc = db.Containers!Databases.Documents!UserDefined
    Set prp = doc.CreateProperty()
    With prp
        .Name = "ActivationKey"
        .Type = dbText
        .Value = keyValue
    End With
    doc.Properties.Append prp

End Sub

Public Function StartupCode()

Dim sInput As String

' Validate Activation Key
If IsNull(GetActivationKey) = True Then
    Do While sInput <> [b]"123abc"[/b] ' Set your own Key Value here
        sInput = InputBox("Please enter the Activation Key")
        If Nz(sInput, "") = "" Then Application.Quit
    Loop
    SetActivationKey sInput
End If

' Remainder of Startup Code

End Function