[حل شده] قفل کردن صفحه اکسل بعد از ده دقیقه

[mohebbi]

دوستان عزيز سلام
يه سوال مهم
چطور ميشه براي يه شيت زمان تعريف كرد
بطوريكه امتحان دهنده به محض اينكه شيت رو باز كرد به فرض مثال 10 دقيقه فرصت جواب دهي داشته باشه و بعد از اون مدت، اطلاعات ديگه قابل تغيير نباشه.
آيا مي شه؟
آيا داريم؟

[khakzad]

سلام
راهی که به ذهن من میرسه
ایجاد یک ماکرو برای پروتکت کردن شیت هست که بعد از 10 دقیقه ران بشه
که میتونید این ماکرو به یک shape وصل کنید
مثلا start میزنه و شروع میکنه به ج دادن
بعد از 10 دقیقه کد اجرا میشه

کد زمان هم اینه:

sub time()

d= now+timevalue("00:00:00")
application.ontime d, "macroe1"

end sub

که در macroe1 کد قفل شدن شیت یا همون پروتکت کردن با پسورد رو میذارید.

[mohebbi]

آقاي خاكزاد
ممنون از جوابتون
مي شه يه كم بيشتر راهنماييم كنين
من تو بحث ماكرو و ويژوال بيسيك خيلي مبتدي ام
مرسي

[iraniyanwelding]

با سلام

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

[khakzad]

بله. خیلی ساده هست.
این کد پروتکت کردن شیت هست:

 ActiveSheet.Protect ("123")

این رو داخل یک ماژول قرار میدید به این شکل:

Sub Macro1()

 
    ActiveSheet.Protect ("123")
End Sub

بعد هم کد بالارو می نویسید در یک sub دیگه.

قسمت timevalue("00:00:00") رو زمان میدید هر چی دوست داشتید.مثلا 10 دقیقه.

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

برای ماژول هم کلیک راست می کنید و گزینه insert/module رو انتخاب می کنید و کد رو داخلش کپی میکنید

[khakzad]

دوست عزی اینکه فایل اماده نمیذارم علت اینه که سعی کنید و یاد بگیرید کم کم .
اما بعضی از دوستان هم لطف می کنند و فایل اماده میذارن که ارزشمنده.

هرطور صلاح می دونید عمل کنید. هر دو موجود ههست

[mohebbi]

ممنون از همه ي دوستان
مطابق آموزشاتون عمل كردم و شد

حالا يه مساله اي
اين msgbox هارو چطوري ايجاد مي كنيد؟
منظورم ChrW هستش
برنامه ي خاصي براي تبديلش وجود داره؟
ممنون مي شم راهنماييم كنين

[mokaram]

شما می تونید با نوشتن هر متنی در داخل مسیج باکس اونا به کاربر نشون بدید مثلا

Sub mrm()
MsgBox "سلام"
End Sub 

برای مطالعه بیشتر می تونید به لینک زیر مراجعه کنید

داستان هزار و یک شب - این داستان مسیج باکس

[khakzad]

اینی که گفتید نمیدونم چی هست.
اما برای دادن پیام کافیه اینو بزنید:

msgbox "Your time is over"

[khakzad]

کلا با اقای مکرمی همزمان شدیم

دوست عزیز، داخل مسیج باکس هرچیزی می تونید بنویسید و و بنا به نیازتون میتونه باکسی باشه که ok داشته باشه یا yes/no و یا عنوان براش بذارید که می تونید ارگومان هاش رو ببینید.
حال تی که گذاشتم ساده ساده است و فقط ok داره.

[iranweld]

ممنون از همه ي دوستان
مطابق آموزشاتون عمل كردم و شد

حالا يه مساله اي
اين msgbox هارو چطوري ايجاد مي كنيد؟
منظورم ChrW هستش
برنامه ي خاصي براي تبديلش وجود داره؟
ممنون مي شم راهنماييم كنين

با سلام

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

 chrw(1601) & chrw(1585) & chrw(1587) & chrw(1575) & chrw(1585) & chrw(1575) & chrw(1606)

[mohebbi]

ممنون از همه ي دوستان
ياشاسين