من میخوام کسی دسترسی به ماژولها و بطور کلی کدها نداشته باشه. پس چرا این کد خطا میده. دلیلش چی هست
من میخوام کسی دسترسی به ماژولها و بطور کلی کدها نداشته باشه. پس چرا این کد خطا میده. دلیلش چی هست
با دروددوست عزیز شما داری از کدی استفاده میکنی که قصدش از بین بردن چند خط کد هستش. یعنی داری از دستور kill استفاده میکنی. برای همین وقتی میخواد kill کنه مجوز نداره و ارور میده. راه حل منطقی من براش سراغ ندارم . هر چندتومنابع انگلیسی سرچ کردم و با دستور Sendkey و ... یه کارایی کردن اما همونم مشکل داشت. بهترین کار اگر میخواین پروژه اتون پروتکت بمونه و ... استفاده از نرم افزارای محاافظتی مثل lockxls هست که تو همین سایت هم نمونش هست.
در پناه خداوندگار ایران زمین باشید و پیروز
دوستان عزیز یعنی هیچ راهی وجود نداره.
چرا کسی از دوستان پاسخگو نیست
اما به عقیده بنده کار نشد نداره اونم توی بحث همچنین نرم افزارهائی. بالاخره هر مشکلی یه راهی داره
ba drod
agha codi ke dari be kar mibari in khasiato dare , hala man migardam bebinam code jaigozin chi dai barat , agar mikhai masalan codi dashte bashi ke kole file exclo az bin bebare, yani khodesh khodesho bokoshe in coddar halate protectam javab mide
ya save az filet begir nagi zadam pakesh kardam raft. to ye module bezaresh , badesham ba ye button behesh erja bedeکد:Option Explicit Sub SuicideSub() ' Original code from Tom Urtis MsgBox "I'm gonna do it!!!" With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName Application.Quit End With End Sub
ghol 100 nemidam am say mikonam vase moshkelet ye rah pida konam , ke etebare in site zire soal nare azizam.
در پناه خداوندگار ایران زمین باشید و پیروز
خیلی مخلصیم برادر. من یک فایل دارم که بعد از رسیدن به تاریخ انقضاء میخوام ماژولهای فایل و کدهای درون ThisWorkBook رو از بین ببرم. البته جناب میر یک فایل درست کردند که این فایل فقط با اکسل 2010 به بالا کار میده. اما من یک فایلی میخوام که با هر اکسلی جواب بده. در اصل میخوام رمز رو وارد برنامه بکنم
ویرایش توسط mobinsaffarpour : 2015/11/28 در ساعت 01:25
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)