Temat: Hiperłącze do ukrytego arkusza

Cześć mam taki problem. Stworzyłem kilka arkuszy np. Rok, styczeń , luty, marzec itp Na arkuszu rok są nazwy pozostałych arkuszy jako hiperłącza do nich. Wszystko działa pięknie póki nie ukryję arkuszy docelowych hiperłącza. Po ukryciu hiperłącze nie może arkusza znaleźć. Rzecz w tym, by po ukryciu, arkusz wywołany przez hiperłącze otwierał się nadal.Ten post został edytowany przez Autora dnia 27.10.16 o godzinie 09:49

Temat: Hiperłącze do ukrytego arkusza

Czemu się dziwić - ukryty, to ukryty i już.
Albo to oprogramujesz (czyli komenda odkrycia arkusza w VBA)
albo zgodzisz się z blokadą dostępu do danych po ukryciu tych danych.

Dla zautomatyzowania procesu przechodzeniu do arkuszach otwartych skoroszytów (również z ukrytymi) polecam wynalazek:

Temat: Hiperłącze do ukrytego arkusza

Jak zwał tak zwał. Dla mnie ukryty oznacza niewidoczny a nie zablokowany. Jeśli np chcę stworzyć kalendarz i dla każdego dnia osobny arkusz to mam 365 arkuszy plus 12 arkuszy miesięcznych plus jeden roczny. Wątpię by było to do ogarnięcia z dolnego paska i przez jakiekolwiek narzędzie tak by działało intuicyjnie. To co jest mi potrzebne to ukrycie wszystkich arkuszy i wywoływanie konkretnego przez konkretne hiperłącze.

N.p.
Arkusz kalendarz roczny
Hiperłącze "Styczeń" otwiera ukryty arkusz o nazwie Styczeń.
W otwartym arkuszu styczeń mam kolejne hiperłącze do ukrytego arkusza 1- stycznia
Zasada folderów i podfolderów

A zwyczajnie na pasku dolnym nie chcę mieć 400 widocznych zakładek

Zaproponowane przez Ciebie narzędzie wykorzystam do innych celów bo tu niestety się nie sprawdzi. Dzięki za namiar.

Jak taki kod VBA miałby wyglądać?Ten post został edytowany przez Autora dnia 27.10.16 o godzinie 11:34

Temat: Hiperłącze do ukrytego arkusza

Cześć

wybierz:
Deweloper --> wstaw --> z kontrolek formularza: przycisk (formant formularza)

do przycisku przypisz poniższe makro

Ważne: nazwa w komórce musi mieć identyczną nazwę jak arkusz.

Sub info()
Dim info As String
info = Selection
Sheets(info).Visible = True
Sheets(info).Select

End Sub
działanie

jak ustawisz na komórkę i naciśniesz przycisk to odkryjesz i wejdziesz do arkuszaTen post został edytowany przez Autora dnia 27.10.16 o godzinie 14:29