البراء مصطفى

بما إن مفيش حد فاضى
فأنا بحثت فى النت ووجد العديد من الاكواد وبخبرتى الضعيفة حاولت التعديل عليها لتصبح كالاتى
 
 
 
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=53400&hl=
جزاك الله خيرا
ورفع الله قدرك