hasdan قام بنشر مارس 4, 2007 مشاركة قام بنشر مارس 4, 2007 لدي ملف اكسل يحتوي على عدد 30 شريحة اقوم بحمايتها برقم سري ولكن الواحدة تلو الاخرى هل هناك طريقة لحمايتهم معا دون اللجوء الى حماية الملف ككل رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مارس 4, 2007 مشاركة قام بنشر مارس 4, 2007 بسم الله الرحمن الرحيم لحمايه جميع أوراق العمل استخدم الكود التالى : Sub mProtect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Protect (hady) Loop End Sub كلمه السر hady و لفك حمايه جميع أوراق العمل استخدم الكود التالى : Sub mUnprotect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Unprotect (hady) Loop End Sub مرفق ملف السلام عليكم Protect_01.rar رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر مارس 4, 2007 مشاركة قام بنشر مارس 4, 2007 السلام عليكم و رحمة الله و بركاته أستاذنا / هادى سالم بارك الله فيك و جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
hasdan قام بنشر مارس 5, 2007 الكاتب مشاركة قام بنشر مارس 5, 2007 مشكور استاذنا هادي رحم الله والديك رابط هذا التعليق شارك More sharing options...
العماني قام بنشر مارس 5, 2007 مشاركة قام بنشر مارس 5, 2007 اسمح لى استاذنا العزيز بس لو تعلمنا كيف وين نضع هذا الكوود رابط هذا التعليق شارك More sharing options...
صعصعه قام بنشر مارس 5, 2008 مشاركة قام بنشر مارس 5, 2008 جاري التحميل ومشكورين ..................... رابط هذا التعليق شارك 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.