نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: مشکل در ذخیره فایل

  1. #1


    آخرین بازدید
    2023/02/05
    تاریخ عضویت
    December 2014
    محل سکونت
    https://t.me/pump_upp
    نوشته ها
    130
    امتیاز
    38
    سپاس
    85
    سپاس شده
    24 در 18 پست
    تعیین سطح نشده است

    mfr به  ICQ ارسال پیام mfr به AIM ارسال پیام mfr به Yahoo ارسال پیام

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

    فایل پیوست توسط ماکرو در ابتدا ستون b را پاک میکند ولی متاسفانه بعداز بستن و باز کردن مجدد فایل محتویات هنوز پاک نشده اند ... چون فایل شیر شده و پروتکت شده ... کسی میتونه راهنماییم کنه چطور فایل شیر شده و پروتکت شده رو ذخیره بکنم .. البته اسم فایل هر بار ممکنه rename بشه .. میخوام ماکرو نیاز به تغیییر نداشته باشه ... ممنونم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx xx.xlsx اطلاعات (58.4 کیلو بایت, 15 نمایش)
    ویرایش توسط mfr : 2015/11/26 در ساعت 02:57

  2.  

  3. #2


    آخرین بازدید
    2023/02/05
    تاریخ عضویت
    December 2014
    محل سکونت
    https://t.me/pump_upp
    نوشته ها
    130
    امتیاز
    38
    سپاس
    85
    سپاس شده
    24 در 18 پست
    تعیین سطح نشده است

    mfr به  ICQ ارسال پیام mfr به AIM ارسال پیام mfr به Yahoo ارسال پیام
    ای بابا کسی نیست جواب بده .... چه سئوال سختی ؟؟؟؟؟؟!!!!!!!!

  4. #3


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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

    کد:
    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

  5. سپاس ها (2)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است