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

[mobinsaffarpour]

اما به عقیده بنده کار نشد نداره اونم توی بحث همچنین نرم افزارهائی. بالاخره هر مشکلی یه راهی داره

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

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

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

ya save az filet begir nagi zadam pakesh kardam raft. to ye module bezaresh , badesham ba ye button behesh erja bede

ghol 100 nemidam am say mikonam vase moshkelet ye rah pida konam , ke etebare in site zire soal nare azizam.

[mobinsaffarpour]

خیلی مخلصیم برادر. من یک فایل دارم که بعد از رسیدن به تاریخ انقضاء میخوام ماژولهای فایل و کدهای درون ThisWorkBook رو از بین ببرم. البته جناب میر یک فایل درست کردند که این فایل فقط با اکسل 2010 به بالا کار میده. اما من یک فایلی میخوام که با هر اکسلی جواب بده. در اصل میخوام رمز رو وارد برنامه بکنم