Zaščita delovnega zvezka - Excel 2013

Pomoč pri delu z MS Excelom
Odgovori
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Zaščita delovnega zvezka - Excel 2013

Odgovor Napisal/-a sonofagun »

Pozdravljeni.

Naletel sem na težavo pri zaklepanju celotnega dokumenta (ne posameznega lista) v Excelu 2013. Želel sem namreč zaščititi celoten delovni zvezek, da niso možne nobene spremembe, niti izbira celic - torej ne samo Read-only varianta, ampak da lahko nek uporabnik dejansko samo odpre dokument in ga 'bere', brez klikanja in izbiranja celic.

Preizkusil sem že različne možnosti, od shranjevanja in potem določitve gesla za urejanje, do izbire Zaščita delovnega zvezka (to zaščiti samo strukturo delovnega zvezka), ampak brez uspeha.

Zaščita posameznega lista deluje kot običajno, ampak pri preveliki količini listov je naknadna zaščita posameznih listov preveč zamudna, bistveno enostavneje in hitreje bi bila zaščita celotnega delovnega zvezka.

Če se ne motim, se je to v prejšnjih verzijah Excela dalo narediti precej enostavno? :-|

Upam, da poznate problem in imate (kot vedno) kako dobro rešitev :-)

LP

Gregor
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zaščita delovnega zvezka - Excel 2013

Odgovor Napisal/-a admin »

Pozdravljeni,

Kolikor je meni znano se ni nič spremenilo. Vse verzije Excela imajo enako organizirano zaščito, saj z zaščito delovnega zvezka zaščitite strukturo delovnega zvezka in ne listov oz. celic - in od nekdaj je tako.

Za zaščito vsega naenkrat pa lahko zapišete preprost makro:

Koda: Izberi vse

Sub ZascitiVse()
  Dim geslo As String: geslo = "test"
  Dim ws As Worksheet
  
  For Each ws In Worksheets
    ws.Protect Password:=geslo, DrawingObjects:=True, Contents:=True, Scenarios:=True
  Next
  
  ActiveWorkbook.Protect Password:=geslo, Structure:=True, Windows:=False
End Sub

Sub OdscitiVse()
  Dim geslo As String: geslo = "test"
  Dim ws As Worksheet
  
  For Each ws In Worksheets
    ws.Unprotect Password:=geslo
  Next
  
  ActiveWorkbook.Unprotect Password:=geslo
End Sub
lp,
Matjaž Prtenjak
Administrator
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: Zaščita delovnega zvezka - Excel 2013

Odgovor Napisal/-a sonofagun »

Hvala za pomoč in za kodo, bomo uporabili kar to.

LP

Gregor
Odgovori