حل شد مرسی
-
-
-
با سلام پسورد فایل پیوست رو هرچی میزنم قبول نمیکنه مگه اینطور نیست که :
User1=123u1
User2=123u2
User3=123u3
administrator=??
با تشکرکامنت
-
ضمن تشکر یه سوال قسمت دسترسی به نام کاربران و دسترسی به کل برنامه بازم پسورد میخاد
و دیگه اینکه پسورد خود یوزر ادمین را چجوری باید تغییر بدمکامنت
-
کامنت
-
سلام خسته نباشید من پسورت شیت 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
میتونید تغییرش بدید
Last edited by ~M*E*H*D*I~; 2014/10/21, 13:06.
sigpic
کامنت
-
با درود
صفحه 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"
sigpic
کامنت
-
برای بخش دوم سوال در userform3 یا همون صفحه مدیریت دو ثابت تعریف شده که پسوردهایی مورد نظر رو از شما میخواد ، در واقع این بخش نیاز نبوده ولی خب برای کسایی که خیلی وسواس دارن این بخش رو اضافه گفتم
"کد PHP:Const Tadminpass As String = "123456789"
Const Uadminpass As String = "987654321
اگر کدهارو خط به خط مرور میکردید متوجه این موضوع میشدید
sigpic
کامنت
-
سلام من یه مشکلی با این فایل دارم وقتی در صفحه welcom روی خروج کلیک میکنم پیغام microsoft office excel has stop working میده.کسی میدونه مشکلش چیه؟کامنت
-
من هر چی دقت کردم لینکش را ندیدمکامنت
-
کامنت