زيدسالم قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 ممكن بعد اذن الكبار زيادة كود باسورد لهذا الكود لاخفاء ورقة العمل وجزاكم اللة خيرا وزادكم من علمة Sub RoundedRectangle1_Click() If [u1] <> False Then [u1] = False: GoTo 10 [u1] = True 10 For i = 3 To Sheets.Count Sheets(i).Visible = [u1].Value Next i End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 17, 2015 مشاركة قام بنشر يناير 17, 2015 لم أفهم المقصود يرجى التوضيح رابط هذا التعليق شارك More sharing options...
ابو بهاء المصري قام بنشر يناير 18, 2015 مشاركة قام بنشر يناير 18, 2015 اعتقد انه يقصد انا هذا الكود وظيفته اظهار واخفاء ورقة العمل ولاكن هذا بدون باسسورد لذا فهو يطلب اضافة سطر امر الي الكود المكتوب في الموضوع يجعل الظهور بكلمة سر رابط هذا التعليق شارك More sharing options...
زيدسالم قام بنشر يناير 19, 2015 الكاتب مشاركة قام بنشر يناير 19, 2015 كلام الاستاذ ابوبهاء صحيح هو نفس قصدى يضاف سطر كود للباسورد بفورم الى الكود المكتوب واظهار اوراق العمل عند كتابة الباسورد وجزاكم الله خيرا رابط هذا التعليق شارك 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.