صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 12

موضوع: قفل سلول هایی که فرمول دارن

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

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

    سلام این کد رو در قسمت Vb شیت مورد نظر بزارین
    با این کد هر سلولی که توش فرمول باشه رو قفل میکنه اما روی سلول های دیگه کلیک کنید دیگه شیت قفل نیست. دیگه دردسرهای مربوط به قفل شیت رو هم ندارین
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim rng As Range
       For Each rng In Target.Cells
          If rng.HasFormula Then
             ActiveSheet.Protect
             Exit Sub
          Else
             ActiveSheet.Unprotect
          End If
       Next rng End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط ~M*E*H*D*I~ : 2014/09/21 در ساعت 07:44



  2.  

  3. #2


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    با سلام
    من کاری که گفتید رو انجام دادم ولی فرقی نکرد!
    آیا نکته ای برای این کار وجود داره یا جایی از عملیاتی که انجام دادم اشتباه بوده ؟! لطفا در صورت امکان فایل نمونه بگذارید ممنونم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.jpg
مشاهده: 17
حجم:  201.8 کیلو بایت

  4. #3


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

    نقل قول نوشته اصلی توسط Skynet نمایش پست ها
    با سلام
    من کاری که گفتید رو انجام دادم ولی فرقی نکرد!
    آیا نکته ای برای این کار وجود داره یا جایی از عملیاتی که انجام دادم اشتباه بوده ؟! لطفا در صورت امکان فایل نمونه بگذارید ممنونم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.jpg
مشاهده: 17
حجم:  201.8 کیلو بایت

    سلام دوست عزیز
    من کد دوستمون رو یکم اصلاح میکنم. بعضی جاها باید اینتر میخورده که نخورده

    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
       Dim rng As Range
       For Each rng In Target.Cells
          If rng.HasFormula Then
             ActiveSheet.Protect
             Exit Sub
          Else
             ActiveSheet.Unprotect
          End If
       Next rng 
    End Sub

  5. سپاس ها (4)


  6. #4


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    با سلام و احترام
    عالیییییییی خیلی خیلی ممنونم فوق العاده بهم کمک میکنه مرسییی

  7. #5


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها

    سلام دوست عزیز
    من کد دوستمون رو یکم اصلاح میکنم. بعضی جاها باید اینتر میخورده که نخورده

    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
       Dim rng As Range
       For Each rng In Target.Cells
          If rng.HasFormula Then
             ActiveSheet.Protect
             Exit Sub
          Else
             ActiveSheet.Unprotect
          End If
       Next rng 
    End Sub

    ضمن تشکر مجدد، یک سوال؟
    آیا امکان این هست که این کد رو جوری طراحی کرد که در پایان کد دیگری اجرا شود ؟!
    چون من با ماکرو عملیاتی رو ضبط کردم که شامل اضافه کردن و حذف سلول ها و سطرهایی میشه که حاوی فرمول هم هستن، که با کپی این کد قفل فرمول در شیت مربوطه، ماکروی از قبل ضبط شده به مشکل بر می خوره چون نمی تونه سلول های حاوی فرمول رو حذف کنه و نیمه کاره متوقف میشه .
    آیا راهی برای حل این مشکل هست خیلی ممنونم ؟

  8. #6


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

    نقل قول نوشته اصلی توسط Skynet نمایش پست ها
    ضمن تشکر مجدد، یک سوال؟
    آیا امکان این هست که این کد رو جوری طراحی کرد که در پایان کد دیگری اجرا شود ؟!
    چون من با ماکرو عملیاتی رو ضبط کردم که شامل اضافه کردن و حذف سلول ها و سطرهایی میشه که حاوی فرمول هم هستن، که با کپی این کد قفل فرمول در شیت مربوطه، ماکروی از قبل ضبط شده به مشکل بر می خوره چون نمی تونه سلول های حاوی فرمول رو حذف کنه و نیمه کاره متوقف میشه .
    آیا راهی برای حل این مشکل هست خیلی ممنونم ؟
    درست متوجه سوالتون نشدم اما چیزی که میخواین قابل انجامه. کافیه قبل از خط آخر اسم ماکرویی که ضبط کردین رو بنویسید

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    ممنونم از شما

  11. #8


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    درست متوجه سوالتون نشدم اما چیزی که میخواین قابل انجامه. کافیه قبل از خط آخر اسم ماکرویی که ضبط کردین رو بنویسید

    جناب قاسمیان عزیز، ببخشید نتونستم منظورمو رو درست بیان کنم، با یک مثال منظورم رو کامل می کنم.
    در فایل پیوست یک مثال تهیه کردم، که یک ماکرو جهت انتقال داده از یک جدول در شیت 2 به شیت 1 تهیه شده که جدول مربوط در شیت 1، یک ستون اخر رو بیشتر داره که حاوی محاسبه سود هست، ماکروی مربوطه جدول شیت 2 رو از سطر عنوان تا سطر آخر کپی کرده و به شیت 1 سطر یک میاره و بعد از انتقال ، سطر یک که حاوی عنوان جدول شیت 2 بود رو پاک میکنه!
    جدا از اینکه اصولا راه بهتری برای انجام این انتقال هست، اما درخواست من این هست که از کد قف گذاری ، در این مثال به چه صورتی استفاده کنم که بعد از انتقال ، سلول های حاوی فرمول، قفل شده و قابل ویرایش نباشند!
    خیلی خیلی ممنونم
    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.jpg
مشاهده: 10
حجم:  263.9 کیلو بایت
    فايل هاي پيوست شده فايل هاي پيوست شده

  12. #9


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

    چیزی که من از پیام شما برداشت کردم اینه که اگه شیت قفل بشه مشکل شما حل میشه
    من کدهاتون رو اصلاح کردم لطفا بررسی بفرمایید
    فايل هاي پيوست شده فايل هاي پيوست شده

  13. سپاس ها (3)


  14. #10


    آخرین بازدید
    2023/12/24
    تاریخ عضویت
    March 2017
    نوشته ها
    142
    امتیاز
    59
    سپاس
    83
    سپاس شده
    47 در 28 پست
    تعیین سطح نشده است

    با سلام و احترام
    خیلی ممنونم جناب قاسمیان این شیوه هم بدون کد نویسی خیلی عالیه ممنونم.
    یک مشکلی که وجود داره اینکه ظاهرا" در هر دو روش، خصوصیت Table از لحاظ فیلتر کردن عناصر و گسترش سطر های با فشردن کلید Inter از کار می افته که برای من که بی نهایت از Table ها در کارام استفاده می کنم مشکل بزرگی رو فراهم می کنه بطوریکه عملا نمی تونم از هیچکدوم استفاده کنم چون نیاز به خاصیت فیلتر عناصر و اضافه شدن سطرهای جدیدی با فشردن کلید tab دارم، با این حال خیلی خیلی ممنونم از توجه شما


صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

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

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

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

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

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