پرسش نحوه قفل کردن ستون ها در table

[Abbasmollayii]

باسلام خدمت شما ،میخواستم بدونم که چطور میشه در table از روی ستون هایی که فرمول داره پرید و نتونیم تغییراتی روی این ستون اعمال کنیم ؟ قبلا از طریق قفل کردن شیت امتحان کردم ولی با قفل کردن شیت جدول سطر اضافه نمیکنه،اگر امکانش هست من را در این رابطه راهنمایی کنید، با تشکر

[M_ExceL]

باسلام خدمت شما ،میخواستم بدونم که چطور میشه در table از روی ستون هایی که فرمول داره پرید و نتونیم تغییراتی روی این ستون اعمال کنیم ؟ قبلا از طریق قفل کردن شیت امتحان کردم ولی با قفل کردن شیت جدول سطر اضافه نمیکنه،اگر امکانش هست من را در این رابطه راهنمایی کنید، با تشکر

سلام،
با کد نویسی این مشکل رو میشه برطرف کرد
نمونه فایلیتون رو قرار بدبد تا روی اون اعمال کنم.

[Abbasmollayii]

سلام،
با کد نویسی این مشکل رو میشه برطرف کرد
نمونه فایلیتون رو قرار بدبد تا روی اون اعمال کنم.

سلام فایل را آپلود کردم،ممنون از کمکتون

[M_ExceL]

سلام فایل را آپلود کردم،ممنون از کمکتون

سلام،
ابتدا از فایلتون کپی تهیه کنید.
کد زیر رو داخل رویداد SelectionChange تمام شیتهای مورد نظرتون کپی کنید.

lsr = ActiveSheet.Range("a" & Rows.Count).End(3).Row + 1
shtpass = "123"
Application.ScreenUpdating = False
If Target.HasFormula Then
ActiveSheet.Unprotect (shtpass)
Target.Locked = False
Target.Locked = True
ActiveSheet.Protect (shtpass)
ActiveSheet.Range("a" & lsr).Select
Else
ActiveSheet.Unprotect (shtpass)
End If
Application.ScreenUpdating = True

کد فوق از تمامی سلول هایی که دارای فرمول هستند محافظت می کند.
جهت اختصاص پسورد مورد نظر، ابتدا مقابل عبارت shtpass که بصورت پیشفرض پسورد 123 قرار داده شده است رو می تونید تغییر بدید.
بنده کد رو روی شیت گزارش توليد فایل شما، اعمال کردم، شما می تونید روی هر شیتی که خواستید قرار بدید.
در اولین اجرا ماکرو ها رو فعال کنید.

[Abbasmollayii]

سلام،
ابتدا از فایلتون کپی تهیه کنید.
کد زیر رو داخل رویداد SelectionChange تمام شیتهای مورد نظرتون کپی کنید.

lsr = ActiveSheet.Range("a" & Rows.Count).End(3).Row + 1
shtpass = "123"
Application.ScreenUpdating = False
If Target.HasFormula Then
ActiveSheet.Unprotect (shtpass)
Target.Locked = False
Target.Locked = True
ActiveSheet.Protect (shtpass)
ActiveSheet.Range("a" & lsr).Select
Else
ActiveSheet.Unprotect (shtpass)
End If
Application.ScreenUpdating = True

کد فوق از تمامی سلول هایی که دارای فرمول هستند محافظت می کند.
جهت اختصاص پسورد مورد نظر، ابتدا مقابل عبارت shtpass که بصورت پیشفرض پسورد 123 قرار داده شده است رو می تونید تغییر بدید.
بنده کد رو روی شیت گزارش توليد فایل شما، اعمال کردم، شما می تونید روی هر شیتی که خواستید قرار بدید.
در اولین اجرا ماکرو ها رو فعال کنید.

عذر خواهی میکنم مزاحمتون میشم همش ولی این یه مشکلی داره که سطر به table اضافه نمیکنه

[M_ExceL]

عذر خواهی میکنم مزاحمتون میشم همش ولی این یه مشکلی داره که سطر به table اضافه نمیکنه

سلام،
لطفا بفرمایید که شما روی کدوم شیت تست کردید ؟
بنده روی شیت های فایل شما و همچنین فایل های مختلف تست کردم، بخوبی جواب میده.
قبل از تست کد، اگر شیت رو قفل کردید، ابتدا از حالت قفل خارج کنید.
یا حق.

[Abbasmollayii]

سلام،
لطفا بفرمایید که شما روی کدوم شیت تست کردید ؟
بنده روی شیت های فایل شما و همچنین فایل های مختلف تست کردم، بخوبی جواب میده.
قبل از تست کد، اگر شیت رو قفل کردید، ابتدا از حالت قفل خارج کنید.
یا حق.

من همون فایلی که شما گذاشتید را روی سیستمم باز کردم قبل اینکه کد را بخواهم کپی کنم برای شیت های دیگه همون شیت گزارش تولید را باز کردم ولی جواب نداد و سطر اضافه نکرد .

[M_ExceL]

من همون فایلی که شما گذاشتید را روی سیستمم باز کردم قبل اینکه کد را بخواهم کپی کنم برای شیت های دیگه همون شیت گزارش تولید را باز کردم ولی جواب نداد و سطر اضافه نکرد .

دلیلش میتونه عدم فعال سازی ماکروها باشه، چون کد دوباره تست گردید بخوبی داره عمل میکنه.

[Abbasmollayii]

دلیلش میتونه عدم فعال سازی ماکروها باشه، چون کد دوباره تست گردید بخوبی داره عمل میکنه.

به چه صورت میتونم ماکرو را فعال کنم؟