Code: |
|
Option Explicit
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
|
|
ઉપયોગની રીત: |
|