اخى العزيز
كود لاخفاء واظهار الصفوف
مع عمل حماية للورقة
كلمة السر لفك حماية الورقة 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