[حل شده] امکان پرینت از یک شیت مخفی در ورک بوک محافظت شده

[a.heidari]

با سلام و احترام

من برای پیش نمایش یک شیت مخفی شده، دکمه چاپ و پیش نمایش از طریق ماژول با کدهای زیر درست کردم و دکمه را در یک شیت که مخفی نیست قرار دادم. با کمک یکی از کاربران محترم سایت (iranweld) که کد رو بازنویسی کردند شیت آشکار و دوباره مخفی میشه و پیش نمایش هم انجام میشه و مشکل مخفی بودن شیت حل شده.
فقط در صورتی که ورک بوک رو پروتکت کنم که واجب هست و باید حتما پروتکت بشه، دکمه چاپ که قرار دادم کار نمی کنه. کسی از دوستان راهی به نظرش میرسه کمک کنه مشکل حل بشه. ممنونم
نمونه کد استفاده شده

Sub Print_Page()
Sheet59.Visible = True
CURPRTAREA = Sheet59.PageSetup.PrintArea
MYPRTAREA = "A1:w404"
Sheet59.PageSetup.PrintArea = MYPRTAREA
Sheet59.PrintPreview
Sheet59.PageSetup.PrintArea = CURPRTAREA
Sheet59.Visible = False
End Sub

[kazamie]

این کد را امتحان کنید

Sub Print_Page()
Sheet59.Visible = True
Sheet59 .Unprotect "123"
CURPRTAREA = Sheet59.PageSetup.PrintArea
MYPRTAREA = "A1:w404"
Sheet59.PageSetup.PrintArea = MYPRTAREA
Sheet59.PrintPreview
Sheet59.PageSetup.PrintArea = CURPRTAREA
Sheet59.Protect "123"
Sheet59.Visible = False
End Sub

- - - Updated - - -

فقط به جای123 پسورد خودتان را بگذارید

[a.heidari]

این کد را امتحان کنید

Sub Print_Page()
Sheet59.Visible = True
Sheet59 .Unprotect "123"
CURPRTAREA = Sheet59.PageSetup.PrintArea
MYPRTAREA = "A1:w404"
Sheet59.PageSetup.PrintArea = MYPRTAREA
Sheet59.PrintPreview
Sheet59.PageSetup.PrintArea = CURPRTAREA
Sheet59.Protect "123"
Sheet59.Visible = False
End Sub

- - - Updated - - -

فقط به جای123 پسورد خودتان را بگذارید

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

[iranweld]

برای ورک بوک کدهای ذیل را اضافه کنید

'Protect with a password'
ThisWorkbook.Protect Password:="myPassword"

'Unprotect with a password'
ThisWorkbook.Unprotect Password:="myPassword" 

[kazamie]

فایل را پیوست کردم

[a.heidari]

سلام مجدد و تشکر مضاعف
مشکل حل شد. خیلی ممنونم.