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

[vaghean]

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

سلام شرمنده تاپیکو اوردم بالا چون بحثه جالبی بود
می گم من یه فایلی دارم که می خوام بعد از مدتی یا با زدن دکمه ای اون سل های قفل نشدم قفل بشن چون برنامه ای هست که بعضی از سل هاش فعالن بعد از زدن دکمه محاسبات می خوام اون قسمتا هم دیگه دست نخوره(اگر هم با پاسوورد متفاوت فقط اون سل ها باز بشن چه بهتر ولی اصلش اون قسمتش برام مهمه)

[saeidyad]

با درود فروان

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

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

[Pbapba]

با درود فروان

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



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

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

[saeed_ghame]

سلام . وقتی که ما محدودیتی میزاریم روی فایل
مثلا به مدت یک ماه کار کنه
حالا اگر شخص دیگه ای قبل اتمام اون ییک ماه از فایل save as بگیره . اون وقت بی فایده میشه این حرکت ک ؟
راه حلی هست >؟
ممنون

[saeed_ghame]

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 بگیره . اون وقت بی فایده میشه این حرکت ک ؟
راه حلی هست >؟
ممنون