پرسش تعریف کد save button در فایل پروتکت شده با lockxls

[cooran]

سلام و وقت بخیر
فایل اکسل محافظت شده با برنامه lockxls رو می خوام وقتی با کد vba ازش save as بگیرم با پسوند exe ذخیره بشه ولی بصورت xlsm ذخیره میشه ولی زمانی که بطور دستی ازش save as میگیرم خروجی exe میده.این رو واسه این میخوام که کسانی که دارن از فایل استفاده میکنن باتن ذخیره داشته باشن ولی فایل از پروتکت خارج نشه
با تشکر

[a.dal65]

من از کد زیر استفاده میکنم برای پشتیبان گیری و خروجی exe میده :

Private Sub Image15_Click()
ThisWorkbook.SaveCopyAs  Filename:=Environ("SystemRoot") & "\backup\" &  Format(J_TODAY(), "yymmdd") & "_" & Format(Now(), "hhmmss  AM/PM") & ".xlsm"
MsgBox "پشتيبان گيري با موفقيت انجام شد", vbInformation + vbMsgBoxRight, "موفق"
End Sub

تو درایو ویندوزت فولدر windows و فولدر backup
c:\windows\backup
نام فایل رو هم به تاریخ روز ماه سال ساعت دقیقه ثانیه میزنه:
13970911_112355 AM