Register

SchoolPro પરિચય

  • SchoolPro Primary 3 પરિચય
    SchoolPro Primary 3 પરિચય   SchoolPro primary શું છે?   SchoolPro Primary એક શાળાકીય સોફટવેર છે જે શાળાકીય દફતરને કમ્પ્યૂટરાઇઝ્ડ બનાવે…
    Read 108714 times
  • SchoolPro Primaryની ખાસિયતો
    SchoolPro Primaryની ખાસિયતો મુખ્ય વિશેષતાઓ તમામ શાળાકીય રેકર્ડને ડિઝિટલ સ્વરૂપે સંગ્રહ કરે છે. માહિતીનો કાયમી સંગ્રહ થાય છે.…
    Read 19492 times

SchoolPro ડાઉનલોડ

  • SchoolPro ડાઉનલોડ
    SchoolPro ડાઉનલોડ SchoolPro Primary 3 માં નવું શું છે. મુખ્યમેનુ ડાબી બાજુ સ્થાયી બનાવવામાં આવ્યું. જેથી અન્ય…
    Read 77476 times
  • SchoolPro લાઇસેન્સ મેળવો
    SchoolPro લાઇસેન્સ મેળવો લાઇસેન્સ કેવી રીતે મેળવશો આ સોફ્ટવેરને પૂર્ણ સ્વરૂપે મેળવવા આપે લાઇસેન્સ મેળવવુ પડશે. આ માટે…
    Read 17822 times

હાલ આ સાઇટ પર શૈક્ષણિક સાહિત્યનું અપડેટ આપવામાં આવતું નથી. મારા તરફથી નવું અપડેટ્સ મેળવવા મારા નવા બ્લોગની લિંક ક્લિક કરીને મેળવી શકશો.

EduLinks3.in



Excelમાં બધી શીટ એકસાથે પ્રોટેક્ટ કે અનપ્રોટેક્ટ કરવી

Rate this item
(3 votes)
Written by  Published in: MS 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

 

                      

ઉપયોગની રીત:

  1. ઉપરનો Code કોપી કરો.
  2. MS Excel ઓપન કરો.
  3. Alt + F11 દબાવી Visual Basic Editor (VBE) ઓપન કરો.
  4. Insert મેનુમાંથી Module સિલેક્ટ કરી ઉમેરો.
  5. જમણી બાજુની વિન્ડોમાં કોડ પેસ્ટ કરો.
  6. VBE બંધ કરો.
  7. Save As ક્લિક કરી ફાઇલને Excel Macro-Enabled Workbook તરીકે Save કરો.
  8. હવે જ્યારે બધી શીટ પ્રોટેક્ટ કરવી હોય ત્યારે View મેનુમાંથી Macros પર ક્લિક કરો. ProtectAll કે UnProtectAll પર ડબલ ક્લિક કરતા બધી શીટમાં એકસાથે પ્રક્રિયા થશે.

 

Read 4374 times Last modified on Monday, 15 July 2013 09:56

આજના સક્રિય સભ્યો

મુલાકાતીઓની સંખ્યા



United States 72.2%Austria 0.2%
India 17%United Kingdom 0.1%
Australia 7.5%Germany 0.1%
Kuwait 1.8%Japan 0%
Canada 0.3%Ukraine 0%

Today: 67
Yesterday: 114
Last Week: 708
This Month: 1227
Last Month: 1973
Total: 34916