ویرایش توسط حسام بحرانی : 2014/10/21 در ساعت 10:26 دلیل:درج سؤال
سلام خسته نباشید من پسورت شیت welcome رو میخوام
دوستان به آقای وطن پرست (m*e*h*d*i) پیام خصوصی بدید
سرشون شلوغه
فکر کنم فعلا سایت تشریف نمیارن
محصولات و جزوات آموزش تخصصی اکسل در:
برترین مرجع تخصصی پارسی اکسل
جامعه اكسل ايرانيان: فروشگاه
آموزش اکسل تخصصی و پیشرفته - تهران
h.khakzad@yahoo.com
درود
شرمنده من سوال رو ندیده بودم
وقتی به صورت ادمین میخواید وارد بشید پنجره ای باز میشه که پسورد رو میخواد در محیط VBA این فرم با نام Adminpassword نام گذاری شده برای این فرم کد زیر نوشته شده
در خط زیر پسورد ادمین نوشته شدهکد PHP:
Private Sub CommandButton1_Click()
Dim PassWord As String
Dim OK
PassWord = AdminPassword.TextBox1.Value
If PassWord = "Adminpass" Then
AdminPassword.Hide
UserForm3.Show
Else
OK = MsgBox("You're not authorized -Do you want close Program?", vbInformation + vbYesNo)
If OK = 7 Then
coun = coun + 1
If coun <= 3 Then
Exit Sub
Else
ThisWorkbook.Close
End If
End If
End If
AdminPassword.TextBox1.Value = ""
End Sub
If PassWord = "Adminpass" Then
میتونید تغییرش بدید
ویرایش توسط ~M*E*H*D*I~ : 2014/10/21 در ساعت 12:06
با درود
صفحه welcom برای جلوگیری از دستکاری شکل ها پروتکت شده در Module1 کد زیر نوشته شده
پسورد در بخشکد PHP:
Sub Protect()
Set oSheet = ActiveSheet
For Each oShape In oSheet.Shapes
oShape.Locked = True
Next oShape
oSheet.Protect PassWord:="SECRET", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
قابل دسترس هستکد PHP:
PassWord:="SECRET"
برای بخش دوم سوال در userform3 یا همون صفحه مدیریت دو ثابت تعریف شده که پسوردهایی مورد نظر رو از شما میخواد ، در واقع این بخش نیاز نبوده ولی خب برای کسایی که خیلی وسواس دارن این بخش رو اضافه گفتم
"کد PHP:
Const Tadminpass As String = "123456789"
Const Uadminpass As String = "987654321
اگر کدهارو خط به خط مرور میکردید متوجه این موضوع میشدید
سلام من یه مشکلی با این فایل دارم وقتی در صفحه welcom روی خروج کلیک میکنم پیغام microsoft office excel has stop working میده.کسی میدونه مشکلش چیه؟
من هر چی دقت کردم لینکش را ندیدم
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)