Potreboval by som nazor plebsu. Premyslam, ze na stare kolena skusim predsa len nejaky marketing. Idea je tvorit idealne vtipne videa, ktore prezentuju firmu a zaroven zanechaju v divakovi nie az tak reklamny dojem, ale skor si ten pribehovy. Prva cast je o klasickom vikendovom utoku, ktory sa bezne deje, cize utocnik najde otvoreny deravy Windows server, pocka si na vikend a v piatok v noci zacne so sifrovanim jeho obsahu. Vacsinou este v sobotu sifrovanie bezi, ale prvi zamestnanci prichadzaju do prace az v pondelok, ked najdu nepouzitelne programy, databazy, zrazu nic nefunguje. Dnes uz nie je je vacsinou cesta ako data desifrovat, takze bud sa zplati vydieracovi (neodporucam), alebo sa obnovia data a cely server zo zalohy. Samozrejme s tym, ze sa aj uzavrie diera, ktorou sa utocnik dostal dnu.
Přejít na článek
Do 1.řádku vlož tlačítko, řádek ukotvi (aby ti tlačítko nemizelo) a pod tlačítko dej proceduru :
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
Sheets("List1").Range("a:d").AutoFilter
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub
To zamknutí je jen proto, aby tam do toho nikdo jiný nelezl. V proceduře si případně uprav název listu a sloupce pro autofiltr. Nad sloupci nemusíš mít předem nastavený autofiltr. Stiskem tlačítka se nad sloupci (zde A až D) nastaví autofiltr, pak si provedeš to co chceš filtrovat a opětovným stiskem tlačítka autofiltr nad sloupci A až D odebereš autofiltr. Mělo by to být funkční.
je to funkcni.. dik
Příkaz tam už je (excel 2003 cz):
DATA/FILTR/ZOBRAZIT VŠE