שמירת חוברת עבודה ללא מקרואים

אם יש לכם קובץ שאתם רוצים לשמור בשם, מבלי לאפשר ממנו הרצת פקודות מאקרו בעתיד, השתמשו בקוד הבא:

Dim strFile As String
Dim file_path As String
Dim file_name As String

file_path = "X:\BBB\CCC\AAAA\2014 Weekly Sales Report\Weekly\Weekly Sales Report "
file_name = "myCustomers_new"

strFile = file_path & file_name & ".xlsx"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True

קוד זה יאפשר לשמור את הקובץ file_name בנתיב file_path שתבחרו, והוא יישמר כקובץ מסוג xlsx רגיל, בו אין אפשרות להריץ קוד.

---

רכיב Application.DisplayAlerts, הוא שאומר האם להציג חלונות קופצים למשתמש, במקרה זה בזמן השמירה, לכן אנו מבטלים אותו בתחילת השמירה ומפעילים אותו מחדש אחריה

---

תגיות קשורות:

#אקסל #מקרו #VBA #קוד