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
入力制限セルの場合 |
//=============================================================================
// 警告ダイアログの表示を抑止
//=============================================================================
procedure TplExcelFormEx2.Button6Click(Sender: TObject);
begin
xlfExcelApp.DisplayAlerts[0] := False;
end;
//=============================================================================
// 警告ダイアログの表示をする
//=============================================================================
procedure TplExcelFormEx2.Button7Click(Sender: TObject);
begin
xlfExcelApp.DisplayAlerts[0] := True;
end;
|