پرسش رفع مشکل اجرا نشدن کد بدلیل رمز دار بودن پروژه

[mobinsaffarpour]

باسلام خدمت دوستان محترم

لطفاً بفرمائید چگونه می توان کد های ThisWorkBook را با توجه به رمز داشتن پروژه حذف نمود. به طور کلی چگونه می توان کدهائی را که پروژه حاوی رمز میباشد را اجرائی نمود. لازم بذکر است لطفاً راه حل ارائه شده طوری باشد که تمامی ورژن های آفیس را پشتیبانی نماید.

رمز پروژه : 1

[generalsamad]

با سلام
اگه منظورتون برداشتن پسورد vbaproject میباشد طبق شکل زیر عمل نمائید

[mobinsaffarpour]

نه من این رو نمیخوام .

1- من میخوام بدونم چرا اکسل خطا نمایش میده و راه حلش چی هست.

2 - روش اینکه بیائیم رمز پروژه رو درون کدهامون قرار بدیم و بعدش قبل از اجرای کد، رمز بصورت اتوماتیک برداشته بشه ، سپس کد اجرا بشه و بعدش دوباره پروژه رمز دار بشه. به چه صورت هست

[Amir Ghasemiyan]

باسلام خدمت دوستان محترم

لطفاً بفرمائید چگونه می توان کد های ThisWorkBook را با توجه به رمز داشتن پروژه حذف نمود. به طور کلی چگونه می توان کدهائی را که پروژه حاوی رمز میباشد را اجرائی نمود. لازم بذکر است لطفاً راه حل ارائه شده طوری باشد که تمامی ورژن های آفیس را پشتیبانی نماید.

رمز پروژه : 1

سلام دوست عزیز
اینجا کامل توضیح داده

How to bypass the VBA project password from Excel - Super User

[mobinsaffarpour]

آقای قاسمیان . مرسی از پاسختون. اما من قصدم برداشتن رمز نیست. من قصدم این هست

1- من میخوام بدونم چرا اکسل خطا نمایش میده و راه حلش چی هست.

2 - روش اینکه بیائیم رمز پروژه رو درون کدهامون قرار بدیم و بعدش قبل از اجرای کد، رمز بصورت اتوماتیک برداشته بشه ، سپس کد اجرا بشه و بعدش دوباره پروژه رمز دار بشه. به چه صورت هست

[Amir Ghasemiyan]

آقای قاسمیان . مرسی از پاسختون. اما من قصدم برداشتن رمز نیست. من قصدم این هست

1- من میخوام بدونم چرا اکسل خطا نمایش میده و راه حلش چی هست.

2 - روش اینکه بیائیم رمز پروژه رو درون کدهامون قرار بدیم و بعدش قبل از اجرای کد، رمز بصورت اتوماتیک برداشته بشه ، سپس کد اجرا بشه و بعدش دوباره پروژه رمز دار بشه. به چه صورت هست

بله. من پست ها رو ندیدم. دیر متوجه شدم

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

ActiveSheet.unprotect "password" 
ActiveWorkbook.unprotect "password"

اولی برای حذف رمز شیت دومی برای حذف رمز ورکبوک
بجای unprotect اگه protect بذارین رمز رو میذاره
همینو میخواستین دیگه؟

[mobinsaffarpour]

بازم خطا میده .

کد ها رو به این شکل نوشتم.

Sub RemoveCode()
ActiveWorkbook.Unprotect "1"
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.DeleteLines 1, _
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.CountOfLines
ActiveWorkbook.Protect "1"
End Sub

[Amir Ghasemiyan]

بازم خطا میده .

کد ها رو به این شکل نوشتم.

Sub RemoveCode()
ActiveWorkbook.Unprotect "1"
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.DeleteLines 1, _
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.CountOfLines
ActiveWorkbook.Protect "1"
End Sub

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

[mobinsaffarpour]

خوب من هم همین رو میخوام. من که عرض کردم پروژه رو قفل کردم. حالا راه حلش چی هست جناب آقای قاسمیان

[Amir Ghasemiyan]

خوب من هم همین رو میخوام. من که عرض کردم پروژه رو قفل کردم. حالا راه حلش چی هست جناب آقای قاسمیان

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

[mobinsaffarpour]

من میخوام کسی دسترسی به ماژولها و بطور کلی کدها نداشته باشه. پس چرا این کد خطا میده. دلیلش چی هست

[امين اسماعيلي]

با دروددوست عزیز شما داری از کدی استفاده میکنی که قصدش از بین بردن چند خط کد هستش. یعنی داری از دستور kill استفاده میکنی. برای همین وقتی میخواد kill کنه مجوز نداره و ارور میده. راه حل منطقی من براش سراغ ندارم . هر چندتومنابع انگلیسی سرچ کردم و با دستور Sendkey و ... یه کارایی کردن اما همونم مشکل داشت. بهترین کار اگر میخواین پروژه اتون پروتکت بمونه و ... استفاده از نرم افزارای محاافظتی مثل lockxls هست که تو همین سایت هم نمونش هست.

[mobinsaffarpour]

دوستان عزیز یعنی هیچ راهی وجود نداره.

[mobinsaffarpour]

چرا کسی از دوستان پاسخگو نیست

[mokaram]

چرا کسی از دوستان پاسخگو نیست

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