al7amza قام بنشر يونيو 18, 2013 مشاركة قام بنشر يونيو 18, 2013 السلام عليكم أخواني أعضاء وأساتذة هذا المنتدى الجميل والرائع عندي ملف أعمل عليه , مرفق الملف والمطلوب فيه , أرجو أن تكون واضحة ( خصوصا الحماية ) أرجو المساعدة أخوكم أبو حمزة حسابات.rar 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 20, 2013 مشاركة قام بنشر يونيو 20, 2013 وعليكم السلام و رحمة الله وبركاته الحماية ممكن ان شاء الله رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 21, 2013 مشاركة قام بنشر يونيو 21, 2013 السلام عليكم و رحمة الله وبركاته في المرفق عند فتح الملف يتم تحويله الى القرائة فقط - حيث يستطيع المستخدم استخدام كامل الملف ولكن لا يستطيع حفظها في اول ورقة وفي الخلية الصفراء اكتب كلمة السر "123" وثم انتر يتم اعادة تعيين الملف الى للكتابة ويمكنك حفظ التغييرات Private Sub Workbook_Open() ThisWorkbook.Saved = True ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Range("H1") <> "" Then Q1 = Range("H1").Text If Q1 = "123" Then ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True Range("H1") = "" End If End Sub حسابات.rar رابط هذا التعليق شارك More sharing options...
al7amza قام بنشر يونيو 28, 2013 الكاتب مشاركة قام بنشر يونيو 28, 2013 شكرا جزيلا على المساعدة وجعلها في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.