آیا راهی وجود داره که کلیه شیتهای یک فایل به یکباره Protect شوند؟
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
آیا راهی وجود داره که کلیه شیتهای یک فایل به یکباره Protect شوند؟
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
سلام
خدمت شما استاد محترم
[align=left][/align]کد PHP:
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
برای استفاده از این کد ها کافیه اونهارو در یک ماژول کپی کنید
با تشکر
کدها را کپی کردم ولی فقط یک شیت را قفل میکند!
ایمیل کردم براتون فایل رو
میشه اینجا فایل را قرار بدید
فایلی که آقای وطن پرست زحمت کشیدند و برایم ارسال کردند:
http://persiandrive.com/626601
با تشکر مجدد از ایشون.
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)