{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["ورقة1","DbSheet","Deleted Items","Sheet1"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"ورقة1","index":0,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"DbSheet","index":1,"n_rows":181,"n_cols":10,"rows_kept":181,"cut":false,"hidden":false,"merged":[]}
["كود البصمة","الرتبة","مكان العمل","الرقم الوطني","الإسم بالكامل","ملاحظات","مسلسل","توقيت تعديل البيانات","اسم المستخدم","صورة"]
[1,"مهندس","طرابلس",11589960,"محمد علي صالح","لا يوجد",1,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[2,"موظف","غريان",4879566,"إبراهيم علي محمد","لا يوجد",2]
[3,"رئيس قسم","بنغازي",14551200,"علي خالد","لا يوجد",3]
[4,"رئيس قسم","طرابلس",2670936,"موظف1","لا يوجد",5,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[5,"مهندس","سرت",4853466,"موظف5","لا يوجد",8,null,null,"C:\\Users\\WiN_11\\Downloads\\WhatsApp Image 2025-03-18 at 2.40.24 PM.jpeg"]
[6,"موظف","طرابلس",5580976,"موظف6","لا يوجد",9,null,null,"C:\\Users\\WiN_11\\Desktop\\53848762_2305251602870414_355709560821907456_n.jpg"]
[7,"رئيس قسم","غريان",6308486,"موظف7","لا يوجد",10,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[8,"مهندس","بنغازي",7035996,"موظف8","لا يوجد",11,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[9,"موظف","البريقة",7763506,"موظف9","لا يوجد",12,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[10,"رئيس قسم","سرت",8491016,"موظف10","لا يوجد",13,null,null,"C:\\Users\\WiN_11\\Pictures\\WhatsApp Image 2025-03-12 at 5.43.27 AM.jpg"]
[11,"مهندس","طرابلس",9218526,"موظف11","لا يوجد",14]
[12,"موظف","غريان",9946036,"موظف12","لا يوجد",15]
[13,"رئيس قسم","بنغازي",10673546,"موظف13","لا يوجد",16]
[14,"مهندس","البريقة",11401056,"موظف14","لا يوجد",17]
[15,"موظف","سرت",12128566,"موظف15","لا يوجد",18]
[16,"رئيس قسم","طرابلس",12856076,"موظف16","لا يوجد",19]
[17,"مهندس","غريان",13583586,"موظف17","لا يوجد",20]
[18,"موظف","بنغازي",14311096,"موظف18","لا يوجد",21]
[19,"رئيس قسم","البريقة",15038606,"موظف19","لا يوجد",22]
[20,"مهندس","سرت",15766116,"موظف20","لا يوجد",23]
[21,"موظف","طرابلس",16493626,"موظف21","لا يوجد",24]
[22,"رئيس قسم","غريان",17221136,"موظف22","لا يوجد",25]
[23,"مهندس","بنغازي",17948646,"موظف23","لا يوجد",26]
[24,"موظف","البريقة",18676156,"موظف24","لا يوجد",27]
[25,"رئيس قسم","سرت",19403666,"موظف25","لا يوجد",28]
[26,"مهندس","طرابلس",20131176,"موظف26","لا يوجد",29]
[27,"موظف","غريان",20858686,"موظف27","لا يوجد",30]
[28,"رئيس قسم","بنغازي",21586196,"موظف28","لا يوجد",31]
[29,"مهندس","البريقة",22313706,"موظف29","لا يوجد",32]
[30,"موظف","سرت",23041216,"موظف30","لا يوجد",33]
[31,"رئيس قسم","طرابلس",23768726,"موظف31","لا يوجد",34]
[32,"مهندس","غريان",24496236,"موظف32","لا يوجد",35]
[33,"موظف","بنغازي",25223746,"موظف33","لا يوجد",36]
[34,"رئيس قسم","البريقة",25951256,"موظف34","لا يوجد",37]
[35,"مهندس","سرت",26678766,"موظف35","لا يوجد",38]
[36,"موظف","طرابلس",27406276,"موظف36","لا يوجد",39]
[37,"رئيس قسم","غريان",28133786,"موظف37","لا يوجد",40]
[38,"مهندس","بنغازي",28861296,"موظف38","لا يوجد",41]
[39,"موظف","البريقة",29588806,"موظف39","لا يوجد",42]
[40,"رئيس قسم","سرت",30316316,"موظف40","لا يوجد",43]
[41,"مهندس","طرابلس",31043826,"موظف41","لا يوجد",44]
[42,"موظف","غريان",31771336,"موظف42","لا يوجد",45]
[43,"رئيس قسم","بنغازي",32498846,"موظف43","لا يوجد",46]
[44,"مهندس","البريقة",33226356,"موظف44","لا يوجد",47]
[45,"موظف","سرت",33953866,"موظف45","لا يوجد",48]
[46,"رئيس قسم","طرابلس",34681376,"موظف46","لا يوجد",49]
[47,"مهندس","غريان",35408886,"موظف47","لا يوجد",50]
[48,"موظف","بنغازي",36136396,"موظف48","لا يوجد",51]
[49,"رئيس قسم","البريقة",36863906,"موظف49","لا يوجد",52]
[50,"مهندس","سرت",37591416,"موظف50","لا يوجد",53]
[51,"موظف","طرابلس",38318926,"موظف51","لا يوجد",54]
[52,"رئيس قسم","غريان",38318927,"موظف52","لا يوجد",55]
[53,"مهندس","بنغازي",38318928,"موظف53","لا يوجد",56]
[54,"موظف","البريقة",38318929,"موظف54","لا يوجد",57]
[55,"رئيس قسم","سرت",38318930,"موظف55","لا يوجد",58]
[56,"مهندس","طرابلس",38318931,"موظف56","لا يوجد",59]
[57,"موظف","غريان",38318932,"موظف57","لا يوجد",60]
[58,"رئيس قسم","بنغازي",38318933,"موظف58","لا يوجد",61]
[59,"مهندس","البريقة",38318934,"موظف59","لا يوجد",62]
[60,"موظف","سرت",38318935,"موظف60","لا يوجد",63]
[61,"رئيس قسم","طرابلس",38318936,"موظف61","لا يوجد",64]
[62,"مهندس","غريان",38318937,"موظف62","لا يوجد",65]
[63,"موظف","بنغازي",38318938,"موظف63","لا يوجد",66]
[64,"رئيس قسم","البريقة",38318939,"موظف64","لا يوجد",67]
[65,"مهندس","سرت",38318940,"موظف65","لا يوجد",68]
[66,"موظف","طرابلس",38318941,"موظف66","لا يوجد",69]
[67,"رئيس قسم","غريان",38318942,"موظف67","لا يوجد",70]
[68,"مهندس","بنغازي",38318943,"موظف68","لا يوجد",71]
[69,"موظف","البريقة",38318944,"موظف69","لا يوجد",72]
[70,"رئيس قسم","سرت",38318945,"موظف70","لا يوجد",73]
[71,"مهندس","طرابلس",38318946,"موظف71","لا يوجد",74]
[72,"موظف","غريان",38318947,"موظف72","لا يوجد",75]
[73,"رئيس قسم","بنغازي",38318948,"موظف73","لا يوجد",76]
[74,"مهندس","البريقة",38318949,"موظف74","لا يوجد",77]
[75,"موظف","سرت",38318950,"موظف75","لا يوجد",78]
[76,"رئيس قسم","طرابلس",38318951,"موظف76","لا يوجد",79]
[77,"مهندس","غريان",38318952,"موظف77","لا يوجد",80]
[78,"موظف","بنغازي",38318953,"موظف78","لا يوجد",81]
[79,"رئيس قسم","البريقة",38318954,"موظف79","لا يوجد",82]
[80,"مهندس","سرت",38318955,"موظف80","لا يوجد",83]
[81,"موظف","طرابلس",38318956,"موظف81","لا يوجد",84]
[82,"رئيس قسم","غريان",38318957,"موظف82","لا يوجد",85]
[83,"مهندس","بنغازي",38318958,"موظف83","لا يوجد",86]
[84,"موظف","البريقة",38318959,"موظف84","لا يوجد",87]
[85,"رئيس قسم","سرت",38318960,"موظف85","لا يوجد",88]
[86,"مهندس","طرابلس",38318961,"موظف86","لا يوجد",89]
[87,"موظف","غريان",38318962,"موظف87","لا يوجد",90]
[88,"رئيس قسم","بنغازي",38318963,"موظف88","لا يوجد",91]
[89,"مهندس","البريقة",38318964,"موظف89","لا يوجد",92]
[90,"موظف","سرت",38318965,"موظف90","لا يوجد",93]
[91,"رئيس قسم","طرابلس",38318966,"موظف91","لا يوجد",94]
[92,"مهندس","غريان",38318967,"موظف92","لا يوجد",95]
[93,"موظف","بنغازي",38318968,"موظف93","لا يوجد",96]
[94,"رئيس قسم","البريقة",38318969,"موظف94","لا يوجد",97]
[95,"مهندس","سرت",38318970,"موظف95","لا يوجد",98]
[96,"موظف","طرابلس",38318971,"موظف96","لا يوجد",99]
[97,"رئيس قسم","غريان",38318972,"موظف97","لا يوجد",100]
[98,"مهندس","بنغازي",38318973,"موظف98","لا يوجد",101]
[99,"موظف","البريقة",38318974,"موظف99","لا يوجد",102]
[100,"رئيس قسم","سرت",38318975,"موظف100","لا يوجد",103]
[101,"مهندس","طرابلس",38318976,"موظف101","لا يوجد",104]
[102,"موظف","غريان",38318977,"موظف102","لا يوجد",105]
[103,"رئيس قسم","بنغازي",38318978,"موظف103","لا يوجد",106]
[104,"مهندس","البريقة",38318979,"موظف104","لا يوجد",107]
[105,"موظف","سرت",38318980,"موظف105","لا يوجد",108]
[106,"رئيس قسم","طرابلس",38318981,"موظف106","لا يوجد",109]
[107,"مهندس","غريان",38318982,"موظف107","لا يوجد",110]
[108,"موظف","بنغازي",38318983,"موظف108","لا يوجد",111]
[109,"رئيس قسم","البريقة",38318984,"موظف109","لا يوجد",112]
[110,"مهندس","سرت",38318985,"موظف110","لا يوجد",113]
[111,"موظف","طرابلس",38318986,"موظف111","لا يوجد",114]
[112,"رئيس قسم","غريان",38318987,"موظف112","لا يوجد",115]
[113,"مهندس","بنغازي",38318988,"موظف113","لا يوجد",116]
[114,"موظف","البريقة",38318989,"موظف114","لا يوجد",117]
[115,"رئيس قسم","سرت",38318990,"موظف115","لا يوجد",118]
[116,"مهندس","طرابلس",38318991,"موظف116","لا يوجد",119]
[117,"موظف","غريان",38318992,"موظف117","لا يوجد",120]
[118,"رئيس قسم","بنغازي",38318993,"موظف118","لا يوجد",121]
[119,"مهندس","البريقة",38318994,"موظف119","لا يوجد",122]
[120,"موظف","سرت",38318995,"موظف120","لا يوجد",123]
[121,"رئيس قسم","طرابلس",38318996,"موظف121","لا يوجد",124]
[122,"مهندس","غريان",38318997,"موظف122","لا يوجد",125]
[123,"موظف","بنغازي",38318998,"موظف123","لا يوجد",126]
[124,"رئيس قسم","البريقة",38318999,"موظف124","لا يوجد",127]
[125,"مهندس","سرت",38319000,"موظف125","لا يوجد",128]
[126,"موظف","طرابلس",38319001,"موظف126","لا يوجد",129]
[127,"رئيس قسم","غريان",38319002,"موظف127","لا يوجد",130]
[128,"مهندس","بنغازي",38319003,"موظف128","لا يوجد",131]
[129,"موظف","البريقة",38319004,"موظف129","لا يوجد",132]
[130,"رئيس قسم","سرت",38319005,"موظف130","لا يوجد",133]
[131,"مهندس","طرابلس",38319006,"موظف131","لا يوجد",134]
[132,"موظف","غريان",38319007,"موظف132","لا يوجد",135]
[133,"رئيس قسم","بنغازي",38319008,"موظف133","لا يوجد",136]
[134,"مهندس","البريقة",38319009,"موظف134","لا يوجد",137]
[135,"موظف","سرت",38319010,"موظف135","لا يوجد",138]
[136,"رئيس قسم","طرابلس",38319011,"موظف136","لا يوجد",139]
[137,"مهندس","غريان",38319012,"موظف137","لا يوجد",140]
[138,"موظف","بنغازي",38319013,"موظف138","لا يوجد",141]
[139,"رئيس قسم","البريقة",38319014,"موظف139","لا يوجد",142]
[140,"مهندس","سرت",38319015,"موظف140","لا يوجد",143]
[141,"موظف","طرابلس",38319016,"موظف141","لا يوجد",144]
[142,"رئيس قسم","غريان",38319017,"موظف142","لا يوجد",145]
[143,"مهندس","بنغازي",38319018,"موظف143","لا يوجد",146]
[144,"موظف","البريقة",38319019,"موظف144","لا يوجد",147]
[145,"رئيس قسم","سرت",38319020,"موظف145","لا يوجد",148]
[146,"مهندس","طرابلس",38319021,"موظف146","لا يوجد",149]
[147,"موظف","غريان",38319022,"موظف147","لا يوجد",150]
[148,"رئيس قسم","بنغازي",38319023,"موظف148","لا يوجد",151]
[149,"مهندس","البريقة",38319024,"موظف149","لا يوجد",152]
[150,"موظف","سرت",38319025,"موظف150","لا يوجد",153]
[151,"رئيس قسم","طرابلس",38319026,"موظف151","لا يوجد",154]
[152,"مهندس","غريان",38319027,"موظف152","لا يوجد",155]
[153,"موظف","بنغازي",38319028,"موظف153","لا يوجد",156]
[154,"رئيس قسم","البريقة",38319029,"موظف154","لا يوجد",157]
[155,"مهندس","سرت",38319030,"موظف155","لا يوجد",158]
[156,"موظف","طرابلس",38319031,"موظف156","لا يوجد",159]
[157,"رئيس قسم","غريان",38319032,"موظف157","لا يوجد",160]
[158,"مهندس","بنغازي",38319033,"موظف158","لا يوجد",161]
[159,"موظف","البريقة",38319034,"موظف159","لا يوجد",162]
[160,"رئيس قسم","سرت",38319035,"موظف160","لا يوجد",163]
[161,"مهندس","طرابلس",56239874,"موظف161","لا يوجد",164]
[162,"موظف","غريان",56239875,"موظف162","لا يوجد",165]
[163,"رئيس قسم","بنغازي",56239876,"موظف163","لا يوجد",166]
[164,"مهندس","البريقة",56239877,"موظف164","لا يوجد",167]
[165,"موظف","سرت",56239878,"موظف165","لا يوجد",168]
[166,"رئيس قسم","طرابلس",56239878,"موظف166","لا يوجد",169]
[167,"مهندس","غريان",56239880,"موظف167","لا يوجد",170]
[168,"موظف","بنغازي",56239881,"موظف168","لا يوجد",171]
[169,"رئيس قسم","البريقة",56239882,"موظف169","لا يوجد",172]
[170,"مهندس","سرت",56239883,"موظف170","لا يوجد",173]
[171,"موظف","طرابلس",56239884,"موظف171","لا يوجد",174]
[172,"رئيس قسم","غريان",56239885,"موظف172","لا يوجد",175]
[173,"مهندس","بنغازي",56239886,"موظف173","لا يوجد",176]
[174,"مهندس","طرابلس",56239887,"محمد علي صالح","لا يوجد",177]
[175,"موظف","غريان",56239888,"إبراهيم علي محمد","لا يوجد",178]
[176,"رئيس قسم","غريان",88756664,"موظف7","لا يوجد",179]
[177,"مهندس","طرابلس",75698422,"محمد علي صالح","لا يوجد",180]
[178,"رئيس قسم","بنغازي",26479654,"علي خالد","لا يوجد",181]
[179,"رئيس قسم","البريقة",44563695,"موظف4","لا يوجد",182]
[180,null,null,null,null,null,183]

{"sheet":"Deleted Items","index":2,"n_rows":4,"n_cols":9,"rows_kept":4,"cut":false,"hidden":false,"merged":[]}
["كود البصمة","الرتبة","مكان العمل","الرقم الوطني","الإسم بالكامل","ملاحظات","مسلسل","توقيت تعديل البيانات","اسم المستخدم"]
[109,"رئيس قسم","البريقة",4125956,"موظف4","لا يوجد",7]
[4,"موظف","سرت",19434260,"مرعي","لا يوجد",4]
[5,"موظف","بنغازي",33984460,"موظف3","لا يوجد",6,"2025-04-04T02:28:55","WiN_11"]

{"sheet":"Sheet1","index":3,"n_rows":236,"n_cols":14,"rows_kept":236,"cut":false,"hidden":false,"merged":[]}
[null,null,null,null,null,null,null,"Private Sub CommandButton2_Click() ' زر \"Add User\" (يجب إضافته إلى الفورم)",null,null,null,null,null,"Option Compare Text"]
[null,null,null,null,null,null,null,"    ' إضافة مستخدم جديد ومسار صورته إلى ورقة العمل",null,null,null,null,null,"Dim f, Rng, MH(), WS_Rng, DataRng  'By MOHAMMED HICHAM  15/06/2023"]
[null,null,null,null,null,null,null,"    Dim ws As Worksheet",null,null,null,null,null,"' في وحدة نمطية قياسية"]
[null,null,null,null,null,null,null,"    Set ws = ThisWorkbook.Sheets(\"DbSheet\") ' تأكد من اسم ورقة العمل الصحيح",null,null,null,null,null,"Public SelectedImagePath As String"]
[null,null,null,null,null,null,null,"    Const UserColumn As Long = 7"]
[null,null,null,null,null,null,null,"    Const ImagePathColumn As Long = 10",null,null,null,null,null,"Sub UploadImageToUserForm(imgControl As MSForms.Image)"]
[null,null,null,null,null,null,null,"    Dim lastRow As Long",null,null,null,null,null,"    Dim FileDialog As FileDialog"]
[null,null,null,null,null,null,null,"    Dim newUser As String",null,null,null,null,null,"    Dim FileChosen As Integer"]
[null,null,null,null,null,null,null,"    Dim newImagePath As String"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Set FileDialog = Application.FileDialog(msoFileDialogOpen)"]
[null,null,null,null,null,null,null,"    newUser = Trim(TextBox7.Text)",null,null,null,null,null,"    FileDialog.Title = \"Select an Image\""]
[null,null,null,null,null,null,null,"    newImagePath = Trim(TextBox8.Text)",null,null,null,null,null,"    FileDialog.Filters.clear"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    FileDialog.Filters.Add \"Images\", \"*.jpg; *.jpeg; *.png; *.gif; *.bmp\""]
[null,null,null,null,null,null,null,"    If newUser <> \"\" Then"]
[null,null,null,null,null,null,null,"        ' البحث عما إذا كان المستخدم موجودًا بالفعل",null,null,null,null,null,"    FileChosen = FileDialog.Show"]
[null,null,null,null,null,null,null,"        Dim foundRange As Range",null,null,null,null,null,"    ' e.g. show path in textbox"]
[null,null,null,null,null,null,null,"        Set foundRange = ws.Columns(UserColumn).Find(What:=newUser, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)",null,null,null,null,null,"    Me.TextBox8.Text = FileDialog.SelectedItems(1)"]
[]
[null,null,null,null,null,null,null,"        If foundRange Is Nothing Then"]
[null,null,null,null,null,null,null,"            ' الحصول على آخر صف ممتلئ في عمود المستخدمين",null,null,null,null,null,"    If FileChosen = -1 Then"]
[null,null,null,null,null,null,null,"            lastRow = ws.Cells(Rows.Count, UserColumn).End(xlUp).Row",null,null,null,null,null,"        SelectedImagePath = FileDialog.SelectedItems(1)"]
[null,null,null,null,null,null,null,"            If lastRow < 1 Then lastRow = 1 ' في حالة كانت ورقة العمل فارغة",null,null,null,null,null,"        imgControl.Picture = LoadPicture(SelectedImagePath)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        imgControl.PictureSizeMode = fmPictureSizeModeZoom"]
[null,null,null,null,null,null,null,"            ' إضافة المستخدم الجديد ومسار الصورة إلى الصف التالي",null,null,null,null,null,"    Else"]
[null,null,null,null,null,null,null,"            ws.Cells(lastRow + 1, UserColumn).Value = newUser",null,null,null,null,null,"        MsgBox \"No image selected.\", vbInformation"]
[null,null,null,null,null,null,null,"            ws.Cells(lastRow + 1, ImagePathColumn).Value = newImagePath",null,null,null,null,null,"    End If"]
[]
[null,null,null,null,null,null,null,"            ' تحديث ListBox",null,null,null,null,null,"    Set FileDialog = Nothing"]
[null,null,null,null,null,null,null,"            LoadUserDataAndImagePaths",null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,"            ' مسح TextBoxes",null,null,null,null,null,"Private Sub CommandButton2_Click() ' زر \"Add User\" (يجب إضافته إلى الفورم)"]
[null,null,null,null,null,null,null,"            TextBox8.Text = \"\"",null,null,null,null,null,"    ' إضافة مستخدم جديد ومسار صورته إلى ورقة العمل"]
[null,null,null,null,null,null,null,"            TextBox7.Text = \"\"",null,null,null,null,null,"    Dim ws As Worksheet"]
[null,null,null,null,null,null,null,"        Else",null,null,null,null,null,"    Set ws = ThisWorkbook.Sheets(\"DbSheet\") ' تأكد من اسم ورقة العمل الصحيح"]
[null,null,null,null,null,null,null,"            MsgBox \"هذا المستخدم موجود بالفعل.\", vbExclamation",null,null,null,null,null,"    Const UserColumn As Long = 7"]
[null,null,null,null,null,null,null,"        End If",null,null,null,null,null,"    Const ImagePathColumn As Long = 10"]
[null,null,null,null,null,null,null,"    Else",null,null,null,null,null,"    Dim lastRow As Long"]
[null,null,null,null,null,null,null,"        MsgBox \"يرجى إدخال اسم المستخدم.\", vbExclamation",null,null,null,null,null,"    Dim newUser As String"]
[null,null,null,null,null,null,null,"    End If",null,null,null,null,null,"    Dim newImagePath As String"]
[null,null,null,null,null,null,null,"End Sub"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    newUser = Trim(TextBox7.Text)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    newImagePath = Trim(TextBox8.Text)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    If newUser <> \"\" Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        ' البحث عما إذا كان المستخدم موجودًا بالفعل"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Dim foundRange As Range"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Set foundRange = ws.Columns(UserColumn).Find(What:=newUser, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        If foundRange Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ' الحصول على آخر صف ممتلئ في عمود المستخدمين"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            lastRow = ws.Cells(Rows.Count, UserColumn).End(xlUp).Row"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            If lastRow < 1 Then lastRow = 1 ' في حالة كانت ورقة العمل فارغة"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ' إضافة المستخدم الجديد ومسار الصورة إلى الصف التالي"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ws.Cells(lastRow + 1, UserColumn).Value = newUser"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ws.Cells(lastRow + 1, ImagePathColumn).Value = newImagePath"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ' تحديث ListBox"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            LoadUserDataAndImagePaths"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ' مسح TextBoxes"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            TextBox8.Text = \"\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            TextBox7.Text = \"\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            MsgBox \"هذا المستخدم موجود بالفعل.\", vbExclamation"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        MsgBox \"يرجى إدخال اسم المستخدم.\", vbExclamation"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Sub LoadUserDataAndImagePaths()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ' تحميل أسماء المستخدمين ومسارات الصور من ورقة العمل إلى ListBox1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim ws As Worksheet"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Set ws = ThisWorkbook.Sheets(\"DbSheet\") ' تأكد من اسم ورقة العمل الصحيح"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Const UserColumn As Long = 7"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Const ImagePathColumn As Long = 10"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim lastRow As Long"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim i As Long"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ListBox1.clear"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ' الحصول على آخر صف يحتوي على بيانات في عمود المستخدمين"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    lastRow = ws.Cells(Rows.Count, UserColumn).End(xlUp).Row"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ' إضافة المستخدمين إلى ListBox1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    For i = 1 To lastRow"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Dim userName As String"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        userName = Trim(ws.Cells(i, UserColumn).Value)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        If userName <> \"\" Then ' التأكد من أن اسم المستخدم ليس فارغًا"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            ListBox1.AddItem userName"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Next i"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub UploadImage_Click()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ' افتح مربع حوار اختيار الصورة وقم بتحميلها إلى Image1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    UploadImageToUserForm Image1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null," "]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub UserForm_Initialize()"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null," DataRng = \"Tableau1\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    WS_Rng = Range(DataRng).Columns.Count"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    MH = Range(DataRng).Resize(, WS_Rng).Value ' لا حاجة للإضافة هنا"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    For i = 1 To UBound(MH): MH(i, WS_Rng) = i: Next i ' رقم السطر سيكون في آخر عمود"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Me.ListBox1.List = MH"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Me.ListBox1.ColumnCount = WS_Rng"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Me.ListBox1.ColumnWidths = \"70;110;100;100;100;100;150;80;80\" ' مثال على عرض اتساع إضافي للعمودين"]
[]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Me.ComboBox1.List = Application.Transpose(Range(DataRng).Offset(-1).Resize(1))"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Me.ComboBox1.ListIndex = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Me.B.Caption = \"فلترة ب:\" & Me.ComboBox1"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Set d = CreateObject(\"scripting.dictionary\")"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   For i = 1 To UBound(MH)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"     d(MH(i, 1)) = \"\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Next i"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   wsData = d.keys"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Me.ComboBox2.List = wsData"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Sht = Application.Transpose(Range(DataRng).Offset(-1).Resize(1))"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   For i = 1 To WS_Rng"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"     Me(\"label\" & i) = Sht(i, 1)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Next i"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   For i = WS_Rng + 1 To 7"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"      Me(\"label\" & i).Visible = False: Me(\"TextBox\" & i).Visible = False"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Next i"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Me.ComboBox2 = \"*\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   T_resultat = \"عدد الموظفين\" & \"/\" & ListBox1.ListCount + 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Count = ListBox1.ListCount"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   Call series1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"   "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"     ' تحميل بيانات المستخدمين ومسارات الصور من ورقة العمل عند التشغيل"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    LoadUserDataAndImagePaths"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ' تحديد العنصر الأول في ListBox إذا كانت هناك عناصر"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    If ListBox1.ListCount > 0 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        ListBox1.ListIndex = 0"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Sub series1()"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Dim ws As Worksheet"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Dim lr As Integer"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Set ws = Sheets(\"DbSheet\")"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"       "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"         lr = ws.Cells(Rows.Count, 1).End(xlUp).Row"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"'         series = Format(Val(ws.Cells(lr, 1)) + 1, \"00 00\")"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"         TextBox7 = Format(Val(ws.Cells(lr, 7)) + 1)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub ListBox1_Change()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    If ListBox1.ListIndex <> -1 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Dim SelectedUser As String"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        SelectedUser = ListBox1.List(ListBox1.ListIndex)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Dim ws As Worksheet"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Set ws = ThisWorkbook.Sheets(\"DbSheet\") ' ÊÃßÏ ãä ÇÓã æÑÞÉ ÇáÚãá ÇáÕÍíÍ"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Const UserColumn As Long = 7"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Const ImagePathColumn As Long = 10"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Dim foundRange As Range"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Set foundRange = ws.Columns(UserColumn).Find(What:=SelectedUser, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        If Not foundRange Is Nothing Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            Dim imagePath As String"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            imagePath = ws.Cells(foundRange.Row, ImagePathColumn).Value"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            If imagePath <> \"\" And Dir(imagePath) <> \"\" Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"                Image1.Picture = LoadPicture(imagePath)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"                Image1.PictureSizeMode = fmPictureSizeModeZoom"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"                Set Image1.Picture = Nothing ' ãÓÍ ÇáÕæÑÉ ÅÐÇ áã íÊã ÇáÚËæÑ Úáì ãÓÇÑ Ãæ ãáÝ"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            MsgBox \"Selected user not found in the worksheet (this should not happen).\", vbCritical"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            Set Image1.Picture = Nothing"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub ListBox1_Click()"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim i As Long"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim selectedIndex As Long"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim numColumns As Long"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Dim numTextBoxes As Long"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    selectedIndex = Me.ListBox1.ListIndex"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    numColumns = Me.ListBox1.ColumnCount"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    numTextBoxes = GetTextBoxCount()"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    If selectedIndex <> -1 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        For i = 1 To numTextBoxes"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            If i <= numColumns Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"                Me(\"textbox\" & i).Text = Me.ListBox1.Column(i - 1, selectedIndex)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"                Exit For"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"            End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Next i"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.N_ligne.Value = selectedIndex + 1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    ''''ترحيل البيانات من الليست بوكس الى التيكست بوكس'''''"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"On Error Resume Next"]
[null,null,null,null,null,null,null,null,null,null,null,null,null," If ListBox1.ListIndex = -1 Then: Exit Sub"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"If ListBox1.ListIndex <> -1 Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        With ListBox1"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox1.Value = .List(.ListIndex, 0)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox2.Value = .List(.ListIndex, 1)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox3.Value = .List(.ListIndex, 2)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox4.Value = .List(.ListIndex, 3)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox5.Value = .List(.ListIndex, 4)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox6.Value = .List(.ListIndex, 5)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox7.Value = .List(.ListIndex, 6)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Me.TextBox8.Value = .List(.ListIndex, 7)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        End With"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"       MsgBox \" !Veuillez sélectionner la classe \", vbCritical, \"\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"        ' عند تحديد عنصر من القائمة، يتم عرض الكمية الحالية في صندوق النص"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    Image1.Picture = ListBox1.List(ListBox1.ListIndex, 7)"]
[]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"    "]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]