اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

 

 

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

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

رابط هذا التعليق
شارك

طريقه العمل

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

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

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

تقبلوا تحياتى

رابط هذا التعليق
شارك

طيب حضرتك

اول خطوة

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

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

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

8GCZPp.png

 

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

رابط هذا التعليق
شارك

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

اضغطى ALT + F11

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

kWHCpq.png

 

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

كدا خلاص

 

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

تقبلى تحياتى

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information