Zaščita delovnega zvezka - Excel 2013

[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]

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

[sonofagun]

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

LP

Gregor