Zaščita lista z oblikovano tabelo

Pomoč pri delu z MS Excelom
Odgovori
Forter
Prispevkov: 26
Pridružen: Sr Feb 03, 2010 5:08 pm
Kraj: Mežica

Zaščita lista z oblikovano tabelo

Odgovor Napisal/-a Forter »

Pozdravljeni.
Na Excelovem listu imam polja, oblikovana kot tabelo. Ta tabela ima trenutno zgolj 2 vrstici, in sicer 1. z nazivi stolpcev in 2., kamor se bodo vnašali podatki. V nekaterih poljih 2. vrstice so tudi formule. Ko dodajam podatke v prazne celice 2. vrstice, se formule lepo izračunavajo. Ko pričnem z vnosom podatkov v vsaj eno celico pod 2. vrstico tabele, Excel samodejno razširi območje tabele na 3. vrstico, skopira vanjo formule iz 2. vrstice, 3. vrstico oblikuje v slogu tabele in tako gre zadeva samodejno dalje navzdol po delovnem listu. Problem nastane, ko želim zaščititi formule v tej tabeli, da jih kakšen uporabnik ne bi pomotoma spremenil ali izbrisal. Če naredim zaščito delovnega lista, se tabela več ne "podaljšuje" samodejno na nove vrstice. Se da ta težava rešiti?
Hvala za morebitno pomoč.
Peter
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Zaščita lista z oblikovano tabelo

Odgovor Napisal/-a admin »

Pozdravljeni,

Po meni znanih informacijah vaša želja v Excelu ni uresničljiva brez uporabe VBA-ja oz. brez programiranja.

Z uporabo VBA pa je rešljivo:
  1. Izdelajte tabelo
  2. Vpišite formule
  3. Odščitite vse kolone v tabeli, kamor uporabnik lahko vnaša podatke
  4. Na VBA modul lista dodajte sledečo proceduro:

    Koda: Izberi vse

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If IsNull(Target.Locked) Then
        Target.Worksheet.Protect , True, True, True, True
      ElseIf Target.Locked Then
        Target.Worksheet.Protect , True, True, True, True
      Else
        Target.Worksheet.Unprotect
      End If
    End Sub
    
lp,
Matjaž Prtenjak
Administrator
Forter
Prispevkov: 26
Pridružen: Sr Feb 03, 2010 5:08 pm
Kraj: Mežica

Re: Zaščita lista z oblikovano tabelo

Odgovor Napisal/-a Forter »

Pozdravljeni,
najlepše se vam zahvaljujem za odgovor in rešitev težave.
Lep pozdrav,
Peter
Odgovori