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

موضوع: کد vba جهت جلوگیری از،دلیت کردن یک شیت

  1. #1


    آخرین بازدید
    2015/09/21
    تاریخ عضویت
    August 2015
    نوشته ها
    8
    امتیاز
    11
    سپاس
    2
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    کد vba جهت جلوگیری از،دلیت کردن یک شیت

    سلام یه کد vba میخواستم که پقتی روی شیت کلیک راست میکنیم گزینه delete غیر فعال بشه و کسب نتونه شیت رو حذف کنه
    ممنون میشم از دوستان
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    کد زیر را تو ایونت SheetBeforeDelete فایل وارد کنید

    کد PHP:
    Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    Dim MyName As String


    MyName 
    ThisWorkbook.ActiveSheet.Name


    ThisWorkbook
    .ActiveSheet.Name Left(MyName30) + "#"


    ThisWorkbook.ActiveSheet.Copy _
    After
    :=Sheets(ThisWorkbook.ActiveSheet.Index)


    ThisWorkbook.ActiveSheet.Name MyName
    End Sub 



  4. #3


    آخرین بازدید
    2015/09/21
    تاریخ عضویت
    August 2015
    نوشته ها
    8
    امتیاز
    11
    سپاس
    2
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    مرسی ممنون از شما

  5. #4


    آخرین بازدید
    2015/09/21
    تاریخ عضویت
    August 2015
    نوشته ها
    8
    امتیاز
    11
    سپاس
    2
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

  6. #5
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط Prince_6000 نمایش پست ها
    مرسی ممنون از شما
    نقل قول نوشته اصلی توسط Prince_6000 نمایش پست ها
    سلام میشه بیشتر توضیح بدین
    دوست عزیز اگه با کد نویسی تو vba آشنایی نداری بهتره یه دوری تو انجمن بزنید به مقدماتی را یاد بگبرید . در ضمن برای گرفتن جوابتون بهتره تو یه تاپیک سوالتون را بپرسید و از مطرح کردن سوالتون در چند تاپیک جدا خودداری کنید . ممنون از اینکه رعایت می کنید

    بعد از رفتن به محیط کدنویسی ( با زدن alt + f11 ) از سمت چپ روی گزینه This workbook دابل کلیک کرده از صفحه جدید باز شده بر روی general کلیک کرده و workbook را برگزینید حال از سمت راست گزینه SheetBeforeDelete را انتخاب کنید و کدهای ارائه شده در پست بالا را به آنجا منتقل کنید . در نهایت باید چیزی مثل پست بالا شود


  7. سپاس ها (2)


  8. #6


    آخرین بازدید
    2015/09/21
    تاریخ عضویت
    August 2015
    نوشته ها
    8
    امتیاز
    11
    سپاس
    2
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    مرسی ممنون

  9. #7


    آخرین بازدید
    2022/06/05
    تاریخ عضویت
    March 2015
    نوشته ها
    53
    امتیاز
    15
    سپاس
    0
    سپاس شده
    5 در 5 پست
    سطح اکسل
    82.00 %

    ببخشید.من این گزینه SheetBeforeDelete رو ندیدم-گزینه های دیگه هست الا این گزینه.دلیلش چی میتونه باشه؟

  10. #8
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط yamahdi13601982 نمایش پست ها
    ببخشید.من این گزینه SheetBeforeDelete رو ندیدم-گزینه های دیگه هست الا این گزینه.دلیلش چی میتونه باشه؟
    به تصویر زیر عنایت بفرمایید

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  11.jpg
مشاهده: 8
حجم:  182.8 کیلو بایت


  11. سپاس ها (1)



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

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

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

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

  1. پاسخ ها: 3
    آخرين نوشته: 2024/02/13, 23:24
  2. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/06/15, 18:35
  3. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54
  4. کپی از یک شیت به شیت دیگر بدون رویت شیت دوم
    توسط khorasan66 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 3
    آخرين نوشته: 2015/03/04, 22:16

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

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

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

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

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

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