Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako samodejno zaščititi vse delovne liste pri zapiranju Excelovega delovnega zvezka?

Običajno lahko delovni list ali celoten delovni zvezek ročno zaščitite z geslom s funkcijo Protect Sheet ali Protect Workbook v Excelu. Kaj pa lahko storite, če želite ob zapiranju delovnega zvezka vse delovne liste samodejno zaščititi z geslom? Ta članek vam bo prikazal metodo VBA, kako jo doseči.

Zaščitite vse delovne liste, ko zaprete Excelov delovni zvezek s kodo VBA


Zaščitite vse delovne liste, ko zaprete Excelov delovni zvezek s kodo VBA


Za samodejno zaščito vseh delovnih listov pri zapiranju delovnega zvezka uporabite naslednjo kodo VBA.

1. V delovnem zvezku, ki ga želite zapreti pri zapiranju datoteke, pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije dvokliknite okno ThisWorkbook v levem podoknu in nato pod kodo VBA kopirajte v okno Code. Oglejte si posnetek zaslona:

Koda VBA: Zaščitite vse delovne liste, ko zapirate delovni zvezek

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

nasveti:

1) V kodo vnesite geslo v vrstico xPsw = “”.
2) Če želite pri zapiranju delovnega zvezka samo samodejno zaščititi določen delovni list, vam lahko pomaga spodnja koda VBA.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Nato pritisnite druga + Q tipke za zapiranje okna Microsoft Visual Basic for Applications.

Po zgornjem koraku bodo vsi delovni ali določeni delovni listi samodejno zaščiteni, ko zaprete delovni zvezek.

Opombe:

1. Delovni zvezek morate shraniti v obliki datoteke Excel z makro omogočenim delovnim zvezkom.
2. Pojdite na določen delovni list, kliknite pregled > Varnostni list. Nato vnesite geslo, ki ste ga navedli v kodi VBA, da odstranite zaščito tega delovnega lista.

Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
Say something here...
symbols left.
You are guest
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.