exit文でマクロを停止するステートメント

Question

こんにちは私は、保存完了後にファイルの場所フォルダをポップアップするつもりです。私の問題は私が保存をキャンセルするときです。フォルダもポップアップ表示されます。保存をキャンセルするをクリックすると、フォルダポップアップを停止する方法。イム間違っていない場合は、ここでexit文

ことによって行うことができ、私のコード

Private Sub savebr_Click() 


Dim varResult As Variant 
Dim saveas As String 
Dim fname As String 


Cells.AutoFilter 
'to get original filename put below code 

fname = ActiveWorkbook.Name 

saveas = "C:/newfolder.Show fname 


'to open targeted folder after save 

Call Shell("explorer.exe" & " " & ActiveWorkbook.path, vbNormalFocus) 




End Sub 

Answer 1

あなたのVBEウィンドウを開きます。 ThisWorkbookに行く。

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 
    If (Success) Then 
     Call Shell("explorer.exe" & " " & ActiveWorkbook.Path, vbNormalFocus) 
    End If 
End Sub 

このマクロは、通常の保存方法を使用して保存した後にフォルダを開きます。

**ユーザーが保存をキャンセルしたときに更新されます。