جلوگیری از چاپ سند در اکسل vba

- بانک کد VBA در اکسل
- آموزش رایگان اکسل
آخرین بروزرسانی: 31 اردیبهشت 1402

جلوگیری از چاپ سند در اکسل vba و نیاز به رمز عبور برای چاپ، می توانید از روش زیر استفاده کنید:

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

کد VBA برای این کار به صورت زیر است:

Private Sub btnPrint_Click()
    Dim strPassword As String
    'https://academyruhollah.com/
    ' درخواست رمز عبور از کاربر
    strPassword = InputBox("لطفاً رمز عبور را وارد کنید.", "ورود به چاپ")
    
    ' بررسی رمز عبور
    If strPassword = "myPassword" Then
        ' اجرای عملیات چاپ
        ActiveSheet.PrintOut
    Else
        ' نمایش پیغام خطا
        MsgBox "رمز عبور اشتباه است. لطفاً دوباره سعی کنید.", vbExclamation, "خطا در ورود"
    End If
End Sub

Private Sub btnPrint_Click()

Dim strPassword As String

'https://academyruhollah.com/

' درخواست رمز عبور از کاربر

strPassword = InputBox("لطفاً رمز عبور را وارد کنید.", "ورود به چاپ")

' بررسی رمز عبور

If strPassword = "myPassword" Then

' اجرای عملیات چاپ

ActiveSheet.PrintOut

Else

' نمایش پیغام خطا

MsgBox "رمز عبور اشتباه است. لطفاً دوباره سعی کنید.", vbExclamation, "خطا در ورود"

End If

End Sub

در این کد، یک متغیر رشته ای به نام strPassword تعریف می شود که برای ذخیره رمز عبور وارد شده توسط کاربر استفاده می شود. سپس، با استفاده از دستور InputBox، کاربر درخواست ورود رمز عبور می شود. بعد از وارد کردن رمز عبور، با استفاده از دستور If، رمز عبور بررسی می شود و در صورت صحت آن، عملیات چاپ با استفاده از دستور PrintOut انجام می شود. در صورتی که رمز عب

میانگین رتبه 5/5 تعداد رای : 2

روح الله وکیل زاده

نظر یا سوال شما در این مورد چیست؟ انصراف