كود اخفاء صفوف & أعمدة $ ورق عمل

[طائع]

مطلوب كود اخفاء صفوف 

أعمدة

ورق عمل 

[قنديل الصياد]

اخى العزيز

كود لاخفاء واظهار الصفوف

مع عمل حماية للورقة

كلمة السر لفك حماية الورقة  1964

 

الكود المستخدم للاخفاء

Sub اخفاء()
SpreadsheetPassword = 1964
ActiveSheet.Unprotect Password:=SpreadsheetPassword
Rows("8:20").EntireRow.Hidden = True
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
MsgBox "مع تحياتى / قنديل الصياد"
End Sub

الكود المستخدم للاظهار

Sub اظهار()
SpreadsheetPassword = 1964
ActiveSheet.Unprotect Password:=SpreadsheetPassword
 Rows("8:20").EntireRow.Hidden = False
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
MsgBox "مع تحيات تى / قنديل الصياد"
End Sub

[قنديل الصياد]

كود لاخفاء واظهار الأعمدة

الأكواد المستخدمة

Sub إخفاء()
Sheets("ورقة1").Select
    Columns("A:d").Select
    Selection.EntireColumn.Hidden = True
    MsgBox "مع تحياتى / قنديل الصياد' "
End Sub

Sub اظهار()
Sheets("ورقة1").Select
    Columns("A:d").Select
    Selection.EntireColumn.Hidden = False
   MsgBox "مع تحياتى / قنديل الصياد"
End Sub

اخقاء واظهار الاغمدة.rar

[قنديل الصياد]

 

اخى العزيز

كود لاخفاء واظهار الصفوف

مع عمل حماية للورقة

كلمة السر لفك حماية الورقة  1964

 

الكود المستخدم للاخفاء

Sub اخفاء()
SpreadsheetPassword = 1964
ActiveSheet.Unprotect Password:=SpreadsheetPassword
Rows("8:20").EntireRow.Hidden = True
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
MsgBox "مع تحياتى / قنديل الصياد"
End Sub

الكود المستخدم للاظهار

Sub اظهار()
SpreadsheetPassword = 1964
ActiveSheet.Unprotect Password:=SpreadsheetPassword
 Rows("8:20").EntireRow.Hidden = False
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
MsgBox "مع تحياتى / قنديل الصياد"
End Sub

ملف مرفق

 

اخفاء واظخار الصفوف.rar