بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود الفتح و كود الحذف'.
تم العثور علي 1 نتيجه
-
للخبراء اريد ادراج كود في شيت يمكن وحدات الماكرو اوتوماتيكي و لا يفتح الملف الا بتمكين الماكرو و اضافة كود حذف للملف بعد 2 دقيقتان كود لتمكين وحدات المكرو اوتوماتيكي Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Private Sub Workbook_Open() kh_AhlnWShln End Sub كود لح>ف الملف Option Explicit Private Const MAX_USES As Long = 1 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub حاورت الدمج بينهما و لم اتمكن من ذلك ممكن الحل من الخبراء ان امكن مهما كان الملف و لو شيت فارغة لا تفتح الا بالكود مع ح>فها بعد دقيقتان شكرا للجميع
