Ms. Ghada قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 السلام عليكم و رحمة الله و بركاته أرجو من السادة الأفاضل مساعدتي في هذا الامر عندما قمت بإخفاء شريط Sheet tabs وجدت انه من السهل لاي شخص ان يظهرها مرة اخرى فهل يمكن عمل باسورد بحيث لا يمكن لاي شخص اظهارها الا بمعرفته للباسورد حتى يمكن حماية عملي و جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 ارجو الاجابة و جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 السلام عليكم الاخت الكريمة جربى الملف المرفق هل هو المطلوب الباسورد للاظهار 111 تقبلى تحياتى اخفاء شريط الصفحات.zip رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 طريقه العمل انسخ هذا الكود ثم قم بلصقه فى مودويل جديد ومتنساش تعمل زرين فى اى صفحة 1- للاظهار وتعيين الكود علية وهو unhide_toolbar 2- الاخفاء وتعيين الكود علية وهو hide_toolbar 'هذا الكود للعلامه عبدالله باقشير Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub Sub unhide_toolbar() xx: Dim x x = InputBox("لأظهار شريط القوائم يرجى ادخال الرقم السرى" & Chr(13) & "كلمة مرور", "الرجاء ادخال كلمة المرور") If IsNull(x) Or x = "" Then GoTo xx If x = "111" Then ActiveWindow.DisplayWorkbookTabs = True Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Else MsgBox "كلمة المرور غير صحيحه" & Chr(13) & " الرجاء اعادة ادخال كلمة المرور ", vbOKOnly End If End Sub Sub hide_toolbar() ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub تقبلوا تحياتى رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 اخي الفاضل انا لدي شيتات للكنترول جاهزة فما هي طريقة وضع تلك الاكواد و جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 للعلم انا استخدم اوفيس 2010 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 الاخت الكريمة حضرتك عامله هايبر لينك بين الصفحات او لاء يرجى الافاده رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 نعم اخي الكريم انا عاملة هيبر لينك رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 طيب حضرتك اول خطوة اعملى فى الصفحه الرئيسية زرين كما هو موضح بالصورة من شريط القوائم اختارى Developer ثم insert ثم الضغط على اول زر فوق على اليسار ثم رسم الزر على اى ورقة العمل اعملى الخطوة دى اعملى زرين مش زر واحد رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 جزاك الله خيرا سأنفذ تلك الخطوات و اعلم حضرتك بالنتيجة و لله المستعان رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 تم اخي الفاضل و ماذا بعد رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 الخطوة الثانية اضغطى ALT + F11 سيفتح معك محرر الاكواد قومى بادراج مودويل جديد من قائمة insert ثم اختيار مودويل سيظهر معك شاشة بيضه قومى بنسخ الكود اللى فوق ثم نسخه بالمودويل اللى عملتية اللى هو الشاشه البيضه ملحوظه الملف على امتداد XLSM ام لا خلى الملف مفتوح دائما الين الانتهاء من الخطوات رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 تم بارك الله فيك في انتظار باقي الخطوات رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 الخطوة الاخيرة هى تعيين الماكرو على الازرار الوقوف على الزر الاول ثم كليك يمين ستظهر قائمة احتارى تعيين ماكرو ثم تظهر قائمة اختارى منها unhide_toolbar كما هو بالصورة ثم الانتقال الى الزر الاخر وعمل كليك يمين ثم اختيار تعيين ماكرو ستظهر القائمة اختارى hide_toolbar كدا خلاص جربى وعلمينى بالنتيجة تقبلى تحياتى رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 تم اخي الفاضل أسأل الله العلي العظيم أن يبارك فيك و في علمك و أن يجزيك عني خير الجزاء 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 ملحوظه مهم جدا قبل ما تقفلى الملف هل الملف تم حفظه على امتداد XLSM ام لا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 نعم اخي الفاضل جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 خيركم من تعلم العلم وعلمه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان