Příspěvky uživatele

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
Dim bEvents As Boolean
bEvents = Application.EnableEvents
Application.EnableEvents = False

ThisWorkbook.SaveAs Filename:="C:\" & Range("D6") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.EnableEvents = bEvents
End If
End Sub

@kp57
je pravda, že jediná cesta, jakou se v té době mohl soubor dostat do ruska je přes polsko nebo litvu - protože s těmito zeměmi byli rusové v kontaktu - většinou válečném ;)
onen skrytý talent samozřejmě mohl existovat - ale musíme si uvědomit, že silvestr tak jak jej známe dnes se začal oslavovat až někdy v 19. století
http://www.receptyonline.cz/silvestr-historie-Novorocnich-oslav--2709.html
takže v té době musíme považovat toto datum jako normální pracovní den a alkohol tak můžeme zcela jistě vyloučit ;))
nicméně Vaše hypotéza není špatná a zabývám se jí

mezitím mi ale odepsal dr. Langdon a vůbec ne překvapivě mi sdělil, že s excelem nepracuje, ale protože ho to také velice zajímá, požádal o radu svého přítele Billa Gatese, který má s tímto software trochu více zkušeností.

i pan Svěrák se mi ozval, že našli v Cimrmanových spisech nějaké zmínky o křídlech, výpočtech atp., že si s něčím nějaký Leo neví rady a poznámku "budu se tam muset ještě vrátit". Zatím si to neuměli s ničím spojit a že mi dá vědět, až zjistí více.

@Opičák
co bych to byl za čecha, kdybych opominul tuto postavu. Zatím jsem svůj výzkum tímto směrem neoznámil, protože mám málo informací. Existuje domněnka, že Jára sestrojil stroj času
http://abrahamcik.blog.idnes.cz/c/94309/stroj-casu.html
a tak pevně věřím, že jestli se za někým jel podívat, byl by to pan da Vinci. Ovšem nechci tady zatím moc spekulovat, protože by to mohlo ohrozit pravost všech da Vinciho vynálezů. Nicméně, protože záznamové médium bylo oficiálně vynalezeno roku 1801
http://www.fi.muni.cz/usr/jkucera/pv109/2000/xnesnid.html
dává to samozřejmě všechno smysl. Jsem v kontaktu s p. Svěrákem a i zde čekám, co odpoví.

@kp57
ruskou stopu nevzdávám, bohužel je čím dál méně pravděpodobná
pokud totiž předpokládám vliv L da Vinci, tak existují důkazy, že se diplomatické vztahy mezi itálií a ruskem začaly vyvíjet až ve druhé polovině 17. století
http://is.muni.cz/th/10639/ff_d/hiob_hlouskova_hanus.pdf
samozřejmě je možné, že se tam vynález dostal neoficiálně. Oficiálně to nepředpokládám, protože pokud by da Vinci svůj kalkulátor rozšířil, šlo by to západní cestou a existovaly by i jiné zmínky o tomto stroji než jen jeho zápisky.
I když to není jeho parketa, psal jsem dr. Robertu Langdonovi, který už jednu da Vinciho šifru vyluštil, zda by se jemu nebo některému z jeho kolegu nepodařilo soubor otevřít. Zatím čekám na odpověď.

Už kolem roku 1500 vynalezl L da Vinci mechanickou kalkulačku. Sice se žádná nedochovala, ale to neznamená, že nebyla sestrojena.
Tady to už začíná dávat smysl, protože pokud se do toho vložil tento velikán, je už všechno možné a nelze se divit, že zaheslovaný soubor nelze otevřít běžnými postupy.
Nebyl by tady překvapením ani formát xlsm - protože jeho zápisky ještě jsou postupně odkrývány a je tedy možné, že k objevení tohoto formátu došlo po roce 2000 a MS ho implementoval do verze 2007.

Trošku to ale zpochybňuje ruský původ souboru.

Další věc, která ukazuje, že by se mohlo jednat o soubor vytvořený v rusku je jeho název. Patrně během staletí a převodem na západní písmo došlo k nechtěné úpravě jeho názvu, ale přesto to rusky zní.
Mohlo to být např: полис, takže by se jednalo o výpočet pojištění. Že v té době už pojistky existovaly se můžeme dočíst například zde
http://www.brokerteam.cz/historie
Tady jsem se zatím zasekl, budu rád za každou pomoc

Nejsem si jistý jestli tak úplně rozumím a z toho co jste napsal asi málokdo, ale jestli jsem to pochopil, koukněte sem
http://elcha-en.blogspot.com/2014/12/array-formula-cse-in-vba-code.html
a vyzkoušejte CONCATENATE_RANGEIF

ten doplněk se jmenuje řádek vzorců a je standardně přítomen v excelu
jakmile začnete psát funkci, navrhne možnosti, vyberete si a on poradí, co dále.
pokud chcete psát =5+6 nebo = 5^6, tak používáte operátory a tam samozřejmě neporadí, protože nemůže tušit co chcete udělat.

použil jsem obrázek ze http://www.plzenak.cz/excel-12

První počítadlo (abakus) se používalo už v Babyloně.
V 11. století vydal v Paříži Bernelius dílo Liber Abaci.

Jinak jsem zatím žádný další odkaz na literaturu nenašel.

Vzhledem k tomu, že mezi největší profiky v této oblast vždycky byli rusové, počítám, že se právě jim tenkrát nějak podařilo uložit výpočet do souboru typu xlsm a to prosím o 400 let dříve než američanům. Rusové jsou bordeláři, tak se nedivím, že žádná literatura neexistuje. Ve volných chvílích budu pátrat dále.

Další věc je, jak se ten historický soubor dostal ke mně do počítače - jedna možnost je virus nebo něco podobného, ale to je nepravděpodobné, protože používám americký software v kombinaci s českým antivirem. To neprolomí ani rus.

Ještě jsem tu žádné téma nikdy nezaložil, tak jsem se rozhodl dneska.

Dneska mi excel našel v počítači soubor z 1.ledna 1601.
Nějaké teorie, jak to tenkrát dělali?

@AL
dík ;)

Např.:Sub Zamknout1()
Dim sPass As String
sPass = InputBox("Zadej heslo", "ZÁMEK")

Dim sh As Worksheet
If sPass = InputBox("Zadej heslo pro ověření", "ZÁMEK") Then
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:=sPass
Next
Else
MsgBox ("Hesla se neschodují!")
End If
End Sub

Asi bych doporučil jednoduchý formulář - 2 tlačítka + textbox
jednomu tlačítku přiřaďte Odemknout, druhému Zamknout

TextBox má vlastnost PasswordChar
Místo "Heslo" pak do procedur dáte textbox.text a při zadávání bude heslo skryté * (nebo čímkoli budete chtít)

Děkuji ;)

To propojení je na jeden zdroj nebo na více?

169000 ;)
on už to napsal AL, takže se nebudu opakovat - ale zajímá mně, jak dlouho se to otevírá ;)))

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje