Private Sub Workbook_Open()
    '               VBA IP VALIDATION
    ' Author: tankalxat34 (Alexander Podstrechnyy)
    ' Link: https://github.com/tankalxat34/vba-ip-validation
    '
    ' License:
    ' MIT License
    '
    ' Copyright (c) 2022 Alexander Podstrechnyy
    '
    ' Permission is hereby granted, free of charge, to any person obtaining a copy
    ' of this software and associated documentation files (the "Software"), to deal
    ' in the Software without restriction, including without limitation the rights
    ' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
    ' copies of the Software, and to permit persons to whom the Software is
    ' furnished to do so, subject to the following conditions:
    '
    ' The above copyright notice and this permission notice shall be included in all
    ' copies or substantial portions of the Software.
    '
    ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
    ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    ' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
    ' SOFTWARE.
    
    Dim userIP As String
    Dim listIP As String
    
    userIP = vbaRequests.request("https://ifconfig.me/ip")
    listIP = vbaRequests.request("https://raw.githubusercontent.com/tankalxat34/vba-ip-validation/main/ip_list.txt")
    
    If InStr(listIP, userIP) Then
        Exit Sub
    Else
        MsgBox "Your IP address is not confirmed in the system! The application will be closed!", vbCritical
        Application.Quit
    End If
End Sub