EXCELમાં બધી શીટ એકસાથે પ્રોટેક્ટ કે અનપ્રોટેક્ટ કરવી
Excelનો ઉપયોગ કરતી વખતે આપણે ફોર્મ્યૂલા અને લિંકને બચાવવા માટે શીટ પ્રોટેક્ટ કરતા હોઇએ છીએ. જ્યારે ફાઇલમાં ઘણી બધી શીટ હોય ત્યારે સુધારા કરતી વખતે વારંવાર શીટને પ્રોટેક્ટ અને અનપ્રોટેક્ટ કરવી પડતી હોય છે. આ પ્રક્રિયાને ઝડપી બનાવવા અહિં એકસાથે બધી શીટને પ્રોટેક્ટ અને અનપ્રોટેક્ટ કરવાની રીત બતાવેલ છે.
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
| |
ઉપયોગની રીત:
|
|
