[حل شده] رمز برای دیتابیس
سلام بنده یک فایل اکسل دارم گه هنگام ورود یوزر فرم باز شده و خود ورک بوک باز نمیشه و در یوزر فرم یک دکمه دیتابیس قراردادم تا هر وقت نیاز شد بتوانم وارد ورک بوک بشم که کد زیر داخل دکمه قرار داره
Private Sub CommandButton8_Click()
Application.ActiveWindow.Application.Visible = True
End Sub
حالا چطور می تونم یک رمز قرار بدم اگر برروی دکمه دیتابیس کلیک شد رمز را وارد کنیم تا بشه وارد ورک بوک بشه. اگر رمز اشتباه بود هشدار بده رمز اشتباه هست.
ممنون
Private Sub CommandButton8_Click()
Application.ActiveWindow.Application.Visible = True
End Sub
حالا چطور می تونم یک رمز قرار بدم اگر برروی دکمه دیتابیس کلیک شد رمز را وارد کنیم تا بشه وارد ورک بوک بشه. اگر رمز اشتباه بود هشدار بده رمز اشتباه هست.
ممنون