[セルの上書き前に警告メッセージを表示する]の状態取得と設定変更

【オブジェクト】

　　_Application

【プロパティ】

    [状態を取得]
    short object->AlertBeforeOverwriting

    [設定の変更]
    object->AlertBeforeOverwriting = short

【値】

    0        オン
    0以外    オフ

【内容】

    [ツール]-[オプション]-[編集]タブ-[セルを上書きする前にメッセージを表示する]の値取得と設定

【サンプル】

//Excelを操作するためのタイプライブラリを読みこむ(Excel2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesXL")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces

//名前空間の設定
using namespace Excel;

//オブジェクトの定義
_ApplicationPtr pXL;

//Excelを起動
void CImp_app_AlertBeforeOverwritingDlg::OnButton1() 
{
     //Excelの起動
    pXL.CreateInstance(L"Excel.Application");

    //Excelを表示
    pXL->Visible = TRUE;

    //WorkBookを新規で開く
    pXL->Workbooks->Add();
}

//状態を取得
void CImp_app_AlertBeforeOverwritingDlg::OnButton2() 
{
    //[セルを上書きする前にメッセージを表示する]チェックボックスの状態を取得
    short Ret =    pXL->AlertBeforeOverwriting;

    if(Ret != 0){
        AfxMessageBox("[セルを上書きする前にメッセージを表示する]チェックボックスの状態は、オンです。");
    }
    else{
        AfxMessageBox("[セルを上書きする前にメッセージを表示する]チェックボックスの状態は、オフです。");
    }
}

void CImp_app_AlertBeforeOverwritingDlg::OnButton3() 
{
    //[セルを上書きする前にメッセージを表示する]チェックボックスの状態を取得
    short Ret =    pXL->AlertBeforeOverwriting;

    if(Ret != 0){
        pXL->AlertBeforeOverwriting = 0;
        AfxMessageBox("[セルを上書きする前にメッセージを表示する]をオンからオフに変更しました。");
    }
    else{
        pXL->AlertBeforeOverwriting = 1;
        AfxMessageBox("[セルを上書きする前にメッセージを表示する]をオフからオンに変更しました。");
    }    
}

//Excelを終了
void CImp_app_AlertBeforeOverwritingDlg::OnButton4() 
{
    pXL->Quit();    
}

[サンプル・ソース]