Application.displayalerts = falseポップアップウィンドウを停止しない

Question

ExcelでVBAを使用して、複数の値を検索および置換しようとしています。更新されるフィールドにはHTMLテキストが含まれているので、書式設定の変更が失われることを示すウィンドウポップアップが表示されます。TFSに公開されると、プレーンテキストとして保存されます。 Application.displayalerts = falseを使用していると、そのウィンドウが表示されなくなりません。

これを行うにはコードを使用する方法はありますか？以下の行をAddinng

Answer 1

問題を解決します。これは、あなたがこのようCALCS、イベント、画面と警告をオフにすることができます追加することで

Sub SetEvents(ByVal State As Boolean) 
    With Excel.Application 
     .DisplayAlerts = State 
     .ScreenUpdating = State 
     .EnableEvents = State 
     If State = True Then .Calculation = xlCalculationAutomatic Else .Calculation = xlCalculationManual 
    End With 
End Sub 

：あなたが興味を持っている場合

Application.EnableEvents = False 

、私は長いプロセスを起動したときに、この機能を使用したいですあなたのメインサブ：

Sub CallEvents() 
    SetEvents False 
    'Do some stuff 
    SetEvents True 
End Sub