[VBA]多階層のフォルダを一発で作成する方法

[Access VBA]VBAで簡単にテーブルの列を追加・変更・削除する方法まとめ

[Access VBA]VBAで簡単にテーブルの列を削除する方法

[Access VBA]VBAで簡単にテーブルの列を追加する方法

[Excel VBA]いろんな関数をVBAで使おう！エラー回避も考慮！

[Access VBA]たった1行でテーブルの存在確認をする方法

[Access VBA]テーブルの列のデータ型をVBAで変更する方法

[Excel/Access VBA]超簡単！たった1行でサブフォルダのサブフォルダまで作成する方法！

[Excel VBA]たった１行でシートの存在有無を確認する方法

[Excel/Access VBA]サーバやホストの接続確認(Ping)をやる方法

[Excel 関数]数式を変数に格納して使うことができる関数を利用しよう[LET関数]

[Access VBA]新しいAccessファイルを作成しテーブルをコピーする方法

[Access VBA]マクロ(VBA)でテーブルの主キーを設定する方法

[Excel/PowerQuery]VBAでデータソースをいじりたい

[Access VBA]自動で内閣府の国民の祝日CSVデータをテーブルに取り込もう

[Access VBA]サブフォームのイベントをメインフォーム側で受け取る方法(WithEvent,RaiseEvent)

[Access VBA]テーブルの書式を一括で消す方法

[Excel VBA]『名前の定義』で設定したセルが存在するか確認する簡単・簡潔な方法

[Excel VBA]複数のセル範囲で重なっているセルを取得するIntersectと複数のセル範囲を取得するUnion

[Access]テーブルのテキスト型フィールドで「IME 入力モード」を一括でON/OFFする方法

[VBA]AccessからExcelを使う時に起きる「Microsoft Excel *.* Object Library」参照不可問題への対応最新版

【Access VBA】ナビゲーションフォームのサブフォームで、コンボボックスの選択肢を別のコンボボックス(orテキストボックス)のデータを条件に動的に変更する方法(値集合ソース)

[Access VBA]全てのクエリ(SQL)を一度で一括に変換(置換)する方法

[Access VBA]主キーである項目名(フィールド名)を取得する方法

[Excel VBA]剰余演算子であるModの考え方

[Python]CCXTで扱える取引所でそれぞれどんなAPIが取得できるの？を解決する方法

[Python]CCXTを使ったBitMEXのオープンポジション取得方法(API)

[VBA]エクセルで仮想通貨取引所のAPI情報を取得する方法

[Excel/Access VBA]デスクトップやマイドキュメントのパスを自動で取得する方法

[Excel]セルの書式設定の表示形式で改行を使用する方法

[Excel]入力規則のリストにテーブルの列範囲(フィールド/Field)を指定する方法

[VBA]ヤフオク詳細＆一括検索ツールを作ってみた

[VBA]複数の異なるOfficeバージョン環境でAccessからExcelを扱う場合における「Microsoft Excel *.* Object Library」参照不可問題への対応

[VBA]ネットワークドライブ（サーバ）に保管されているAccessファイルを開けないようにする方法

[Access VBA]全てのフォームのプロパティを一括で変更する方法

[VBA]Accessサブフォーム(データシートビュー)の幅高さをポップアップフォームと連動し自動調整する方法

[VBA]Acceessフォームを表示した状態でアプリケーションウィンドウのみを非表示にする方法

[VBA]参照設定にてxla,xlamアドインファイルの追加と解除について

[VBA]ExcelのメールのテンプレートからGmailを送信する方法

[VBA]配列の次元数を調べる

[VBA]ネットワークドライブ(サーバ)に存在するExcelファイルを開かせないようにする方法

[VBA]ミリ秒も含めてシステム時刻を取得する

[VBA]背景色をRGB形式で取得

[VBA]ファイルを開く処理エラー回避

[VBA]ネットワークドライブ(サーバ)に存在するExcelファイルを開かせないようにする方法

VBA(Excel)

2016.03.292017.07.29

この記事は約1分で読めます。

お久しぶりです。備忘です。

今回はネットワークドライブ(サーバ)に存在するExcelファイルを開こうとした時

(ファイルをダブルクリックした時)に、

メッセージを表示してExcelファイルを開かないようにする方法を紹介します。

参照設定は使用しないよう構文を作成してみました。

Private Sub Workbook_Open()

    Dim Network As Object
    Dim Drives As Object
    Dim i As Integer
    
    Set Network = CreateObject("WScript.Network")
    Set Drives = Network.EnumNetworkDrives
    
    For i = 0 To Drives.Length - 1 Step 2

        ' コレクションの奇数番目にネットワークパス
        If InStr(ThisWorkbook.Path, Drives.Item(i + 1)) > 0 Then
        
            MsgBox "ネットワーク上で開かないでください。", vbCritical
            ThisWorkbook.Close False
            
        End If
        
    Next

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Private Sub Workbook_Open()

Dim Network As Object

Dim Drives As Object

Dim i As Integer

Set Network = CreateObject("WScript.Network")

Set Drives = Network.EnumNetworkDrives

For i = 0 To Drives.Length - 1 Step 2

' コレクションの奇数番目にネットワークパス

If InStr(ThisWorkbook.Path, Drives.Item(i + 1)) > 0 Then

MsgBox "ネットワーク上で開かないでください。", vbCritical

ThisWorkbook.Close False

End If

Next

End Sub

Drives.Itemには２つの情報(0 or 1)が入ります。そのうち、サーバのパスは２番目(i=1)に入ります。

複数のネットワークサーバがある場合は１番目(Drives.Item(1))、

３番目(Drives.Item(3))、５番目(Drives.Item(5))・・・　にサーバのパスが入っていきます。

■実行結果

今回はここまで。

---コメント---

タイトルとURLをコピーしました