PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : [حل شده] باز شدن اتوماتیک protectsheet در صورت داشتن رمز


yamahdi13601982
2016/06/21, 17:10
با سلام و خسته نباشید.لطفا بفرمائید چطوری میتونم بدون دادن رمز دستی قفل شیت (protectsheet)رو باز کنم-رمز قفل شیت 123 باشه.دوتا ماکرو میخوام معرفی کنم.اولی شیت رو با رمز 123 قفل کنه و دومی باید بدون اینکه خودم رمز رو وارد کنم شیت رو باز کنه.میخوام فرمی رو واسه کسی بفرستم که قفل باشه و نتونه قفلشو باز کنه.نمیخوام رمز قفل رو بدونه.با تشکر
2009tv
2016/06/22, 19:36
سلام
با اجازه اساتید که همه چیز درباره vb را توسط آنها و همین سایت یاد گرفتم.
دستور زیر، شیت رو با رمز 123 قفل میکنه:

ActiveSheet.Protect ("123"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
دستور زیر جهت باز کردن خودکار قفل شیت است:

ActiveSheet.Unprotect ("123")
فقط توجه کنید که این ماکرو ها شیت فعال را باز یا قفل میکنند که توسط دستور زیر شیت مورد نظر شما مثلا در اینجا شیت 1 انتخاب (فعال) می گردد:

sheet1.select
امیدوارم اگر توضیح بیشتری نیاز داشته باشد اساتید محترم عنوان کنند.
yamahdi13601982
2016/06/22, 21:29
لطفا اگه کسی میدونه جواب بده-خیلی حیاتیه
yamahdi13601982
2016/06/22, 21:32
مرسی از لطفتون-واقعا ممنونم از انجمن خوب و با ارزشتون-خدا خیرتون بده