Excel 2010 - změna klávesové zkratky

[antoninstrnad]

Dobrý den,
potřeboval bych poradit, jestli jde v Excelu 2010 měnit klávesové kratky - abych si je mohl udělat stejné jako v Byznysu.
Konkrétně CTRL+D nahradit F12

[guest]

Úvodem...

Řekněme, že víte, do čeho se pouštíte.

Pokud si představujete, že si někde v Excelu otevřete nastavení a v seznamu zkratek provedete změny, tak na to zapomeňte. Přemapování klávesových zkratek můžete provádět prostřednictvím VBA.

a) Makrem a k němu přiřazenou klávesovou zkratkou (z listu ALT+F8, tlačítko Možnosti)
b) Zpracováním události OnKey při otevírání a zavírání sešitu.

V obou případech by pak přidružené makro obsahovalo instrukci SendKeys "{F12}", což ovšem nebude fungovat. F12 je běžná klávesová zkratka pro Uložit jako. Bohužel pod VBA je nejspíš v programu bug, protože se spouští dialog Otevřít. Tudíž na SendKeys můžete zapomenout a muselo by se to nasimulovat přes kolekci Dialogs.

[antoninstrnad]

Popravdě nevím do čeho se pouštím.
Dělám s Excelem a Byznysem a každý program má jiné klávesové zkratky. To znamená, že musím pořád myslet na to, ve kterém programu jsem a které zkratky zrovna platí. V Excelu často potřebuji CTRL+D a to se v Byznyse dělá F12.
Dá se s tím dělat, ale přesto jsem se začal zajímat o nějaké řešení, které by vše zjednodušilo, alespoň u této zkratky. (Uplatnit rčení, že počítače za nás řeší problémy - hlavně ty, které nám samy způsobily.)
Ptal jsem se na Byznys a tam jsou zkratky asi napevno. V Excelu jsem se trochu navnadil možnostmi u klávesy ENTER a opravdu si myslel, že to bude snažší. Vypadá to že ne.
Dík za každý nápad.

[cmuch]

Do modulu ThisWorkBook v excelu (Alt+F11) nakopírovat tuto

Kód: Vybrat vše

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  'reset vypnuti kontroly stisku klaves (F12)
  Application.OnKey "{F12}"
End Sub

Private Sub Workbook_Open()

  'zakazani stisku klaves (F12)
  Application.OnKey "{F12}", "ZmenaKlZkratky"
End Sub

Do obyčejného modulu (přidat lze přes pravé tl.myši na modul ThisWorkbook) vložit zase tuto

Kód: Vybrat vše

Private Sub ZmenaKlZkratky()
  Application.SendKeys ("^d")
End Sub