Ms. Ghada قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 السلام عليكم و رحمة الله و بركاته أرجو من السادة الأفاضل مساعدتي في هذا الامر عندما قمت بإخفاء شريط Sheet tabs وجدت انه من السهل لاي شخص ان يظهرها مرة اخرى فهل يمكن عمل باسورد بحيث لا يمكن لاي شخص اظهارها الا بمعرفته للباسورد حتى يمكن حماية عملي و جزاكم الله خيرا
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 السلام عليكم الاخت الكريمة جربى الملف المرفق هل هو المطلوب الباسورد للاظهار 111 تقبلى تحياتى اخفاء شريط الصفحات.zip
الصـقر قام بنشر يناير 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 تقبلوا تحياتى
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 اخي الفاضل انا لدي شيتات للكنترول جاهزة فما هي طريقة وضع تلك الاكواد و جزاك الله خيرا
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 الاخت الكريمة حضرتك عامله هايبر لينك بين الصفحات او لاء يرجى الافاده
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 طيب حضرتك اول خطوة اعملى فى الصفحه الرئيسية زرين كما هو موضح بالصورة من شريط القوائم اختارى Developer ثم insert ثم الضغط على اول زر فوق على اليسار ثم رسم الزر على اى ورقة العمل اعملى الخطوة دى اعملى زرين مش زر واحد
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 جزاك الله خيرا سأنفذ تلك الخطوات و اعلم حضرتك بالنتيجة و لله المستعان
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 الخطوة الثانية اضغطى ALT + F11 سيفتح معك محرر الاكواد قومى بادراج مودويل جديد من قائمة insert ثم اختيار مودويل سيظهر معك شاشة بيضه قومى بنسخ الكود اللى فوق ثم نسخه بالمودويل اللى عملتية اللى هو الشاشه البيضه ملحوظه الملف على امتداد XLSM ام لا خلى الملف مفتوح دائما الين الانتهاء من الخطوات
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 تم بارك الله فيك في انتظار باقي الخطوات
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 الخطوة الاخيرة هى تعيين الماكرو على الازرار الوقوف على الزر الاول ثم كليك يمين ستظهر قائمة احتارى تعيين ماكرو ثم تظهر قائمة اختارى منها unhide_toolbar كما هو بالصورة ثم الانتقال الى الزر الاخر وعمل كليك يمين ثم اختيار تعيين ماكرو ستظهر القائمة اختارى hide_toolbar كدا خلاص جربى وعلمينى بالنتيجة تقبلى تحياتى
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب قام بنشر يناير 3, 2015 تم اخي الفاضل أسأل الله العلي العظيم أن يبارك فيك و في علمك و أن يجزيك عني خير الجزاء 1
الصـقر قام بنشر يناير 3, 2015 قام بنشر يناير 3, 2015 ملحوظه مهم جدا قبل ما تقفلى الملف هل الملف تم حفظه على امتداد XLSM ام لا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.