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

[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]

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

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