MS Excel

Ahoj, potřeboval bych vyřešit problém, aby se mi sešit při otevření vždy otevřel na jednom s tom stejném konkrétním listu, bez ohledu na to, na kterém listu byl sešit uložený. Chtěl jsem to vyřešit pomocí makra spouštějícím se při otevření sešitu, ovšem při otevření jsou makra nastavená jako nepovolená (a bohužel s tím nemůžu nic měnit), tudíž nic nefunguje. Mohl bych někoho poprosit o radu, jak problém vyřešit? Díky moc.

Zaslat odpověď >

Jeza.m(1.4.2014 16:44)#018606

1) Vytvořit jeden list s textem, že je nutno povolit makra pro správnou funkci.
2) Vytvořit makro, které před uložením přepne na daný list a všechny ostatní nastaví na veryhidden.
3) Vytvořit makro, které při otevření přepne na list který chceš.
Pokud uživatel nepovolí makra, zůstane na to novém list s textem.

M@citovat

Stalker(1.4.2014 21:10)#018607

Není to z mí hlavy. Někde sem na to našel na netu a uložil.

Nastavení otevření sešitu aplikace excel na určitém listu docílíme pomocí scriptu:
Set objExcel = CreateObject("Excel.Application")
objExcel.visible = true
objExcel.workbooks.open("CESTA K SOUBORU")
objExcel.ActiveWorkbook.Sheets("NÁZEV LISTU KTERÝ BUDE AKTIVNÍ").Select

Tento text zkopírujeme do textového souboru a uložíme s koncovkou .vbscitovat

Carifuk(1.4.2014 21:28)#018608

Vlož kód do ThisWorkbook
menu je aktivní list po otevření sešitu.

Private Sub Workbook_Open()
Sheets("menu").Select
End Subcitovat

AL(1.4.2014 23:27)#018610

@Stalker - pmn niečo podstatné v tom návode chýba, totiž, že súbor potom otváraš dvojklikom na ten *.vbs súbor. Pokiaľ by OP otváral xl súbor z Excelu alebo exploreru, tak to fungovať nebude...

@Carifuk - áno, iste, ovšem len za predpokladu, že užívateľ nemá zakázané spúšťanie makier, na čo OP upozornil; chce to pozornejšie čítať zadanie. Asi jediný spôsob, ako ho donútiť makrá povoliť, je ten, čo tu dáva Jeza

citovat

eLCHa(2.4.2014 7:32)#018611

To tu dávám jen jako poznámku, protože nevím zda je to tento případ. bloom nenapsal, zda ostatní uživatelé data ze sešitu pouze čerpají (čtou) nebo zda je i mění.
Pokud by pouze čerpali, jedno řešení by tu bylo a to uložit sešit na konkrétním listě a nastavit pouze pro čtení.

Pokud by byla makra povolena, nešel bych cestouPrivate Sub Workbook_Open()
...
End Sub alePrivate Sub Workbook_BeforeSave((ByVal SaveAsUI As Boolean, Cancel As Boolean))
...
End SubTo proto, že následující uživatel už vždy otevře sešit na tomto listu.citovat

lubo(2.4.2014 9:21)#018612

Pak je také možné přesunout požadovaný list na první místo v seznamu.citovat

Téma: Otevírání sešitu na konkrétním listu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje