هل يمكن عمل باسورد لعدم اظهار Sheet Tabs

[Ms. Ghada]

السلام عليكم و رحمة الله و بركاته

 

 

أرجو من السادة الأفاضل مساعدتي في هذا الامر عندما قمت بإخفاء شريط Sheet tabs وجدت انه من السهل لاي شخص ان يظهرها مرة اخرى فهل يمكن عمل باسورد بحيث لا يمكن لاي شخص اظهارها الا بمعرفته للباسورد حتى يمكن حماية عملي

و جزاكم الله خيرا

[Ms. Ghada]

ارجو الاجابة و جزاكم الله خيرا

[الصـقر]

السلام عليكم

الاخت الكريمة 

جربى الملف المرفق هل هو المطلوب
الباسورد للاظهار 111
تقبلى تحياتى

اخفاء شريط الصفحات.zip

[الصـقر]

طريقه العمل

انسخ هذا الكود ثم قم بلصقه فى مودويل جديد 

ومتنساش تعمل زرين فى اى صفحة 

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]

اخي الفاضل انا لدي شيتات للكنترول جاهزة فما هي طريقة وضع تلك الاكواد

و جزاك الله خيرا

[Ms. Ghada]

للعلم انا استخدم اوفيس 2010

[الصـقر]

الاخت الكريمة حضرتك عامله هايبر لينك بين الصفحات او لاء يرجى الافاده

[Ms. Ghada]

نعم اخي الكريم انا عاملة هيبر لينك

[الصـقر]

طيب حضرتك

اول خطوة

اعملى فى الصفحه الرئيسية زرين 

كما هو موضح بالصورة

من شريط القوائم اختارى Developer ثم insert ثم الضغط على اول زر فوق على اليسار ثم رسم الزر على اى ورقة العمل 

 

اعملى الخطوة دى اعملى زرين مش زر واحد

[Ms. Ghada]

جزاك الله خيرا

سأنفذ تلك الخطوات

و اعلم حضرتك بالنتيجة

و لله المستعان

[Ms. Ghada]

تم اخي الفاضل و ماذا بعد

[الصـقر]

الخطوة الثانية

اضغطى ALT + F11

سيفتح معك محرر الاكواد قومى بادراج مودويل جديد 

من قائمة insert ثم اختيار مودويل سيظهر معك شاشة بيضه 

قومى بنسخ الكود اللى فوق ثم نسخه بالمودويل اللى عملتية اللى هو الشاشه البيضه

ملحوظه الملف على امتداد XLSM   ام لا 

خلى الملف مفتوح دائما الين الانتهاء من الخطوات

[Ms. Ghada]

تم بارك الله فيك في انتظار باقي الخطوات

[الصـقر]

الخطوة الاخيرة هى تعيين الماكرو على الازرار

الوقوف على الزر الاول ثم كليك يمين ستظهر قائمة احتارى تعيين ماكرو ثم تظهر قائمة اختارى  منها unhide_toolbar

كما هو بالصورة

 

ثم الانتقال الى الزر الاخر وعمل كليك يمين ثم اختيار تعيين ماكرو ستظهر القائمة اختارى hide_toolbar

كدا خلاص

 

جربى وعلمينى بالنتيجة 

تقبلى تحياتى

[Ms. Ghada]

تم اخي الفاضل

أسأل الله العلي العظيم أن يبارك فيك و في علمك

و أن يجزيك عني خير الجزاء

[الصـقر]

ملحوظه مهم جدا قبل ما تقفلى الملف هل الملف تم حفظه على امتداد XLSM  ام لا

[Ms. Ghada]

نعم اخي الفاضل جزاك الله خيرا

[سيف الدين حسام]

خيركم من تعلم العلم وعلمه