قفل کردن هزمان شیت ها
Collapse
X
-
با درود
بنده از روش تنظیمات و دستورات اکسل نتونستم روشی پیدا کنم ولی میتونید با نوشتن یک ماکرو ساده به هدفتون برسید. در ضمن میتوند واسه ماکرو مربوطه یک کلید میانبر نیز تعریف کنید (مثلا ctrl+l) که هر بار با فشردن این کلید میانبر همه شیت ها بطور هم زمان قفل گردند. (در کد زیر عدد 123 به عنوان مثال پسورد شیت ها می باشد)
کد PHP:Sub Protect_All_Sheets()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Protect "123"
Next
End Sub



کامنت