Pozdravljeni,
imam Excelov dokument z veliko delovnimi listi (100) in na delovnih listih so podatki, ki jih lahko vidi le ena določena oseba. Torej, potrebujem zaščito vsakega lista s svojim geslom. Kako?
Zaščita delovnih listov
Re: Zaščita delovnih listov
Pozdravljeni,
Excelova zasnova predvideva zaščito pred spreminjanjem podatkov in ne zaščite pred pregledom podatkov.
Tako kot Excel deluje:
Rešitev je seveda možna, vendar je potrebno napisati VBA makre, ki to naredijo. Ker sklepam, da ne znate programirati v VBA-ju vam tudi ne bom razlagal postopka, vendar kot rečeno, s pomočjo VBA je to možno narediti. Zavedati pa se morate, da tudi v tem primeru zaščita ni 100% saj lahko nekdo, ki se na Excel spozna vedno vidi vse podatke.
Excelova zasnova predvideva zaščito pred spreminjanjem podatkov in ne zaščite pred pregledom podatkov.
Tako kot Excel deluje:
- z zaščito lista dosežete, da uporabnik, ki ne pozna gesla, ne more spremeniti podatkov (na konkretnem listu)
- z zaščito delovnega zvezka dosežete, da uporabnik, ki ne pozna gesla, ne more spremeniti strukture delovnega zvezka (dodajati, brisat listov...)
Rešitev je seveda možna, vendar je potrebno napisati VBA makre, ki to naredijo. Ker sklepam, da ne znate programirati v VBA-ju vam tudi ne bom razlagal postopka, vendar kot rečeno, s pomočjo VBA je to možno narediti. Zavedati pa se morate, da tudi v tem primeru zaščita ni 100% saj lahko nekdo, ki se na Excel spozna vedno vidi vse podatke.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zaščita delovnih listov
Vso to zaščito poznam.
Poznam tudi VBA, ampak, ker sem v časovni stiski, sprašujem, če ima kdo že kje kaj narejenega, ali pa vsaj delno za pomoč.
Poznam tudi VBA, ampak, ker sem v časovni stiski, sprašujem, če ima kdo že kje kaj narejenega, ali pa vsaj delno za pomoč.
Re: Zaščita delovnih listov
Z VBA pa ni problema:
- skrijete vse liste, razen glavnega (z navodili)
- zaščitite te te delovni zvezek in s tem uporabniki ne morejo videti listov
- uporabnikom prikažete obrazec, kamor vnesejo uporabniško ime in geslo
- Če je kombinacija ustrezna, makro odščititi DZ razkrije ustrezen list in zaščiti DZ
- ko se DZ zapre spet skrijete vse liste
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zaščita delovnih listov
Pozdravljeni,
Potrebujem pomoč pri osveževanju podatkov v excelovem delovnem listu.
V excel-ovem dokumentu imam več delovnih listov katere imam zaščitene z geslom. Uporabljam samo dva delovna lista prvega, kjer vnašam podatke v tabelo in drugega, kjer s pomočjo vrtilne tabele podatke analiziram, ostale delovne liste uporabljam za podatke za spustne sezname v prvem delovnem listu. V prvem delovnem listu uporabljam tudi VBA makre za avtomatsko razvrščanje podatkov. Težava nastane pri osveževanju podatkov na delovnem listu z vrtilno tabelo, če tega zaščitim z geslom se mi podatki ne osvežujejo. Kot rešitev sem že uporabil spodnjo funkcijo, vendar ne deluje. Prosim za namig, kako bi še lahko drugače osvežil podatke..
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="geslo"
ThisWorkbook.RefreshAll
ActiveSheet.Protect Password:="geslo"
End Sub
Potrebujem pomoč pri osveževanju podatkov v excelovem delovnem listu.
V excel-ovem dokumentu imam več delovnih listov katere imam zaščitene z geslom. Uporabljam samo dva delovna lista prvega, kjer vnašam podatke v tabelo in drugega, kjer s pomočjo vrtilne tabele podatke analiziram, ostale delovne liste uporabljam za podatke za spustne sezname v prvem delovnem listu. V prvem delovnem listu uporabljam tudi VBA makre za avtomatsko razvrščanje podatkov. Težava nastane pri osveževanju podatkov na delovnem listu z vrtilno tabelo, če tega zaščitim z geslom se mi podatki ne osvežujejo. Kot rešitev sem že uporabil spodnjo funkcijo, vendar ne deluje. Prosim za namig, kako bi še lahko drugače osvežil podatke..
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="geslo"
ThisWorkbook.RefreshAll
ActiveSheet.Protect Password:="geslo"
End Sub
Re: Zaščita delovnih listov
Pozdravljeni,
Vaša funkcija ima več težav.
In potem to funkcijo pokličete ko želite osvežiti tabelo.
Vaša funkcija ima več težav.
- Vi odščitite aktivni list ko se slednji spremeni, Kako pa e bo spremenil, če pa je zaščiten? Ta funkcija se vam nikoli ne izvede!
- Odščitite samo en lisk in želite osvežiti celoten delovni zvezek
Koda: Izberi vse
Private Sub OsveziVrtilnoTabelo()
Worksheets('Analaiza').Unprotect Password:="geslo"
Worksheets('Analaiza').PivotTables(1).PivotCache.Refresh
Worksheets('Analaiza').Protect Password:="geslo"
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zaščita delovnih listov
Najprej hvala za odgovor.
Uporabil sem vašo kodo, ki je za moj primer:
Private Sub OsveziVrtilnoTabelo()
Worksheets("Pivot").Unprotect Password:="geslo"
Worksheets("Pivot").PivotTables(1).PivotCache.Refresh
Worksheets("Pivot").Protect Password:="geslo"
End Sub
funkcija deluje, vendar pod pogojem da v VBA editor-ju stisnem run. avtomatsko se mi podatki osvežijo v vrtlni tabeli samo če nimam nastavljenega gesla. Nevem zakaj se koda ne izvede samodejno, v ostalih dokumentih mi podobni ukazi delujejo brez težav.
Uporabil sem vašo kodo, ki je za moj primer:
Private Sub OsveziVrtilnoTabelo()
Worksheets("Pivot").Unprotect Password:="geslo"
Worksheets("Pivot").PivotTables(1).PivotCache.Refresh
Worksheets("Pivot").Protect Password:="geslo"
End Sub
funkcija deluje, vendar pod pogojem da v VBA editor-ju stisnem run. avtomatsko se mi podatki osvežijo v vrtlni tabeli samo če nimam nastavljenega gesla. Nevem zakaj se koda ne izvede samodejno, v ostalih dokumentih mi podobni ukazi delujejo brez težav.
Re: Zaščita delovnih listov
sem uredil... te tri vrstice kode sem moral dodati k ostali kodi, ki jo uporabljam za razvrščanje podatkov.
Hvala za pomoč...
Hvala za pomoč...