EXCEL(VBA)で特定のネットワーク上でのみ閲覧できるファイルを作成したい

Question

EXCELで作成したファイルを特定のネットワーク上でのみ開くことができる
VBAを作成したいのですが、非常に難しそうなので相談しました。

以下に関してご質問させていただきます。
・VBAでグローバルIPアドレスを取得できますか
・ネットワークを特定する方法はグローバルIP以外にもありますか
・上記が可能な場合、VBAでも実現できますか

以上です。
とんちんかんな質問で申し訳ございません。
ご回答いただければ、幸いでございます、

Answer 1

IPアドレスを取得するサンプル置いておきます

Function GetIPAddress() As String

    Dim NetAdapters, objNic, strIPAddress
    Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\.\root\cimv2") _
                           .ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
                           "Where (IPEnabled = TRUE)")

    For Each objNic In NetAdapters
        For Each strIPAddress In objNic.IPAddress
            GetIPAddress = strIPAddress
            Exit For        
        Next
        Exit For
    Next

End Function

Comments

[ttyp03]

グローバルIP？
ローカルIPではなく？

[MrIgat]

質問者さんの質問がグローバルIPだとして。
インターネットにルーター等を経由して接続している場合は、ルーターから設定情報を取得するかhttp://www.cman.jp/network/support/go_access.cgiのようなネットワーク情報取得サービスに接続してグローバルIPを取得する　というようなことをVBAで実装するなどがあります。
ただ、セキュリティーや堅牢性も考えるのであれば「エクセルそのものの上に閲覧できない仕組みを作る」より「閲覧できるか判定し制御する仕組みと普通のエクセル」に分けた方がよいと思います。