Na oplaan script 2e sheet sluiten

[igiegel]

Ik heb de volgende script gebruikt, hier van het forum.
Nu werkt deze perfect alleen opent hij,na het oplsaan, het opgeslagen project deze wil ik sluiten maar dat ik nog wel door kan gaan met de huidige excel project

Sub Opslaan()
'
' Opslaan Macro
'

  Dim strFileName As Variant
  Dim strPath As String
  strFileName = Range("O3").Value
  strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
                                              FileFilter:="Excel Files (*.xls), *.xls, Excel 2007 Files (*.xlsm), *.xslm", _
                                              FilterIndex:=1, _
                                              Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
  If strFileName = False Then
    MsgBox "Oh oh... je hebt niet opgeslagen! "
  Else
    ActiveSheet.Copy
    With ActiveWorkbook
    With ActiveSheet
            .Unprotect (1975)
        .UsedRange.Value = .UsedRange.Value
        .Protect (1975)
        
    End With
       
    .SaveAs Filename:=strFileName
  
    End With
  
  MsgBox "Gelukt!  Opgeslagen als: " & strFileName


  End If
End Sub

 

[HSV]

Voeg de rode regel in.

 End If
 [COLOR="red"]ActiveWorkbook.Close[/COLOR]
End Sub

 

[igiegel]

Bedankt

 

[Superzeeuw]

Wil je de vraag nog op opgelost zetten.