[حل شده] باز شدن اتوماتیک protectsheet در صورت داشتن رمز

[yamahdi13601982]

با سلام و خسته نباشید.لطفا بفرمائید چطوری میتونم بدون دادن رمز دستی قفل شیت (protectsheet)رو باز کنم-رمز قفل شیت 123 باشه.دوتا ماکرو میخوام معرفی کنم.اولی شیت رو با رمز 123 قفل کنه و دومی باید بدون اینکه خودم رمز رو وارد کنم شیت رو باز کنه.میخوام فرمی رو واسه کسی بفرستم که قفل باشه و نتونه قفلشو باز کنه.نمیخوام رمز قفل رو بدونه.با تشکر

[2009tv]

سلام
با اجازه اساتید که همه چیز درباره 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]

لطفا اگه کسی میدونه جواب بده-خیلی حیاتیه

[yamahdi13601982]

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