مشکل در ذخیره فایل

[mfr]

فایل پیوست توسط ماکرو در ابتدا ستون b را پاک میکند ولی متاسفانه بعداز بستن و باز کردن مجدد فایل محتویات هنوز پاک نشده اند ... چون فایل شیر شده و پروتکت شده ... کسی میتونه راهنماییم کنه چطور فایل شیر شده و پروتکت شده رو ذخیره بکنم .. البته اسم فایل هر بار ممکنه rename بشه .. میخوام ماکرو نیاز به تغیییر نداشته باشه ... ممنونم

[mfr]

ای بابا کسی نیست جواب بده .... چه سئوال سختی ؟؟؟؟؟؟!!!!!!!!

[Amir Ghasemiyan]

سلام دوست عزیز

این کد رو بررسی بفرمایید.
جای چند خط رو عوض کردم. ظاهرا مشکلی نباید داشته باشه

Sub Macro8()
 Application.DisplayAlerts = False
 ActiveWorkbook.UnprotectSharing sharingpassword:="1"
 ActiveSheet.Unprotect
 Range("a4:AA4").Select
 Selection.AutoFilter
 Range("C5:C14000").Select
 Selection.ClearContents
 Range("a4:AA4").Select
 Selection.AutoFilter
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
 , AllowSorting:=True, AllowFiltering:=True
 
 Application.DisplayAlerts = True
 ActiveWorkbook.Save
 ActiveWorkbook.ProtectSharing , _
 sharingpassword:="1", FileFormat:=xlOpenXMLWorkbookMacroEnabled
 End Sub