محمد طاهر عرفه قام بنشر يونيو 8, 2003 مشاركة قام بنشر يونيو 8, 2003 المثال الأول يقوم بعمل الحماية Sub Pr1() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub ثم فكها اذا كتبنا كلمة السر و هي 123 Sub Pr2() x = InputBox("please enter PAssword '123'", "Password", 123) If x <> 123 Then MsgBox "Sorry !!! " Exit Sub End If ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False End Sub UnprotectSheet.rar 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يونيو 8, 2003 الكاتب مشاركة قام بنشر يونيو 8, 2003 المثال الثاني مثل السابق مع الحماية باستخدام كلمة سر و هي 1234 لأن الحالة السابقة يمكن فك الحماية من القوائم مباشرة Sub Pr1() ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Sub Pr2() x = InputBox("please enter PAssword '1234'", "Password", 123) If x <> 1234 Then MsgBox "Sorry You are not Allowed !!! " Exit Sub End If ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False End Sub UnprotectSheetPass.xls 2 رابط هذا التعليق شارك More sharing options...
محمد ابوالعلا البتيتي قام بنشر فبراير 6, 2019 مشاركة قام بنشر فبراير 6, 2019 جميل بارك الله فيك رابط هذا التعليق شارك More sharing options...
تحيا مصر قام بنشر فبراير 6, 2019 مشاركة قام بنشر فبراير 6, 2019 موضوع جميل جدا ومفيد تسلم الايادى رابط هذا التعليق شارك 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.