save as (without password and as xls file not macro enabled)

[gleamng]

Greeting to you all once again

i need help on this, i have a password macro enabled excel file but i want a macro that will save a copy of the file as value, xls (not macro file), using the file name and adding the current year to its name, please help me out on this also.

Thank you all.

 

[rlv01]

Here is a very simple example.

Sub SaveWorkbookToDifferentFileFormat()
    Dim WB As Workbook
    Dim SaveFileName As String
    Dim Ans As Integer

    Set WB = ThisWorkbook

    'Create new name that includes the year
    SaveFileName = WB.Path & "\" & Split(WB.Name, ".")(0) & "_" & Year(Date) & ".xlsx"

    Ans = MsgBox(SaveFileName & vbCr & vbCr & "Continue?", vbYesNo, "Save to non-macro file")
    If Ans = vbYes Then
        WB.SaveAs Filename:=SaveFileName, FileFormat:=xlWorkbookDefault    '.xlsx
    End If
End Sub