white_black
06.12.13,11:56
Mám v dokumente cca 50 hárkov a potrebujem ich zabezpečiť heslom. Niektoré bunky som nechala odomknuté, no iné potrebujem zaheslovať. Neviete teda poradiť ako ich zabezpečím všetky naraz ? nechce sa mi totiž každý hárok zvlášť.... =/
sthruska
07.12.13,07:26
Vybrať všetky požadované listy a nastaviť im to naraz.
PaloPa
09.12.13,08:51
No, ono je to trochu komplikovanejšie. Skúsim vysvetliť.
Predvolene sú všetky bunky listu zamknuté a ak sa zamkne list, nemožno meniť obsah žiadnej z nich. Preto prvá operácia býva označenie buniek, ktoré budú editovateľné.
To sa dá i pre viac listov naraz (viď obrázok)
1| select buniek, ktoré budú editovateľné v prvom liste,
2| označiť všetky listy: klik na "uško" prvého, stlač a podrž SHIFT, klik na uško posledného
3| v dialógu Formát buniek, zrušiť zaškrtnutie na Zamknuté na záložke Ochrana (Protection)
TIP: klav.skratka: CRTL + 1, resp CRTL +SHIFT + 1 - podľa jazykovej verzie.
Zamknúť viac listov naraz sa však z menu nedá. Dá sa však jednoduchým makrom, napr.:
Sub ZamkniVsetkyZosity()
' ZamkniVsetkyZosity Macro by PPa
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="TvojeHeslo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
End Sub
Sub OdomkniVsetkyZosity()
' OdomkniVsetkyZosity Macro by PPa
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="TvojeHeslo"
Next i
End Sub
Predvolene sú všetky bunky listu zamknuté a ak sa zamkne list, nemožno meniť obsah žiadnej z nich. Preto prvá operácia býva označenie buniek, ktoré budú editovateľné.
To sa dá i pre viac listov naraz (viď obrázok)
1| select buniek, ktoré budú editovateľné v prvom liste,
2| označiť všetky listy: klik na "uško" prvého, stlač a podrž SHIFT, klik na uško posledného
3| v dialógu Formát buniek, zrušiť zaškrtnutie na Zamknuté na záložke Ochrana (Protection)
TIP: klav.skratka: CRTL + 1, resp CRTL +SHIFT + 1 - podľa jazykovej verzie.
Zamknúť viac listov naraz sa však z menu nedá. Dá sa však jednoduchým makrom, napr.:
Sub ZamkniVsetkyZosity()
' ZamkniVsetkyZosity Macro by PPa
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="TvojeHeslo", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
End Sub
Sub OdomkniVsetkyZosity()
' OdomkniVsetkyZosity Macro by PPa
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="TvojeHeslo"
Next i
End Sub