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

موضوع: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2021/07/17
    تاریخ عضویت
    October 2010
    محل سکونت
    تهران
    نوشته ها
    168
    امتیاز
    73
    سپاس
    2
    سپاس شده
    58 در 39 پست
    تعیین سطح نشده است

    نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

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

  2. #2


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    روش آماده ای که فکر نمی کنم برای این کار وجود داشته باشه اما چند روش با کد نویسی برای این کار وجود داره که در زیر توضیح میدم!


    تمامی شیت هایی که در آن فرمول خاصی دارید را از داخل محیط VBدر قسمت properties برای Sheet ها به حالت VeryHidden تغییر دهید.
    در Workbook این کد را بنویسید.
    Private Sub Workbook_Open()
    Dim expiredate As Date
    expiredate = "01/01/2012"

    If (Now < expiredate) Then
    Sheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVisible
    Sheet1.Activate
    Else
    Sheet1.Visible = xlSheetVeryHidden
    Sheet2.Visible = xlSheetVeryHidden
    MsgBox ("this file has been expired")
    ActiveWorkbook.Close
    End If

    End Sub

    در نهایت روی محیط VB پسورد بگذارید.


    فایل نمونه: http://www.mediafire.com/file/bdj78mm6b9oc7jb/ExpireExcelFile.xlsm
    pasword VB: excel iran

  3. #3


    آخرین بازدید
    2021/07/17
    تاریخ عضویت
    October 2010
    محل سکونت
    تهران
    نوشته ها
    168
    امتیاز
    73
    سپاس
    2
    سپاس شده
    58 در 39 پست
    تعیین سطح نشده است

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

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

  4. #4


    آخرین بازدید
    2014/07/19
    تاریخ عضویت
    July 2010
    نوشته ها
    15
    امتیاز
    5
    سپاس
    0
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    Sub Auto_open()
    Dim i

    If Now() > "2011/01/29" Then
    For i = 1 To Sheets.Count

    Sheets(i).Visible = xlSheetVisible
    Sheets(i).Cells.Clear
    Next i
    ActiveWorkbook.Save
    ActiveWorkbook.Close

    Else

    Dim k
    For k = 2 To Sheets.Count
    Sheets(k).Visible = xlSheetVisible
    Next k
    End If

    End Sub


    و

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim j
    For j = 2 To Sheets.Count
    Sheets(j).Visible = xlSheetVeryHidden
    Next j

    ActiveWorkbook.Save

    End Sub
    توجه داشته باشید کد های فوق طوری نوشته شده اند که اگر قبل از باز نمودن فایل , ماکرو اکسل غیر فعال گردد غیر از شیت یک هیچ شیتی نمایش داده نخواهد شد پس بطور یقیین ماکرو ها عمل نموده و شرط ما را کنترل خواهد کرد و اگر تاریخ گذشته باشد تمامی شیت های مخفی را باز ,تمامی اطلاعات را پاک نموده و ذخیره و در نهایت سند را می بندد .

  5. #5

    آخرین بازدید
    2023/01/31
    تاریخ عضویت
    May 2016
    نوشته ها
    2
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Almasi نمایش پست ها
    Sub Auto_open()
    Dim i

    If Now() > "2011/01/29" Then
    For i = 1 To Sheets.Count

    Sheets(i).Visible = xlSheetVisible
    Sheets(i).Cells.Clear
    Next i
    ActiveWorkbook.Save
    ActiveWorkbook.Close

    Else

    Dim k
    For k = 2 To Sheets.Count
    Sheets(k).Visible = xlSheetVisible
    Next k
    End If

    End Sub


    و

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim j
    For j = 2 To Sheets.Count
    Sheets(j).Visible = xlSheetVeryHidden
    Next j

    ActiveWorkbook.Save

    End Sub
    توجه داشته باشید کد های فوق طوری نوشته شده اند که اگر قبل از باز نمودن فایل , ماکرو اکسل غیر فعال گردد غیر از شیت یک هیچ شیتی نمایش داده نخواهد شد پس بطور یقیین ماکرو ها عمل نموده و شرط ما را کنترل خواهد کرد و اگر تاریخ گذشته باشد تمامی شیت های مخفی را باز ,تمامی اطلاعات را پاک نموده و ذخیره و در نهایت سند را می بندد .
    -----------------
    سلام . وقتی که ما محدودیتی میزاریم روی فایل
    مثلا به مدت یک ماه کار کنه
    حالا اگر شخص دیگه ای قبل اتمام اون ییک ماه از فایل save as بگیره . اون وقت بی فایده میشه این حرکت ک ؟
    راه حلی هست >؟

    ممنون

  6. #6


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    February 2011
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    اگه کسی تاریخ کامپیوتر رو عقب ببره اون وقت چی ؟

  7. #7


    آخرین بازدید
    2014/07/19
    تاریخ عضویت
    July 2010
    نوشته ها
    15
    امتیاز
    5
    سپاس
    0
    سپاس شده
    6 در 4 پست
    تعیین سطح نشده است

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

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

  8. #8


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

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

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    با درود فروان

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

  9. سپاس ها (1)


  10. #9

    آخرین بازدید
    2016/02/28
    تاریخ عضویت
    February 2016
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط shamsololama نمایش پست ها
    با درود فروان

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

    با درود
    يك سوال داشتم. اگر از اون فايل save as بدون ماكرو گرفته بشه تمام نخ ها پنبه نميشه؟؟؟؟ ديگه نه ماكرو عمل ميكنه و نه بقيه.. ممكنه راه حلي در اين مورد بفرماييد؟

  11. #10


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    February 2011
    نوشته ها
    16
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

    RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    جناب شمس العلما

    اگر لطف بفرمایید و یک فایل نمونه ضمیمه کنید ممنون میشم.


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

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

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

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

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

قراردادن زمان بر فایل اکسل

تاریخ انقضای فایل اکسل

نحوه ارسال فایل excel از فیس بوک

طريقه بازگرداندن تنظيمات ويندور به گذشته

گذاشتن تاریخ انقضا روی اکسس

نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

تاریخ انقضا فایل اکسل

گذاشتن پیغام در ابتدای فایل اکسل

طریقه گذاشتن تاریخ انقضاء برای فایل های افیس

انبار site:exceliran.com

exceliran.com تاریخ انقضا

نحوه گذاشتن پیغام ورود به فایل های اکسل

طريقه رمز گذاشتن براي شيت هاي اكسل

بازگرداندن فایل اکسل به تاریخ گذشته

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

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

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

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