2017-03-19 10 views
1

アドインを表示していて、ワークシートをアクティブブックにコピーしてから、アドインを再度非表示にしています。これは正常に機能しますが、Excelブックを閉じたときにアドインの変更を保存するかどうかを確認するプロンプトが表示されます。変更を保存するプロンプトが表示されずにアドインが常に閉じられるように、この構文を変更するにはどうすればよいですか?Excel VBA保存するプロンプトなしでアドインを閉じるには

Dim wbName As String 
wbName = ActiveWorkbook.Name 
ThisWorkbook.IsAddin = False 
Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam") 
Sheets("Green").Select 
ActiveSheet.Copy Before:=Workbooks(wbName).Sheets(1) 
LookupWB.IsAddin = True 
+1

は、この行を追加します。 'LookupWB.Saved = true'を – Fadi

+0

しかし、私はあなたのアドインを表示し、それを非表示にする必要はないと思います。 – Fadi

+0

@Fadi - アドインに存在するワークシートを変更しようとしていますが、これを実現する唯一の方法はアドインの表示、現在のワークブックへのワークシートのコピー、アドインの非表示 – IcyPopTarts

答えて

3

あなたはこの行を追加することができます:LookupWB.Saved = True
をしかし、私はあなたがアドインを表示し、それを非表示にする必要はないと思います。

は、このコードを試してみてください。

Sub test() 

Dim Wb As Workbook: Set Wb = ActiveWorkbook 
Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam") 
LookupWB.Sheets("Green").Copy Before:=Wb.Sheets(1) 

End Sub 
+1

完璧に働いた!アドインを表示する必要はなく、ワークシートをコピーしてから終了すると削除できます。 – IcyPopTarts

関連する問題