Excelスキルアップコレクション
           〜 Something U Want 〜


Google  

WWW を検索
Excelスキルアップコレクション内 を検索
 @     Top  >     Excelプロフェッショナルエンジニアテクニック Topics  >     (14) ファイル保存後に編集されて未保存の状態ではないか調べる

 
(14) ファイル保存後に編集されて未保存の状態ではないか調べる

 VBProjectがファイル保存後に編集されて、未保存の状態ではないか判別する方法を紹介します。

 Visual Baisc プロジェクトへのアクセスを許可します。

  「(04) Visual Baisc プロジェクトへのアクセスを許可する方法」

 下記サンプルコードは、アクティブなVBProjectの保存状態を調べて、メッセージボックスで通達するプロシジャです。
<Module1>

 1行目:  Option Explicit
 2行目:  
 3行目:  Public Sub Sample_Get_SavedProperty_01()
 4行目:  
 5行目:      ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 6行目:      ' 参照設定:
 7行目:      ' 「Microsoft Visual Basic for Application Extensibility」
 8行目:      ' ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
 9行目:      ' アクティブなVBProjectを編集に取得する
10行目:      Dim W As VBProject
11行目:      Set W = Application.VBE.ActiveVBProject
12行目:      
13行目:      ' VBProjectの保存状態を調べる。
14行目:      MsgBox W.Saved
15行目:  
16行目:      ' オブジェクトの解放を行う。
17行目:      Set W = Nothing
18行目:  
19行目:  End Sub
 以下は、このサンプルコードを「Book1.xls」に記載し、VBProjectを未保存の状態のまま「Sample_Get_SavedProperty_01」を実行した例です。
 「Book1.xls」を保存して、再び「Sample_Get_SavedProperty_01」を実行すると、メッセージボックスで"True"が表示されます。


 Savedプロパティは、参照専用のプロパティであり、値の設定はできません。
ページの先頭へ