Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preveriti, ali je v Excelu zaščiten delovni list ali delovni zvezek?

Če želite preveriti, ali je določen delovni list ali delovna knjiga zaščiten ali ne v Excelu, vam ta članek lahko pomaga.

Preverite, ali je delovni list zaščiten s kodo VBA

Preverite, ali je delovna zveza zaščitena s kodo VBA


V Excelu zlahka zaščitite ali odstranite zaščito več delovnih listov v delovnem zvezku:

O Kutools za Excel's Zaščitite delovni list in Delovni list za zaščito pripomočki lahko pomagajo preprosto zaščititi ali odstraniti več delovnih listov v aktivni delovni knjigi hkrati v Excelu. Glejte spodnji posnetek:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite brezplačno preizkus Zdaj!


puščica modra desno mehurček Preverite, ali je delovni list zaščiten s kodo VBA


Naslednja VBA koda vam lahko pomaga preveriti, kateri delovni list je v trenutni delovni zvezki varen ali nezaščiten. Prosimo, naredite na naslednji način.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. In nato kopirajte in prilepite spodnjo kodo VBA v okno Code.

VBA koda: Preverite, ali je delovni list zaščiten ali ne

Sub GetProtectedSheets()
    Dim sh As Worksheet
    Dim xSaveSht As Worksheet
    Dim xSaveToRg As Range
    Dim xSaveToRg1 As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    If xSaveToRg.Worksheet.ProtectContents Then
        If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result?", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
            Set xSaveSht = ThisWorkbook.Worksheets.Add
            Set xSaveToRg = xSaveSht.Cells(1)
        Else
            Exit Sub
        End If
    End If
    Set xSaveToRg = xSaveToRg.Cells(1)
    Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
    xSaveToRg.Value = "Protected worksheet"
    xSaveToRg1.Value = "Unprotected worksheet"
    Set xSaveToRg = xSaveToRg.Offset(1)
    Set xSaveToRg1 = xSaveToRg1.Offset(1)
    For Each sh In Worksheets
        If sh.Name <> xSaveSht.Name Then
            If sh.ProtectContents Then
                xSaveToRg.Value = sh.Name
                Set xSaveToRg = xSaveToRg.Offset(1)
            Else
                xSaveToRg1.Value = sh.Name
                Set xSaveToRg1 = xSaveToRg1.Offset(1)
            End If
        End If
    Next
End Sub

3. Pritisnite F5 ključ za zagon kode, potem a Kutools za Excel pogovorno okno se pojavi, prosimo, izberite celico za iskanje rezultatov preverjanja in nazadnje kliknite OK gumb.

Opombe:

1. Če je celica, ki ste jo izbrali v zaščitenem delovnem listu, druga Kutools za Excel pogovorno okno se bo pojavilo, kliknite na OK gumb, bo rezultat preverjanja shranjen v novem ustvarjenem delovnem listu.

2. Nasprotno, če je izbrana celica v nezaščitenem delovnem listu, se rezultat preverjanja takoj prikaže v izbranem obsegu.

Rezultat preverjanja je prikazan spodaj:


puščica modra desno mehurček Preverite, ali je delovna zveza zaščitena s kodo VBA

Prav tako lahko preverite, ali je aktivna delovna zvezka zaščitena ali ne s kodo VBA. Prosimo, naredite na naslednji način.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. In nato kopirajte in prilepite spodnjo kodo VBA v okno Code.

VBA koda: Preverite, ali je delovna zveza zaščitena ali ne

Sub IsWorkbookProtected()
With ActiveWorkbook
  If .ProtectWindows Or .ProtectStructure Then
    MsgBox "This workbook is password protected"
  Else
    MsgBox "This workbook is not password protected"
  End If
End With
End Sub

3. Pritisnite F5 ključ za zagon kode.

Dobili boste eno od naslednjih pogovornih oken na podlagi vašega delovnega zvezka.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.