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

موضوع: كد بمب در اكسل

  1. #1


    آخرین بازدید
    2012/07/25
    تاریخ عضویت
    September 2010
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    كد بمب در اكسل

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

  2.  

  3. #2


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February 2010
    محل سکونت
    مشهد
    نوشته ها
    435
    امتیاز
    950
    سپاس
    294
    سپاس شده
    881 در 210 پست
    سطح اکسل
    81.00 %

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

    RE: كد بمب در اكسل

    شما خيلي موضوع تخريبي ان را غليظ گفتيد يك كم موضوع پيچيده ميشه .
    ولي براي اين كار بايد با استفاده از تاريخ كامپيوتر بايد اين عمل انجام بگيرد كه در تاريخ مشخص كه شما تعريف ميكنيد در رخداد open اين فايل بايد تعريف نمود . كه فايل minimize گردد سپس تمام اطلاعات اين فايل delete و فايل save گردد . اين كد را در درون يك if بايد بنويسيم . البته ممكن است هزار فايل را 1000 نفر به 1000 مدل بنويسند من نظرم اين بود . براي اين كار بايد حداقل آشنائي با ويژوال بيسيك را داشته باشيد


  4. #3


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

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

    RE: كد بمب در اكسل

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

    همانطور که استاد نیز فرمودند با کدنویسی می توانی این کار را انجام دهی و یا از تاریخ کامپویتر استفاده کنید و یا تعداد باز شدن او استفاده از این فایل که مثلا بعد از اینکه 10 بار این فایل را باز کرده و استفاده کند در یازدهمین مرتبه اگر باز شد فایل یا کاملا پاک شده و سیو شود و یا قفل شده و اخطار باطل شدن فایل را بدهد و نیاز به ریجستر کردن و ورود پسورد باشد تا به آن فایل دسترسی پیدا کند
    دقیقا همین کار را در پنج سال پیش برای کسی که یک لیست را از من خواسته بود و نمی توانستم آن لیست را به او ندهم انجام دادم تا پس از یک روز آن فایل منهدم شود.
    در صورت نیاز فایل نمونه را برایتان ارسال میکنم


  5. #4


    آخرین بازدید
    2012/07/25
    تاریخ عضویت
    September 2010
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    RE: كد بمب در اكسل

    از اينكه با استادان بزرگ اكسل در ايران هم كلام هستم و از اينكه مي بنيم با اين خضوع و خشوع جواب تمام سوالات اعضا رو مي دن بخودم مي بالم كه در چنين سايت بزرگي عضو كوچكي هستم اميد دارم كه اين حقير هم روزي بتوانم عنصر مثبتي در اين سايت گردم

  6. #5


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

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

    RE: كد بمب در اكسل

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

    نمونه فایل را آماده کرده ام که اعتبار آن تا تاریخ 2010/11/16 است و بعد از آن فایل انقضا شده و تمام دیتاهای آن از بین می رود و قابل استفاده نخواهد بود
    سورس این فایل باز بوده و می توانید نمونه کد ها را ببینید

    فایل ضمیمه:

    [attachment=104]
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls بمب.xls اطلاعات (28.5 کیلو بایت, 169 نمایش)

  7. سپاس ها (2)


  8. #6


    آخرین بازدید
    2012/07/25
    تاریخ عضویت
    September 2010
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    RE: كد بمب در اكسل

    استاد من فرمول رو گم كردم و فايل شنا هم كه تاريخ آن گذشته است و نمي توان مشاهده نمود مي شود لطف كنيد مراحل را پله پله و همينطور فرمول را برايم توضيح دهيد و ارسال كنيد

  9. #7


    آخرین بازدید
    2012/07/25
    تاریخ عضویت
    September 2010
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    RE: كد بمب در اكسل

    استاد من فرمول را گم كردم و فيل شما هم باز نمي شود مي شود منت گذاشته و مراحل را بطور ساده برايم توضيح يا عكسش را برايم بفرستيد و فرمول را هم مجدد بنويسيد و برايم ارسال كنيد معذرت مي خوام ياد نگرفتم هنوز؟

  10. #8


    آخرین بازدید
    2015/10/20
    تاریخ عضویت
    December 2011
    نوشته ها
    272
    امتیاز
    251
    سپاس
    216
    سپاس شده
    231 در 76 پست
    تعیین سطح نشده است

    RE: كد بمب در اكسل

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

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

  11. #9


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

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

    RE: كد بمب در اكسل

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

    فایل را تغییر دادم و یک کلید هم بهش اضافه کردم تا زمانی که تاریخ انقضاء آن گذشت باز هم برای باز کردن آن مشکلی نداشته باشید

    البته این تاریخ انقضاء در این فایل روشی ساده بوده و همچنین برای دور زدن آن هم کار بر با عقب کشیدن تاریخ سیستم می تواند آن را باز کند که با تغییراتی در کد می توان کاری کرد که با عقب کشیدن تاریخ هم دیگه آن فایل باز نشه

    کدی که در این فایل قرار داده بودم هم همین جا نوشتم تا اگر در مورد کد سئوالی دارید بفرمائین تا در خدمتون باشم

    این کد در اونت اوپن ورک بوک قرار داده شده یعنی کد را جایی قرار دادیم و نوشتیم که با باز شدن فایل این کدها اجرا بشن همون طور که می دونید وقتی تو صفحه کد نویسی روی در قسمت وی بی پروجکت اگر روی This Workbook دوبل کلید کنید وارد صفحه کد نویسی وروک بوکتون می شین که اونجا اونتهای مختلفی داره که از مکبو باکس بالای صفح سمت راست می تونید آنها رو ببینید که یکی از آنها اونت اوپن هست
    در این کد یک شرط نوشته شده که اگر Now() یعنی تاریخ جاری سیستم از یک تاریخ کخ مشخص کردیم بزرگتر شد بیاد با یک حلقه که از یک تا تعداد شیتهای که داریم دور بخوره و تمام سلهای آن شیت را پاک کنه و در نهایت فرمی که طراحی کردیم رو باز کنه تو آن فرم که کدی نوشتیم که با کلید کردن آن ورک بوک رو سیو میکنه و از آن خارج میشه
    Private Sub Workbook_Open()
    Dim i

    If Now() > "2013/11/16" Then
    For i = 1 To Sheets.Count
    Sheets(i).Cells.Clear
    ActiveWorkbook.Save
    Next i
    UserForm1.Show
    End If
    End Sub
    کدی شبیه به کد قبلی در اونت سلکشن چنج هم قرار دادیم که با کلید روی هر سل دوباره فرم باز بشه از کار کردن با فایل جلوگیری کنه

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Now() > "2013/11/16" Then
    UserForm1.Show
    End If
    End Sub


    این هم کدهای که در یوزرفرم استفاده شده

    سیو کردن فایل و بستن فایل
    Private Sub CommandButton1_Click()
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    End Sub


    این کد رو گذاشتم که بتونید فرم رو ببندین و از فایلا استفاده کنید
    Private Sub CommandButton2_Click()
    End
    End Sub

    این کد را که در اونت خروج از فرم قراردادیم برای اینکه با زدن ضربدر قرمز نشه فرم را بست
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    End Sub



    اگر سئوالی بود در خدمت شما هستم

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


  12. #10


    آخرین بازدید
    2019/07/27
    تاریخ عضویت
    January 2012
    نوشته ها
    37
    امتیاز
    4
    سپاس
    4
    سپاس شده
    4 در 4 پست
    تعیین سطح نشده است

    RE: كد بمب در اكسل

    جناب آقاي شمس العلما ميشه نمونه فايلي رو بذاريد كه مثلا بعد از تعداد معيني باز شدن بعدش ديگه اطلاعات از بين برن.
    به جاي تاريخ ، تعداد دفعات باز شدن


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

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

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

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

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

اکسل کد 0[-01000]

کدهای نمونه برای اکسل

کد بمب در اکسل

کد تخفیف

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

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

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