[حل شده] چلوگری از ذخیره شدن فایل اکسل باقالب xlsm به فرمت های دیگر

[saeed bagheri]

سلام

آیاکسی از دوستان میتونه کدی رو بنویسه که از Save As شدن فایل اکسل در قالب xlsm به فرمت های دیگر (xlsx )جلوگیری کنه
نکته : فایل درقالب xlsm ذخیره بشه (روی خودش یعنی save بازدن مستقیم دکمه save یا ctrl + s )

فقط Save As نشه .

ممنون

[rasools13]

سلام فکر کنم مشابه این سوال را قبل پرسیده بودید

کد ذیل را در ناحیه thisworkbook قرار دهید
فقط امکان ذخیره وجود دارد و در صورت save as پیغام عدم امکان ذخیره نمایش داده می شود

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim UserGuid As Long
    If SaveAsUI = True Then
    UserGuid = MsgBox("شما اجازه ذخيره اين فايل با نام يا فرمت ديگري را نداريد.آيا ميخواهيد تغييرات انجام شده ذخيره شود؟", vbQuestion + vbOKCancel)
    Cancel = (UserGuid = vbCancel)
    If Cancel = False Then Me.Save
         Cancel = True
    End If
End Sub 

[saeed bagheri]

سوال قبلی کلا ذخیره نمیکرد

عالی بود

ممنون