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