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

[nazi nazi]

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

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

[rasools13]

با کمی تغییرات در کد خودتون

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

[nazi nazi]

با کمی تغییرات در کد خودتون

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

سلام ممنونم
فقط موقع باز کردن پسوورد نمیخواد بدون اینکه پسوورد را بپرسه باز میکنه

[rasools13]

سلام ممنونم
فقط موقع باز کردن پسوورد نمیخواد بدون اینکه پسوورد را بپرسه باز میکنه

بله بدون درخواست پسورد باز میشه.. در کد هم نگاه کنید پسورد وارد شده و نیازی به پرسیدن نیست

[nazi nazi]

خوب من میخوام موقع باز کردن پسوورد بپرسه چکار باید کرد؟

[generalsamad]

با سلام
ببینید این کد مد نظرتون هست


Sub sbUnProtectAll()
On Error GoTo ErrorOccured
Dim pwd1 As String
pwd1 = InputBox("Please Enter the password")
If pwd1 = "" Then Exit Sub
For Each ws In Worksheets
ws.Unprotect Password:=pwd1
Next
MsgBox "All sheets UnProtected."
Exit Sub
ErrorOccured:
MsgBox "Sheets could not be UnProtected - Password Incorrect"
Exit Sub
End Sub

[nazi nazi]

با سلام
ببینید این کد مد نظرتون هست


Sub sbUnProtectAll()
On Error GoTo ErrorOccured
Dim pwd1 As String
pwd1 = InputBox("Please Enter the password")
If pwd1 = "" Then Exit Sub
For Each ws In Worksheets
ws.Unprotect Password:=pwd1
Next
MsgBox "All sheets UnProtected."
Exit Sub
ErrorOccured:
MsgBox "Sheets could not be UnProtected - Password Incorrect"
Exit Sub
End Sub


بله ممنونم