قفل کردن یک با رمز با کد vba

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Prince_6000

    • 2015/08/29
    • 8

    پرسش قفل کردن یک با رمز با کد vba

    سلام یه کد vba میخواستم که بتونم یک شیت رو با فشار دادن یک دکمه روی همون شیت قفل کنم و برعکس دوباره با فشار دادن دکمه بتونم قفل شیت رو باز کنم ، البته در هر بار کلیک برای باز کردن یا قفل کردن پسورد هم ازم سوال کنه. ممنون
    Last edited by Prince_6000; 2015/08/29, 19:05.
  • Ali Parsaei
    مدير تالارتوابع اکسل

    • 2013/11/18
    • 1522
    • 71.67

    #2
    سلام،
    يک دگمه از نوع: ToggleButton در صفحه قرار دهيد و در آن کد زير را بنويسيد فقط عدد 123 در کد را با رمز دلخواه خود عوض کنيد:

    کد PHP:
    Private Sub ToggleButton1_Click()
    If 
    ToggleButton1 True Then
    ActiveSheet
    .Protect "123"
    Else
    ActiveSheet.Unprotect
    End 
    If
    End Sub 
    Last edited by Ali Parsaei; 2015/08/29, 23:27.
    [SIGPIC][/SIGPIC]

    کامنت

    چند لحظه..