حذف save as در اکسل

[parisasasa]

با سلام
چطور میشه دکمه save as رو در فایلهای اکسل حذف کرد ؟
فایل من با فرمت .xlsm است

[~M*E*H*D*I~]

RE: حذف save as در اکسل

کد زیر رو به workbook اضافه کن


[align=left]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


    If SaveAsUI = True Then Cancel = True

End Sub 

[/align]

[parisasasa]

RE: حذف save as در اکسل

سلام
روی 2تا اکسل مختلف امتحان کردم اما روی یکی جواب داد
روی اکسل اصلی من که با فرمت .xlsm هست جواب نداد
نمیدونم مشکل از کجاست !!!

[MEYTI]

RE: حذف save as در اکسل

با سلام
دوست گرام کدهای جناب وطن پرست کاملا صحیح می باشد
لطفا فایلتونو بذارید تا بررسی شود

[~M*E*H*D*I~]

RE: حذف save as در اکسل

سلام
روی 2تا اکسل مختلف امتحان کردم اما روی یکی جواب داد
روی اکسل اصلی من که با فرمت .xlsm هست جواب نداد
نمیدونم مشکل از کجاست !!!

فایلی که فرستادی بررسی میکنم دراولین فرصت جواب خواهم داد