عمل كود لاخفاء شريط اوراق العمل

[خالد المصـــــــــــرى]

عمل كود لاخفاء شريط اوراق العمل

 

كود.xlsx

[إيهاب عبد الحميد]

ممكن بدون كود بطريقة سهلة تتحكم في اخفاء واظهار شريط الأوراق

 

[خالد المصـــــــــــرى]

المطلوب كود

13 دقائق مضت, إيهاب عبد الحميد said:

 

 

[إيهاب عبد الحميد]

Sub Hide_Tabs()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

 

[خالد المصـــــــــــرى]

انا عايز الكود يعطل استرجاعها من هنا

[خالد المصـــــــــــرى]

Sub VeryHiddenSelectedSheets()
  Dim wks As Worksheet

  On Error GoTo ErrorHandler

  For Each wks In ActiveWindow.SelectedSheets
      wks.Visible = xlSheetVeryHidden
  Next

  Exit Sub

  ErrorHandler:
    MsgBox "A workbook must contain at least one visible worksheet.", vbOKOnly, "Unable to Hide Worksheets"
End Sub

 

 

تم تعديل ديسمبر 10, 2023 بواسطه خالد المصـــــــــــرى