ماژول بستن کلید Alt+F11 در اکسل

[hosseinamerey]

سلام دوستان
از این کد میتونید برای بستن کلیدهای Alt+F11 استفاده کنید و نذاریو کسی پنجره VBA و کدهارو ببینه
من که خودم از لحاظ امنیتی خیلی به کارم اومده

Sub GoAway()
    Application.OnKey "%{F11}", "NoVBE"
End Sub

Sub NoVBE()
    MsgBox "No VBE via keys!"
End Sub 

[hr.zarei.shz]

salam gha hosein ye soal dashtam mikhastam bebinam mishe tu VBA ye code benevisi k dastur print ro anjam bede man balad nistam age emkan dare behem source code ro bede mamnunam

[hosseinamerey]

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

[hosseinamerey]

salam gha hosein ye soal dashtam mikhastam bebinam mishe tu VBA ye code benevisi k dastur print ro anjam bede man balad nistam age emkan dare behem source code ro bede mamnunam

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

    Private Sub CommandButton1_Click()
Application.ActiveWorkbook.PrintPreview
End Sub 

[Amir Ghasemiyan]

سلام دوستان
از این کد میتونید برای بستن کلیدهای Alt+F11 استفاده کنید و نذاریو کسی پنجره VBA و کدهارو ببینه
من که خودم از لحاظ امنیتی خیلی به کارم اومده

Sub GoAway()
    Application.OnKey "%{F11}", "NoVBE"
End Sub

Sub NoVBE()
    MsgBox "No VBE via keys!"
End Sub 

سلام دوست عزيز
ممنون از كدي كه قرار دادين. راه ديگه اي هم هست. شما ميتونين براي قسمت ويژوال پسورد تعيين كنيد تا كسي نتونه وارد كدهاتون بشه

[hosseinamerey]

دوستان خوبم از این کد هم برای غیرفعال کردن دستور بالایی استفاده کنید

   Sub ComeBack()
    Application.OnKey "%{F11}"
End Sub 

[hosseinamerey]

سلام دوست عزيز
ممنون از كدي كه قرار دادين. راه ديگه اي هم هست. شما ميتونين براي قسمت ويژوال پسورد تعيين كنيد تا كسي نتونه وارد كدهاتون بشه

بله از اون طریق هم میشه رمز گذاشت اما به راحتی رمز کرک میشه و به کدهاتون دسترسی پیدا میکنن

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

با درود
خوب اگه از کلید میانبر استفاده نکنه چی؟

[hosseinamerey]

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

[hosseinamerey]

با درود
خوب اگه از کلید میانبر استفاده نکنه چی؟

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

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

یه سوال دیگه
اگه ماکرو رو غیر فعال کنه در اون صورت چی؟ ریبون ها رو چیکار کنیم

[hosseinamerey]

اینم یه فایل نمونه از این ماژول
حالا بدون هیچ مشکلی صفحه بسته شده و اگر این فایل خروجی Exe بگیرید دیگه نمیشه کدهارو ببینید اما تو این حالت با کلید های میانبر Save as میتونید یه کپی از فایل بگیرید و اکستنشن فایل عوض کنید و با یه هش دیکودر بتونید دسترسی بگیرید که این تنها راهش هست کهامتهان کردم و جواب گرفتم ولا غیر
شب همگی بخیر فرداباید برم سر کار

[Amir Ghasemiyan]

بله از اون طریق هم میشه رمز گذاشت اما به راحتی رمز کرک میشه و به کدهاتون دسترسی پیدا میکنن

ميشه روش كركش رو بگين؟

[hosseinamerey]

ميشه روش كركش رو بگين؟

سلام دوستان
بله چرا امکتنش نباشه
شما با استفاده از برنامه Advanced Office Password Recovery به راحتی میتونید رمز vba تو فایل های اکسل از بین یا تغییر بدید
من این برنامه رو خودم به صورت فول لایسنس کرک کردم اگر شد براتون میذارم اما با یه گشت و گذار تو نت میتونید از بعضی نسخه هاش هم استفاده کنید
راستی حتما باید نسخه حرف های از این برنامه رو استفاده کنید تا پیغام خطا نگیرید .

[hosseinamerey]

ميشه روش كركش رو بگين؟

سلام دوستان
بله چرا امکتنش نباشه
شما با استفاده از برنامه Advanced Office Password Recovery به راحتی میتونید رمز vba تو فایل های اکسل از بین یا تغییر بدید
من این برنامه رو خودم به صورت فول لایسنس کرک کردم اگر شد براتون میذارم اما با یه گشت و گذار تو نت میتونید از بعضی نسخه هاش هم استفاده کنید
راستی حتما باید نسخه حرف های از این برنامه رو استفاده کنید تا پیغام خطا نگیرید .