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

[Amirsayyafi]

آیا راهی وجود داره که کلیه شیتهای یک فایل به یکباره Protect شوند؟

[~M*E*H*D*I~]

RE: قفل کردن کلیه شیتهای یک فایل

سلام
خدمت شما استاد محترم
[align=left]

Sub ProtectAll()
     
    Dim wSheet          As Worksheet
    Dim Pwd             As String
     
    Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd
    Next wSheet
     
End Sub
 
Sub UnProtectAll()
     
    Dim wSheet          As Worksheet
    Dim Pwd             As String
     
    Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
    On Error Resume Next
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:=Pwd
    Next wSheet
    If Err <> 0 Then
        MsgBox "You have entered an incorect password. All worksheets could not " & _
        "be unprotected.", vbCritical, "Incorect Password"
    End If
    On Error GoTo 0
     
End Sub 

[/align]

[~M*E*H*D*I~]

RE: قفل کردن کلیه شیتهای یک فایل

برای استفاده از این کد ها کافیه اونهارو در یک ماژول کپی کنید

[Amirsayyafi]

RE: قفل کردن کلیه شیتهای یک فایل

با تشکر
کدها را کپی کردم ولی فقط یک شیت را قفل میکند!

[~M*E*H*D*I~]

RE: قفل کردن کلیه شیتهای یک فایل

ایمیل کردم براتون فایل رو

[mokaram]

RE: قفل کردن کلیه شیتهای یک فایل

میشه اینجا فایل را قرار بدید

[Amirsayyafi]

RE: قفل کردن کلیه شیتهای یک فایل

فایلی که آقای وطن پرست زحمت کشیدند و برایم ارسال کردند:


http://persiandrive.com/626601

با تشکر مجدد از ایشون.