[حل شده] حذف پسورد sheet

[lovemet]

سلام.وقت بخیر
من میخوام توی فایل ضمیمه متن رو تغییر بدم اما به دلیل پروتکت بودن شیت ها نمیشه.چجوری میشه از حالت پروتکت خارجش کرد؟
من با یه سری نرم افزار تست کردم فقط پسورد vb رو برمیدارن و شیت ها پروتکت باقی میمونن
ممنون

[M_ExceL]

سلام.وقت بخیر
من میخوام توی فایل ضمیمه متن رو تغییر بدم اما به دلیل پروتکت بودن شیت ها نمیشه.چجوری میشه از حالت پروتکت خارجش کرد؟
من با یه سری نرم افزار تست کردم فقط پسورد vb رو برمیدارن و شیت ها پروتکت باقی میمونن
ممنون

سلام،
بفرمایید :
پسورد جهت Unprotect :
TiamnAMA#71632636

[lovemet]

خیلی ممنونم از کمکتون. از چه نرم افزاری برای اینکار باید استفاده کرد و اینکه چرا با وجود unprotect شدن بعد از save دوباره پروتکت میشه؟

[M_ExceL]

خیلی ممنونم از کمکتون. از چه نرم افزاری برای اینکار باید استفاده کرد و اینکه چرا با وجود unprotect شدن بعد از save دوباره پروتکت میشه؟

سلام،
من از روش غیر Public استفاده کردم
علت اینکه بعد از سیو پروتکت میشه کد های vba می باشد
داخل ماژول Thisworkbook کد های زیر قرار دارند و دو تا خطی که با رنگ مشخص شده می بایست حذف شود

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlManual

UnprotectAllSheets
Call RefreshPAMChartDataFormulas
Call RefreshISOChartDataFormulas
Call RefreshAMAChartDataFormulas
[COLOR=#ff0000]ProtectAllSheets[/COLOR]

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Call UnprotectAllSheets
[COLOR=#ff0000]Call ProtectAllSheets[/COLOR]
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

در مورد این فایل شما، اگر قفل قسمت vba رو بتونید بردارید پسورد رو داخل کد های vba می تونید براحتی بدست بیارید