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

[nazi nazi]

سلام با استفاده از ماکروی زیر میشه تمام شیت ها را همزمان قفل کرد ولی آیا میشه برعکس این کار را هم انجام داد و با یک دکمه قفل کرد و با یک دکمه پس از وارد کردن پسوورد مورد نظر باز کرد چه تغیراتی باید در ماکرو داد؟

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

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