گذاشتن پسورد برای اجرای button

[pishraw]

با سلام و درود .
دوستان عزیز می خواهم برای اجرای یک button پسورد یا رمز اجرا بگذارم . ممنون میشم اگر دوستان عزیز با توجه به فایل ضمیمه بنده را راهنمایی کنند.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

برای اینکار کافیه شما یه فرم کوچیک طراحی کنی که شامل یه تکست باکس و یه باتن باشه. و برای باتن کد زیر را بنویسی
( فرض بر اینه که شما برای اجرای فرم یک نیاز به رمز ورودی داشته باشی)

Private Sub CommandButton1_Click()
If TextBox1.Text = "1" Then
    Unload Me
    UserForm1.Show
Else
    TextBox1.Text = ""
    MsgBox "رمز عبور اشتباه است"
    TextBox1.SetFocus
End If
End Sub

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

[abootorab]

با سلام و درود .
دوستان عزیز می خواهم برای اجرای یک button پسورد یا رمز اجرا بگذارم . ممنون میشم اگر دوستان عزیز با توجه به فایل ضمیمه بنده را راهنمایی کنند.

با درود
ضمن تشکر از جناب M_R_M عزیز و با کسب اجازه
دوست عزیز شما میتوانید کد زیر رو به ابتدای زیربرنامه Button1_Click اضافه کنید تا قبل از اجرای ماکرو یا به عبارتی زیربرنامه از شما رمز عبور پرسیده شود.
در این کد عدد 123 به عنوان رمز در نظر گرفته شده است که میتوانید آن را تغییر دهید.

Sub Button1_Click()
'
' Button1_Click Macro
'

'
    ib = InputBox("Please Enter Password:")
    If ib <> "123" Then
        MsgBox ("Wrong Password!")
        Exit Sub
    End If
    
    Sheets("Sheet2").Select
End Sub