Close only active file and not all excel files

[lfmemp]

Hi there,

I am using the below code for a file I need to save and close and password protect. The code works fine, but the only thing is that when is closes, it does shut down all my excel files that I have open. What I want it to do is to save and close only that active file where the macro is in and not all my excel files I ahve open at that moment. Can please somebody help me?

Thanks




Public CloseMode As Boolean
Sub Save_Close()
Dim Passwrd As String
Dim xx As Variant
Dim sFileFormat
Passwrd = "PASSWORD"
xx = MsgBox("Do you want to close the file?", vbYesNo)
If xx <> vbYes Then
Cancel = True
Else
'fileformats
' xls = -4143 < 2007
' xlsm = 52 2007 >
With Application
.DisplayAlerts = False
sFileFormat = IIf(.Version < 12, -4143, 52)
End With
With ThisWorkbook
.SaveAs Filename:=.FullName, _
FileFormat:=sFileFormat, _
Password:=Passwrd, _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
.Saved = True
End With
'allow workbook to close
CloseMode = False
With Application
.DisplayAlerts = True
.Quit
End With
End If
End Sub

[DobbsHead]

First off, please wrap your code in code tags. Also please, for the love of god, format your code better. Seriously.

Try the code below.

Public CloseMode As Boolean
Sub Save_Close()
Dim Passwrd As String
Dim xx As Variant
Dim sFileFormat

Passwrd = "PASSWORD"
xx = MsgBox("Do you want to close the file?", vbYesNo)

If xx <> vbYes Then
Cancel = True
Else
'Why did you leave these comments in?
'fileformats
' xls = -4143 < 2007
' xlsm = 52 2007 >
With Application
.DisplayAlerts = False
sFileFormat = IIf(.Version < 12, -4143, 52)
End With
With ThisWorkbook
.SaveAs Filename:=.FullName, _
FileFormat:=sFileFormat, _
Password:=Passwrd, _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
.Saved = True
.Close '<--- This will close the workbook, not the application
End With
'This is where you told the application (not the workbook) to close
'CloseMode = False
'With Application '<-- See, the word "application" is a clue as to what you are changing
'.DisplayAlerts = True
'.Quit
'End With
End If
End Sub