Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2009年06月10日] [更新 2013年11月14日] エクセル操作フォームEx
エクセル操作フォームEx   参考コード類
保護シート等の警告ダイアログ
動作確認等 Windows 7 U64(SP1) + Delphi XE Pro + Excel 2010







警告ダイアログを表示させない方法


保護シートやセルまたは入力制限をしていると,下図のような警告ダイアログが表示されます.これを表示させない,または自前のダイアログで処理するには,DisplayAlerts を False にします.
False にすると何も表示されなくなります.入力値を判定してダイアログを表示することも必要となるでしょう.


図1
保護されたシートの場合
図2
入力制限セルの場合

リスト1
警告ダイアログの表示を制御する
//=============================================================================
//  警告ダイアログの表示を抑止
//=============================================================================
procedure TplExcelFormEx2.Button6Click(Sender: TObject);
begin
  xlfExcelApp.DisplayAlerts[0] := False;
end;

//=============================================================================
//  警告ダイアログの表示をする
//=============================================================================
procedure TplExcelFormEx2.Button7Click(Sender: TObject);
begin
  xlfExcelApp.DisplayAlerts[0] := True;
end;