ماژول بستن کلید 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]

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

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