قفل کردن هزمان شیت ها

[maziardm]

با سلام و روز خوش

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[abootorab]

با سلام و روز خوش

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

با درود
بنده از روش تنظیمات و دستورات اکسل نتونستم روشی پیدا کنم ولی میتونید با نوشتن یک ماکرو ساده به هدفتون برسید. در ضمن میتوند واسه ماکرو مربوطه یک کلید میانبر نیز تعریف کنید (مثلا ctrl+l) که هر بار با فشردن این کلید میانبر همه شیت ها بطور هم زمان قفل گردند. (در کد زیر عدد 123 به عنوان مثال پسورد شیت ها می باشد)

Sub Protect_All_Sheets()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect "123"
    Next
End Sub