فكرة لـ (( ProgressBar Control ))

[ضاحي الغريب]

استاذ ضاحى

 

تسلم ايديك ابداع لم يحدث من قبل

 

جزاك الله كل خيراً

أخي الحبيب الأستاذ // خالد الشاعر

مرورك شرفني واسعدني

بارك الله فيك وجزاك خيرا علي مرورك العطر وكلماتك ودعائك الطيب

تقبل تحياتي

[ضاحي الغريب]

 

 فكرة جميلة و تنفيذ أجمل

جزاك الله خيرا و بارك فيك

  

أخي الكريم // خزاني

 بارك الله فيك وجزاك خيرا علي مرورك العطر وكلماتك ودعائك الطيب

تقبل تحياتي

[ريان أحمد]

موصوع متميز بارك الله فيك  وجزاك الله كل خير

[حمادة باشا]

الأستاذ الكبير/ ضاحي الغريب

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

الفكرة حلوة وجديدة - بالإضافة إلي جمالية الإخراج

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

[Ahmed Zakaria]

Many Thanks for your great continuos support

[مجدى يونس]

الاخ ضاحى الغريب

لمسات جمالية لها بصمة خاصة وفريدة كما تعودنا من اعمالك

[ضاحي الغريب]

أخي الحبيب / ريان أحمد

أخي الحبيب / حمادة الباشا

أخي الحبيب /أحمد زكريا

اخي الحبيب استاذنا الحاج / مجدي يونس

(مع حفظ الألقاب)

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

مروركم شرفني وأسعدني

بارك الله فيكم وجزاكم خيرا علي كلماتكم ودعائكم الطيب

واللهم يتقبل منا ومنكم صالح الأعمال

تقبلوا تحياتي واحترامي جمعيا

[Yasser Fathi Albanna]

لمسة جميلة وعمل مميذ لأستاذ قدير الأستاذ / ضاحى الغريب

ذادك الله من علمه

[إبراهيم ابوليله]

اخى ضاحى

فيه سؤال محيرنى

حاولت اجيب عليه بنفسى

ولكنى فشلت

--------------------------

يعنى فى الموضوع الذى تفضلت به

شاشة دخول برقم سري مع (( ProgressBar Control ))

http://www.officena.net/ib/index.php?showtopic=52715&hl=

ليه ما بيتم الضغط على زر خروج نهائى

يتم غلق جميع الملفات المفتوحه

-------------------------------+

السؤال بقى لو انا عايز اغلق الملف ده بس

يبقى الكود هيكون شكله ازاى

[الجموعي]

اخى ضاحى

فيه سؤال محيرنى

حاولت اجيب عليه بنفسى

ولكنى فشلت

--------------------------

يعنى فى الموضوع الذى تفضلت به

شاشة دخول برقم سري مع (( ProgressBar Control ))

http://www.officena.net/ib/index.php?showtopic=52715&hl=

ليه ما بيتم الضغط على زر خروج نهائى

يتم غلق جميع الملفات المفتوحه

-------------------------------+

السؤال بقى لو انا عايز اغلق الملف ده بس

يبقى الكود هيكون شكله ازاى

بعد إذن الأستاذي /ضاحي الغريب

أستاذي إبراهيم انا جربت هذا الكود ونجح معي

غير هذا الكود
Application.Quit
بهذا الكود
ActiveWorkbook.Close False
في
Private Sub L_In_Click()
Private Sub L_OUT_Click()

[أب مارية]

السلام عليكم

ما شاء الله

عمل رائع وصاحب أفكار رائعة 

 

تم تعديل مارس 27, 2014 بواسطه foular

[ضاحي الغريب]

 

لمسة جميلة وعمل مميذ لأستاذ قدير الأستاذ / ضاحى الغريب

ذادك الله من علمه

 

أخي الحبيب م / ياسر 

بارك الله فيك علي كلماتك ودعائك الطيب

تقبل الله منا ومنكم الصالحات

تقبل تحياتي

[ضاحي الغريب]

 

اخى ضاحى

فيه سؤال محيرنى

حاولت اجيب عليه بنفسى

ولكنى فشلت

--------------------------

يعنى فى الموضوع الذى تفضلت به

شاشة دخول برقم سري مع (( ProgressBar Control ))

http://www.officena.net/ib/index.php?showtopic=52715&hl=

ليه ما بيتم الضغط على زر خروج نهائى

يتم غلق جميع الملفات المفتوحه

-------------------------------+

السؤال بقى لو انا عايز اغلق الملف ده بس

يبقى الكود هيكون شكله ازاى

بعد إذن الأستاذي /ضاحي الغريب

أستاذي إبراهيم انا جربت هذا الكود ونجح معي

غير هذا الكود
Application.Quit
بهذا الكود
ActiveWorkbook.Close False
في
Private Sub L_In_Click()
Private Sub L_OUT_Click()

أخي الحبيب /م الجموعي

بارك الله فيك وجزاك خيرا 

تعديل جميل ومن غير ما تستأذن زيادة الخير وتنوع الحلول 

تحياتي لكم ولأخي الحبيب / ابراهيم ابوليلة

[ضاحي الغريب]

السلام عليكم

ما شاء الله

عمل رائع وصاحب أفكار رائعة 

 

بارك الله فيك وجزاك خيرا

[طلعت محمد حسن]

لمسة جميلة من استاذ فنان ومبدع جزاك اللة كل خير اخي ضاحي.

[ضاحي الغريب]

لمسة جميلة من استاذ فنان ومبدع جزاك اللة كل خير اخي ضاحي.

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

[إبراهيم ابوليله]

 

اخى ضاحى

فيه سؤال محيرنى

حاولت اجيب عليه بنفسى

ولكنى فشلت

--------------------------

يعنى فى الموضوع الذى تفضلت به

شاشة دخول برقم سري مع (( ProgressBar Control ))

http://www.officena.net/ib/index.php?showtopic=52715&hl=

ليه ما بيتم الضغط على زر خروج نهائى

يتم غلق جميع الملفات المفتوحه

-------------------------------+

السؤال بقى لو انا عايز اغلق الملف ده بس

يبقى الكود هيكون شكله ازاى

بعد إذن الأستاذي /ضاحي الغريب

أستاذي إبراهيم انا جربت هذا الكود ونجح معي

غير هذا الكود
Application.Quit
بهذا الكود
ActiveWorkbook.Close False
في
Private Sub L_In_Click()
Private Sub L_OUT_Click()

اخى ضاحى

بالفعل كود جمل من الاخ الجموعى بارك الله فيه

وانا شخصيا كنت بستخدم

ActiveWindow.Close

لكن المشكله

الى انا اقصدها

هى بتكون فى حالة

وجود الكود الاتى فى حدث الورك بوك

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
 Application.DisplayStatusBar = False
  Dim strDate As String, DefPath As String
   Dim FileNameZip, FileNameXlsm
    Dim oApp As Object
    If ActiveWorkbook Is Nothing Then Exit Sub
    DefPath = ActiveWorkbook.Path
    If Len(DefPath) = 0 Then
        MsgBox "Plz Save activeworkbook before zipping" & Space(12), vbInformation, "zipping"
        Exit Sub
    End If
    If Right(DefPath, 1) <> "\" Then
        DefPath = DefPath & "\"
    End If
    strDate = Format(Now, " dd-mmm-yy h-mm-ss")
    FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".zip"
    FileNameXlsm = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xlsB"
 On Error Resume Next
    If Dir(FileNameZip) = "" And Dir(FileNameXlsm) = "" Then
        ActiveWorkbook.SaveCopyAs FileNameXlsm
        newzip (FileNameZip)
        Set oApp = CreateObject("Shell.Application")
        oApp.Namespace(FileNameZip).CopyHere FileNameXlsm
        On Error Resume Next
        Do Until oApp.Namespace(FileNameZip).items.Count = 1
            Application.Wait (Now + TimeValue("0:00:01"))
        Loop
        On Error GoTo 0
        Kill FileNameXlsm
        MsgBox "completed zipped : " & vbNewLine & FileNameZip, vbInformation, "zipping"
    Else
        MsgBox "FileNameZip or/and FileNameXlsm exist", vbInformation, "zipping"
     Application.DisplayStatusBar = True

    End If
    '============================================================================================

End Sub
Private Sub newzip(sPath)
    If Len(Dir(sPath)) > 0 Then Kill sPath
    Open sPath For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
End Sub

[إبراهيم ابوليله]

اخى ضاحى

هل من حل لهذه المشكله

[إبراهيم ابوليله]

اخى ضاحى

هل من حل لهذه المشكله

للرفع

[ضاحي الغريب]

 

اخى ضاحى

هل من حل لهذه المشكله

للرفع

 

أخي / ابراهيم

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

ارسل لي مثال في ملف اقوم بالتجربة عليه

مع تحياتي

[إبراهيم ابوليله]

اخى ضاحى

تفضل

 

ProgressBarControl-V2.rar

[ضاحي الغريب]

اخى ضاحى

تفضل

تقصد هكذا اخي ابراهيم

ProgressBarControl-V2.rar

[حليم ناصر]

بارك الله فيك وجزاك الله خيرا

  

[غالب عبد]

السلام عليكم

أستاذنا المبدع : ضاحي الغريب

 

 

جزاك الله عنا كل خير 

[إبراهيم ابوليله]

اخى ضاحى

مشكورا على الاهتمام

ولكن ليس هذا ما اريده

ماريده

هو انه عند فتح هذاالملف

وفى حالة وجود ملفات اخرى مفتوحه

عند الظغط على زر خروج

يتم غلق هذا الملف فقط

-----------------------------------

ولكن عند تجربة الملف بعد تفضل حضرتك بالتعديل

تم اكتشاف الاتى

1-يتم غلق الملفات باكملها

2-عند فتح اى ملف يتم فتح المفProgressBarControl-V2 ايضا