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

موضوع: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

  1. #1


    آخرین بازدید
    2012/12/03
    تاریخ عضویت
    April 2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    با سلام خدمت همه دوستان و اساتيد لطفا راهنمايي كنيد.
    با vba ميشه فقط درمحدوده خاصي از سلول هاي شيت (نه همه شيت) قابليت cut و paste رو حذف كرد؟ (قابليت copy رو لازم دارم )
    بيشتر اينو براي اين لازم دارم كه cut سلول باعث خطاي refrence
    نشه.
    ممنون

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    با سلام.
    خب این کار رو از طریق قفل کردن سلول هم می توانید انجام دهید.
    کد VBهم... :
    Range("A1:A10").Locked = True
    ActiveSheet.Protect

  4. #3


    آخرین بازدید
    2012/12/03
    تاریخ عضویت
    April 2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    ممنون از راهنماييتون ولي قفل كردن قابليت copy , cut , past و وارد كردن اطلاعات روميگيره هدف من صرفا حذف قابليت cutهست و نه بيشتر

    Private Sub Workbook_Activate()
    Application.CutCopyMode = False

    End Sub
    مشابه اين دستور روميخوام ولي صرفا براي cut
    امكان داره؟

  5. #4


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    117
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلام شما میخواهید که کار برنتونه تعدادی از سلولها را cut یا delete کنه را هش اینه که روی رویداد changeیک شیت اینکد را تایپ کنید:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NoChgRg As Range
    Dim chg As Range
    Set NoChgRg = [a1:f74,j9:j74,n9:u25]
    Set chg = Application.Intersect(Target, NoChgRg)
    If Not chg Is Nothing Then
    Application.EnableEvents = False
    MsgBox "نمي توانيد حذف کنيد سلول محافظت شده است"
    Application.Undo
    Application.EnableEvents = True
    End If
    Set chg = Nothing
    End Sub


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

  6. #5


    آخرین بازدید
    2012/12/03
    تاریخ عضویت
    April 2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    ممنون از زحمتتون من صرفا قصدم حذف قابليت cut هست و قصدم حذف قابليت هاي كپي يا جلوگيري از وارد كردن اطلاعات نيست.قابليت كپي و وارد كردن رو لازم دارم.

  7. #6


    آخرین بازدید
    2019/07/30
    تاریخ عضویت
    March 2012
    نوشته ها
    117
    امتیاز
    92
    سپاس
    11
    سپاس شده
    85 در 32 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلام این کار قابلیت کات کردن محدوده ای را که شما تعریف می کنید را از بین می برد تنها در همون محوده و حتی کپی کردن و پیست کردن هم امکان پذیره شما کد را امتحان کنیدو محدوده را توی کد تغییر بدید [hr]

    Set NoChgRg = [a1:f74,j9:j74,n9:u25]
    محدوده را در این قسمت از برنامه تغییر بده

  8. #7


    آخرین بازدید
    2012/12/03
    تاریخ عضویت
    April 2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    سلولهي رنجي كه شما در فرمول تعيين كردين كامل سلول ها رو قفل ميكنه فقط قابليت select ميده البته اطلاعات ميشه وارد كرد يا paste رو استفاده كرد اما بعد از ظاهر شدن پيغام 'نمي توانيد حذف کنيد سلول محافظت شده است'اگر ok رو بزيم يا پنجره رو ببنديم اطلاعات از بين ميره.
    Set NoChgRg
    no chang rang(رنج كاملا بدون تغيير)
    بازم ممنون

  9. #8


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    نقل قول نوشته اصلی توسط samadi1973
    با سلام خدمت همه دوستان و اساتيد لطفا راهنمايي كنيد.
    با vba ميشه فقط درمحدوده خاصي از سلول هاي شيت (نه همه شيت) قابليت cut و paste رو حذف كرد؟ (قابليت copy رو لازم دارم )
    بيشتر اينو براي اين لازم دارم كه cut سلول باعث خطاي refrence
    نشه.
    ممنون

    با درود فراوان

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

    برای حذف کات در فایل نمونه من کات از تو راست کلیک و از کلید ترکیبی کنترل و ایکس رو حذف کردم و فقط برای محدوده سلهای که با رنگ زرد مشخص شده در نظر گرفته شده است

    امیدوارم همان چیزی که مد نظر شماست بوده باشه


    کد:
    Sub EnableControl(Id As Integer, Enabled As Boolean)
    Dim CB As CommandBar
    Dim C As CommandBarControl
    For Each CB In Application.CommandBars
    Set C = CB.FindControl(Id:=Id, recursive:=True)
    If Not C Is Nothing Then C.Enabled = Enabled
    Next
    End Sub



    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Or Target.Address = Range("c1").Address Or Target.Address = Range("e5").Address Then
    EnableControl 21, False ' cut
    Application.OnKey "^x", ""
    Else
    EnableControl 21, True ' cut
    Application.OnKey "^x"
    End If
    End Sub



    فایل نمونه:
    [attachment=538]
    فايل هاي پيوست شده فايل هاي پيوست شده

  10. #9


    آخرین بازدید
    2012/12/03
    تاریخ عضویت
    April 2012
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    عالي بود ارشام خان ممنون
    ميشه كاري كرد كه هنگامي كه drag &drop رو انجام ميديم "صرفا "قابليت" move" رو هم گرفت؟
    از اين كه بدون چشمداشت كمك ميكنيد ممنونتم .
    منتظر ميمونم

  11. #10


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)

    نقل قول نوشته اصلی توسط samadi1973
    عالي بود ارشام خان ممنون
    ميشه كاري كرد كه هنگامي كه drag &drop رو انجام ميديم "صرفا "قابليت" move" رو هم گرفت؟
    از اين كه بدون چشمداشت كمك ميكنيد ممنونتم .
    منتظر ميمونم
    با درود فراوان

    اگر منظرو شما اینه که با موس هم نشه درگ کرد و همان کار کات رو انجام داد کافیه به کد قبل یک آیتم دیگر اضاف کنیم
    Application.CellDragAndDrop = False


    که کد به این صورت نوشته میشه

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Or Target.Address = Range("c1").Address Or Target.Address = Range("e5").Address Then
    EnableControl 22, False ' cut
    Application.OnKey "^x", ""
    Application.CellDragAndDrop = False

    Else
    EnableControl 21, True ' cut
    Application.OnKey "^x"
    Application.CellDragAndDrop = True

    End If
    End Sub


    فایل نمونه:
    [attachment=540]


    فايل هاي پيوست شده فايل هاي پيوست شده


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

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

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

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

موضوعات مشابه

  1. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2019/04/09, 22:37
  2. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/19, 00:27
  3. مرخصي
    توسط roohollah1359 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/12/29, 00:05
  4. سوال در مورد امنيت اكسل
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/11/05, 10:25
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2011/02/13, 14:42

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

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

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

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

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