طائع قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 مطلوب كود اخفاء صفوف أعمدة ورق عمل رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 اخى العزيز كود لاخفاء واظهار الصفوف مع عمل حماية للورقة كلمة السر لفك حماية الورقة 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 2 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 كود لاخفاء واظهار الأعمدة الأكواد المستخدمة 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 1 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 اخى العزيز كود لاخفاء واظهار الصفوف مع عمل حماية للورقة كلمة السر لفك حماية الورقة 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان