پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: کد بمب برای یک فایل از جمله کد ها و ماژول ها و فرم ها و شیت ها

  1. #1


    آخرین بازدید
    26 _ 05 _ 2013
    تاریخ عضویت
    February_2013
    نوشته ها
    39
    امتیاز
    7
    سپاس
    0
    سپاس شده
    18 در 14 پست

    کد بمب برای یک فایل از جمله کد ها و ماژول ها و فرم ها و شیت ها

    سلام کد زیر به عنوان یک بمب عمل می کند و در صورتی که انرا با یک if همراه کنید و روی رویداد open_worksheet قرار دهید می تواند با فرا رسیدن یک زمان خاص یا پس از آن کل فایل اکسل را پاک کند(kill) کند.
    کد PHP:

    Sub Suicide
    ()
    Dim Ndx As Integer
    With ThisWorkbook
    .Save
    For Ndx 1 To Application.RecentFiles.Count
    If Application.RecentFiles(Ndx).Path = .FullName Then
    Application
    .RecentFiles(Ndx).Delete
    Exit For
    End If
    Next Ndx
    .ChangeFileAccess Mode:=xlReadOnly
    Kill 
    .FullName
    .Close SaveChanges:=False
    End With
    End Sub 
    توضیح کد:

    Application.RecentFiles.Count تعداد فایل هایی را که بر روی RecentFiles درمنویfile قرار دارد را برمی گرداند
    Application.RecentFiles(Ndx).Pathاین قطعه از کد مسیر فایل شماره Ndx رایرمی گرداند.که Ndx شماره فایل بر روی RecentFilesاست مثلا اگر Ndxبرابر با 7 باشد یعنی هفتمین فایلی که بر رویRecentFiles است . مثلا اگر فایلی بنام bomb بر روی دسک تاپ داشته باشیم خروجی این قطعه از کد به صورت زیر است:
    C:\Documents and Settings\anahit\Desktop\bomb.xlsm
    ThisWorkbook.FullName نیز خروجی آن به شکل زیر است:
    C:\Documents and Settings\anahit\Desktop\bomb.xlsm
    Application.RecentFiles(Ndx).Delete این دستوراگر شرط بر قرار بود انرا از روی RecentFiles پاک می کند و بعد از حلقه خارج می شود و حلقه به تعداد Ndx تکرار می شود و اگر شرط برقرار بود مجدد انرا از RecentFiles پاک می کند
    ChangeFileAccess Mode:=xlReadOnly ThisWorkbook.
    دسترسی به این ورک بوک را ReadOnly می کند.

    Kill pathname:
    این تابع فایل یا فایل هایی را که مسیر و نام آنها در آرگومان pathname تعین می شود را پاک می کند فایل های پاک شده به سطل زباله ویندوز منتقل نمی شوند و برای همیشه پاک می شوند


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

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    28 _ 03 _ 2015
    تاریخ عضویت
    March_2012
    نوشته ها
    118
    امتیاز
    88
    سپاس
    11
    سپاس شده
    81 در 31 پست

    RE: کد بمب برای یک فایل از جمله کد ها و ماژول ها و فرم ها و شیت ها

    یه فایل دیگه هم ارسال کردین چرا برداشتیدش


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

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

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

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

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

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

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