پرسش اصلاح کد ماکرو (به کمک نیاز دارم)

[nimak2]

سلام اساتید محترم. من یک برنامه این برنامه رو درست کردم.
1. می خوام با هر بار تکمیل فرم در شیت ها. شیت های قفل شود و فقط ادمین دسترسی داشته باشه
2 . در شیت Condition می خواهم وقتی روی غیر فعال کلیک میکنم.به صورت خودکار تمامی شیت ها قفل ( تمامی سلول های مربوطه در شیت ها به صورت (- یا غیر فعال) در بیاد
3 . امکانش هست خروجی ( save) چند فایل اکسل . در یک فایل اکسل و به صورت یک فایل در آورد؟؟؟

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

[میثم مقدم نیا]

سلام اساتید محترم. من یک برنامه این برنامه رو درست کردم.
1. می خوام با هر بار تکمیل فرم در شیت ها. شیت های قفل شود و فقط ادمین دسترسی داشته باشه
2 . در شیت Condition می خواهم وقتی روی غیر فعال کلیک میکنم.به صورت خودکار تمامی شیت ها قفل ( تمامی سلول های مربوطه در شیت ها به صورت (- یا غیر فعال) در بیاد
3 . امکانش هست خروجی ( save) چند فایل اکسل . در یک فایل اکسل و به صورت یک فایل در آورد؟؟؟

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

سلام

دوست عزیز برای قفل کردن یا غیرفعال کردن شیت ها شما میتونید از کد زیر استفاده کنید

Sub inactive()

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect "1234"
Next i

End Sub 

که در اینجا ما از رمز عبور 1234استفاده کردیم

برای فعال سازی مجدد هم از کد زیر استفاده کنید

Sub active()

Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect "1234"
Next i

End Sub