عمل باسوورد لشيت اكسيل يسمح بتعديلات معينة

[البراء مصطفى]

السلام عليكم ورحمة الله وبركاته

انا لدى شيت اكسيل وسوف اضعه على سيرفر بالعمل

ما اريده انا اضع لنفس شيت الاكسيل عدة باسوردات 

بحيث بعض البسوردات تقوم بالتعديل الجزئى(الكتابة فقط دون الحذف)

وبعضها يقوم بالتعديل الكلى

وبعضها يقوم بالسماح للمشاهدة فقط

هل ذلك ممكنا ؟

[البراء مصطفى]

للرفع

[البراء مصطفى]

بما إن مفيش حد فاضى

فأنا بحثت فى النت ووجد العديد من الاكواد وبخبرتى الضعيفة حاولت التعديل عليها لتصبح كالاتى

 

 

 

Private Sub workbook_open()

 

Const PW1 As String = "albara"

 

Const PW2 As String = "2"

 

Const PW3 As String = "3"

 

Dim inp As String

 

Workbooks.Application.Visible = False

 

inp = Application.InputBox("Enter a number")

 

Select Case inp

 

Case PW1

 

 

Workbooks.Application.Visible = True

 

'Full Workbook Access

If ActiveWorkbook.ReadOnly Then _

ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin"

 

Case PW2

 

Workbooks.Application.Visible = True

 

'Limit Access

If Not ActiveWorkbook.ReadOnly Then _

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin"

Case PW3

 

Workbooks.Application.Visible = True

 

 

Case Else

MsgBox "Wrong password"

Workbooks.Close

End Select

 

End Sub

[محمود_الشريف]

أخى الكريم

معذرة ان لم يتمكن أحد أساتذة المنتدى بتقديم المساعدة

فكما تعلم اخى الكريم أن جميع الأساتذة لا يبخلون على اى عضو بأيه مساعده ممكنه ما دام اتيح لهم الوقت لذلك

 

ويمكنك اخى الكريم مراجعه ذلك الرابط ففيه الكثير عن موضوع صلاحيات المستخدمين لنفس ملف الاكسل

 

http://www.officena.net/ib/index.php?showtopic=34213

 

وايضا ذلك الرابط

 

http://www.officena.net/ib/index.php?showtopic=45248

 

وتقبل منى وافر الاحترام والتقدير

[البراء مصطفى]

 

أخى الكريم

معذرة ان لم يتمكن أحد أساتذة المنتدى بتقديم المساعدة

فكما تعلم اخى الكريم أن جميع الأساتذة لا يبخلون على اى عضو بأيه مساعده ممكنه ما دام اتيح لهم الوقت لذلك

 

ويمكنك اخى الكريم مراجعه ذلك الرابط ففيه الكثير عن موضوع صلاحيات المستخدمين لنفس ملف الاكسل

 

http://www.officena.net/ib/index.php?showtopic=34213

 

وايضا ذلك الرابط

 

http://www.officena.net/ib/index.php?showtopic=45248

 

وتقبل منى وافر الاحترام وال

 

جزاك الله خيرا اخى الكريم

انا اقدر مجهوداتكم كثيرا ومتأكد أن الأساتذة مشغولين

جزاك الله خيرا للروابط المفيدة

[محمود_الشريف]

أخى الكريم

بارك الله فيكم وجزاكم الله خيرا على سعه صدركم

تقبل منى وافر الإحترام والتقدير