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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • cooran

    • 2015/03/04
    • 21
    • 60.00
    #1

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

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

      • 2011/04/29
      • 384
      • 67.00
      #2
      من از کد زیر استفاده میکنم برای پشتیبان گیری و خروجی 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

        کامنت

        قبلی template بعدی
        چند لحظه..