بن بست در پروژه اکسلی من (میگن ناامیدی = شکست) کمکم کنید نشکنم

**hadi1980** · 2019/01/27, 13:14

سلام
اين که اينقدر نااميدي نداره
خب خيلي ساده و راحت بنظر مياد
با اين روش که هر کاربر که ميتونند بيش از دو نفر هم باشند موقعي که اراده ميکنند فايلشون که داره روي اون کار ميشه رو روي فايل اصلي رونويسي کنند
بعبارتي همش بايد همه کاربرها روي فضاي مجازي کار کنند و فقط موقع اراده و بصورت لحظه اي يه سر به فايل واقعي و حقيقي که اصليه بزنند
همش همين و با چند خط برنامه اوکي بنظر مياد
البته فکر کنم نفهميديد چي گفتم چون سوالتون رو به زبان جواب دوباره نويسي کردم
اگه فهميديد که بهتر وگرنه بگيد بيشتر توضيح بدم

**sajjadstr** · 2019/01/27, 14:06

دوست عزیز درسته حرف شما
ببینین هر شخصی که فایل B رو باز کنه افراد بعدی براشون read only باز میشه
مثلا اگه همزمان B باز کنن نفر اول از کد 1111 استفاده کنه نفر دوم نمیفهمه که نفر اول 1111 رو استفاده کرده نفر اول و تغییرات رو آنی نمی بینه در نتیجه تداخل پیش میاد و باید رو نویسی بشه
محدودیت اینجاست نباید دو نفر از یک کد استفاده کنن باید هر دو نفر مکمل هم کار کنن
کل پروژه ام با همین مسئله ساده گیر کرده و متوقف شده
البته نمیدونم راهی هست هر کاربر بدون باز کردن فایل B تغییر بده

**hadi1980** · 2019/01/27, 20:41

سلام مجدد
نه اشتباه نکن هيچکدوم نبايد واقعا فايل اصلي رو باز کنند
فکر کنم مثلا اينجوري بشه
که شما بايد يه کد چند خطي تو event open براي فايل اصلي بنويسي که به محض بازشدن يه save as توي دستکتاپ کاربر بگيره و فايل اصلي بسته بشه و اينجوري کاربر فقط فکر کنه که فايل اصلي رو بازکرده
حالا هرکاري ميخواد روي اون انجام ميده و درحاليکه فايل اصلي سرجاي اصلي بسته و دست نخورده هست
به محض ذخيره هم بايد قبل از close فايل رو مجدد ببره روي محل اصلي کپي کنه
براي احتمال خيلي کمي که ممکنه همزمان دو نفر در يه لحظه اقدام به ذخيره کنن هم از دستور on error استفاده کنيد تا اينقدر تلاش کنه تا ذخيره بشه
با توجه به سطح اکسل شما ديگه بنظرم خيلي زيادي هم توضيح دادم
راستي اينا همش فرضيه بود و بايد تست بشه
موفق باشي
هادي

**sajjadstr** · 2019/01/27, 21:02

دوست عزیز با تشکر خیلی لطف کردید بله تقریبا متوجهش شدم توضیحات شما ذهنیتم رو باز کرد
همیچین کدی هم دوست عزیزمون iranweld تو یه پست دیگه که باید تستش کنم تو پروژه ام نوشت فکر کنم فهمیدم چکار کنم
واقعا ممنون

کد PHP:


Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, xx As String, z1 As Integer


Application.ScreenUpdating = False

Application.DisplayAlerts = False

directory = "C:\test\"

fileName = Dir(directory & "test.xl??")

        
    Workbooks.Open (directory & fileName)
    
    For Each sheet In Workbooks(fileName).Worksheets
    
    If sheet.Name = "Sheet1" Then
    
    z1 = sheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
               
    sheet.Cells(z1, 1).Value = z1

    
    End If
    
        
    Next
    
    Workbooks(fileName).Save
    
    Workbooks(fileName).Close
    
    Range("A3") = z1
    
Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub