Witam serdecznie, Mam następujący problem, udostępniam innym użytkownikom z mojej firmy pliki .xlsx do wypełnienia, które ze względu na późniejszą obróbkę makrami są poblokowane. Blokada polega na haśle w ochronie skoroszytu --> chroń strukturę i okna --> Struktura (nie chcę żeby pozostałe osoby widziały ukryte zakładki). Sęk w tym, że do późniejszych...
adamas niestety Twój kod nie działa poprawnie. Dziś z samego rana po odpoczynku dostałem olśnienia i rozwiązałem problem. Do mojego kodu na początku dodałem odkrycie a na końcu zamknięcie arkusza i teraz śmiga jak ta lala :). Na początku kodu dodałem coś takiego: [syntax=vb]ActiveWorkbook.Unprotect Password:=Hasło Sheets("29").Visinle = True[/syntax]
Dołóż jeszcze ochronę arkusza (z innego pliku będzie można odczytać, ale zmienić już nie). O ile hasło będzie dosyć mocne dla "usuwaczy" freewarowych, o płatnych nie wspominam. Warto też chronić projekt VBA hasłem, żeby nikt nie mógł zmienić atrybutu Visible arkusza w edytorze i powinno być OK. Tu akurat, z innego pliku, odkrycie ukrytych arkuszy pójdzie...
Wydaje się, że masz problem z odkryciem arkuszy oznaczonych jako “very hidden” w Excelu przy użyciu funkcji komórek (cells). Oto kilka wskazówek, które mogą Ci pomóc: Użyj stałej xlVeryHidden: W makrach VBA możesz użyć właściwości Visible, aby ukryć lub odkryć arkusz. Wartość xlVeryHidden ukrywa arkusz i uniemożliwia jego wyświetlanie w oknie Excela....
Super. Bardzo fajny pomysł. Jednak na samym początku odkryłem mały błąd: otóż jeżeli w login i password wpiszemy cokolwiek innego niż w arkuszu Admin - wyskakuje run-time error (dodaję screen z edytora). Po anulowaniu mamy dostępny arkusz Start z możliwością edycji niestety. Sam jednak pomysł zaciekawił mnie bardzo i jestem teraz na etapie rozgryzania...
Cześć. A może coś więcej bo na razie z informacją jest oszczędnie? Jak zablokowany (włączona ochrona)? Najprostszym sposobem jest go makrem odblokować, ukryć/odkryć wiersze i zablokować (też makrem) na nowo. Do odblokowania służy: [syntax=vbscript]Sheets("Arkusz").Unprot... Blokuje natomiast: [syntax=vbscript]Sheets("TMP").Protect[/...
Witam, mam taki problem a mianowicie: Potrzebuję makro, które po pojedynczym naciśnięciu na przycisk "UKRYJ" pozwoli mi ukrywać pojedynczo arkusz z wielu odkrytych arkuszy ( tj. jedno naciśnięcie - 1 ukrywany arkusz). To samo w przypadku odkrywania arkuszy. Po naciśnięciu na przycisk "ODKRYJ" również odkrywać pojedynczo arkusze. Oczywiście chodzi o...
Prawym klawiszem na wybrany arkusz i "Chroń arkusz", jeśli chcesz ukryć to wybierasz "Ukryj". Później dajesz "Chroń skoroszyt" w opcjach Recenzja z zaznaczeniem pola "Struktura" i nie ma możliwości odkrycia arkusza. Założone hasło nie jest wywoływane przy otwieraniu dokumentu. Trzeba je wprowadzić tylko w celu zaprzestania ochrony skoroszytu. Dziękuję...
Mam problem w pliku mam niewiadoma liczba ukrytych arkuszy chciałem wszystkie odkryć za pomocą makra z pomocą Internetu stworzyłem taki kod Sub odkryjbarkusze() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub niestety nie działa moja znajomość VBA nie pozwala mi znaleźć błędu. Excel 2010 podświetlana...
Dzień dobry Jak w Excelu mogę zrobić za pomocą makra, aby dla danego użytkownika1 były widziane wszystkie arkusze (arkusz1, arkusz2, arkusz3, ..., arkusz100) w skoroszycie, a dla użytkownika2 dwa arkusze (arkusz1, arkusz2), a dla użytkownika3 (arkusz1, arkusz3). Jeśli nie ma użytkownika w bazie, to komunikat "brak dostępu do danych" AI: W jaki sposób...
Witam wszystkich. Aktualnie pracuję nad dużym plikiem analitycznym zawierającym trochę małych makr. W tej chwili mam problem z makrem do tworzenia arkuszy o nazwach pobieranych z zakresu komórek. Zależy mi na tym, aby makro sprawdzało, ile jest wypełnionych pól w dedykowanej tabeli (zakresie) przeznaczonym do wpisywania kodów przez użytkownika, a następnie...
Witam. Chciałbym jednym przyciskiem powiększyć wszystkie arkusze (pomijając ukryte) do określonej wielkości: Sub POW() Sheets.Select ActiveWindow.Zoom = 125 Sheets("Arkusz1").Select End Sub Wszystko się krzaczy gdy arkusz jest ukryty. Męczę się aby makro dotyczyło wyłącznie odkrytych arkuszy. Proszę o pomoc.
Cześć, mam problem, którego nie potrafię rozwiązać. Mianowicie potrzebuje narzędzia, które będzie wyszukiwać zakładki w pliku excel po jego nazwie. Powinno być to w formie MsgBox. Np. mamy plik jak w załaczniku i chciałbym, żeby odrazu po uruchomieniu wyskoczył MsgBox, gdzie możemy wpisać interesujacy nas arkusz i otwiera się on po potwierdzeniu komunikatu....
Mam takie o to dwa pytania odnośnie możliwości EXCELA otóż: 1. Czy przykładowo mam utworzony arkusz na zakładce na dole i chciałbym utworzyć makro które by zapisywało daną zakładkę jako osobny plik .xls w ustalonym wcześniej folderze wiem jak to zrobić w pdf ale interesuje mnie w xls 2. Czy po zapisaniu takiego pliku można by zrobić takie okno które...
Witam serdecznie. Przedstawiam dziś problem z którym borykam się od kilku dni. Mianowicie chodzi o to by zmusić excela do pobierania danych z innych zeszytów/arkuszy, czy jest to możliwe? Przykład: Mamy arkusze A1, A2, ZBIORCZY, każdy w osobnym ZESZYCIE (całkowicie oddzielne pliki). W arkuszu A1 znajdują się w różnych wierszach i kolumnach dane w postaci...
Toż to jedno drugiemu zarzecza - jak ktoś ma zablokowane makra, to jak makro "wymuszające" ma się odpalić?? ;) Nie ma takiej opcji. Możesz najwyżej ukryć wszystkie arkusze, zabezpieczyć dostęp do kodu VBA hasłem, i odkrywać je makrem na otwarciu. Jeżeli ktoś ma wyłączone makra -> makro na uruchomieniu się nie odpali i strony mu się nie odkryją. Jeżeli...
Nie wiem co pominąłem w odpowiedzi. Po prostu plik był na dysku HDD Samsunga, na drugiej partycji, odkryłem jego brak po miesiącu - czy czas po zwykłym usunięciu do kosza, ma jakieś znaczenie później podczas próby odzysku? Tak, to jest właśnie ta brakująca informacja. Czyli jak wyżej, plik najprawdopodobniej jest częściowo lub w całości nadpisany.
Luknij do pomocy... Excel2007-zaznacz cały arkusz - Narzędzia główne>Format>Odkryj wiersze
Mój kod sprawdza czy w skoroszycie istnieje arkusz o nazwie takiej jak nazwa użytkownika i jeśli ten warunek jest spełniony to zostaje odkryty taki arkusz a wszystkie pozostałe są ukrywane. Jeśli w skoroszycie nie ma arkusza o nazwie takiej jak nazwa użytkownika to zostaje odkryty jedynie arkusz o nazwie "Arkusz1". Innych warunków nie przedstawiłeś.
Jeśli zamieścisz arkusz to może ktoś ustali dlaczego to nie działa ale sam kod to za mało gdzie on jest w arkuszu w skoroszycie czy w osobnym module? Mówisz że działa poprawnie, gdy ukryty arkusz jest aktywny... Ciekawe bo ukryty arkusz nie może być aktywny, aktywowanie ukrytego arkusza wyrzuci błąd, więc jeśli już musisz tak robić, to go odkryj, zrób...
Jak mogę to zrobić automatycznie, nie chcę rezygnować z formatu numeracji. Przygotuj sobie szablon arkusza z odpowiednią tabelą (właściwie sformatowany) - zrób wzorcową numerację (zgodnie z zasadami logiki można to zrobić przez przeciąganie :D ), a w arkuszach roboczych (kopiach szablonu) użyj opcji ukryj/odkryj dla akurat niepotrzebnych wierszy.
Ale co chcesz osiągnąć? Nawet gdyby szło przewijać, zmiana wartości komórki w arkuszu nie zmieni wartości pola tekstowego. Musiałbyś wczytać ponownie... Jakimś sposobem byłoby umieścić ukrywanie formularza pod przyciskiem (UserForm.Hide), a w Thisworkbook_Open przypisać kombinację klawiszy uruchamiania makra odkrywania. Np dla Shift+a Application.OnKey...
Mam jeszcze pytanko związane z plikiem i ukrytymi arkuszami. Teraz już wszystko działa Ok jednak chcę do pliku dodać jeszcze jedną opcję, mianowicie chcę dodać jeden przycisk którym odkryję wszystkie ukryte arkusze. Mam w pliku 20 arkuszy o nazwach od 1 do 20 i chcę żeby kliknięciem na przycisk pojawiły mi się na dolnym pasku wszystkie arkusze, jak...
Ja pracuję na excelu XP i 2003 wszystko działa jak trzeba. Po włączeniu autofiltru i ustaleniu jakiś kryteriów zaznaczam dane (całą tabelę) http://obrazki.elektroda.net/1_127307734... przykładowe dane: http://obrazki.elektroda.net/94_12730764... ustawienie kryterium http://obrazki.elektroda.net/50_12730764... wynik: http://obrazki.elektroda.net/54_12730764...
W ostatnim z przedstawionych nie ma makra. Wszystko opiera się na formułach excela. Odkryj kolumny od K do Q a zobaczysz "silnik" funkcji zmieniającej cyfry w słownie. Zaznacza kolumny i klikam "odkryj", ale prosi o hasło??? A jak rozwiązać sprawę pisania np 30 - 40 różnych kwot słownie? Chcę coś takiego umieścić w arkuszach przetargowych - różne przetargi...
Cześć. Pojawił sie dodatkowy problem. Potrzebuje filtrować produkty do których podpinam zdjęcia. Robie to na bazie filtra zaawansowanego, niestety w przypadku gdy ukrywane sa wiersze, zdjecia z ukrytych wierszy nachodzą na odkryty nastepny wiersz. Czy jest jakis sposób alby zdjęcia ukrywały sie razem z wierszami?
Mam pytanie do szanownej braci znawców Excela i VBA. Oczywiście kodu w finalnym pliku jest duuużo więcej. Wyciąłem tylko to co powoduje problem, z którym nie wiem jak sobie poradzić (to znaczy jak zrobić to inaczej - z tym nie ma problemu, chodzi raczej o zrozumienie dlaczego tak to działa, a raczej nie działa). Ale do rzeczy: Plik ma kilka arkuszy,...
...jak kliknę w Excel na pasku to pojawia się cały arkusz - czy nie da się zablokować tej możliwości ? Chodzi mi o to, aby nie można było pokazać arkusza. Najprościej zminimalizowany plik Excela ukryć. Rozszerz procedurę UserForm_Initialize o linijkę kodu wykorzystującą właściwość "Visible" [syntax=vb]Private Sub UserForm_Initialize() Application.WindowState...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Szanowni Panowie, Dyskusja staje się w dużej mierze bezprzedmiotowa. Podstawowa trudność wynika stąd, że funkcja UDF nie może dokonywać żadnych (z nielicznymi wyjątkami) zmian w skoroszycie czy arkuszu, m.in. nie może niczego ukrywać ani odkrywać. Takie operacje można wykonać tylko makro, czyli procedura Sub. Tych ograniczeń nie ma jeśli funkcja jest...
Ja zaproponuję jeszcze coś innego (oczywiście cały czas mówimy o możliwościach bez wykorzystania VBA [makr]). Zaznacz wszystkie kolumny. Ukryj je. Włącz ochronę arkusza z hasłem odhaczając wszystkie opcje. Najedź na nazwę arkusza kliknij ukryj. Nawet jak ktoś odkryje arkusz będzie widział szarość i by coś zobaczyć (odkryć kolumny) musiałby znać hasło....
Siemka. Jako, że excel ma tyyyyle możliwości (których jeszcze nie odkryłem), mam takie pytanie: czy istnieje możliwość aby po wpisaniu pewnych danych do różnych arkuszy, określone dane zostały samoczynnie skopiowane do takiego arkusza nazwijmy go "zbiorczego" i uzupełniały się te dane z podziałem na miesiące (w załączeniu przykładowy plik). Szczegółowiej...
Kompiluje się i usuwa wiersz, nic więcej nowego nie odkryjemy: [syntax=vbnet] 'i = 2 'Do Until String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) ' If String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) Then ' objRange = oSheet.Cells(i, 2).EntireRow ' objRange.Delete ' i = i - 1 ' End If ' i = i + 1 'Loop try Dim arkusz = oExcel.Application.Sheets("Korpusy")...
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
Witam ponownie, dziękuję bardzo za podpowiedzi. Co do funkcji wyszukaj pionowo - zbyt skomlikowana, choc aż wstyd, bo miałam ja na studiach a nie umiem jej zastosować w praktyce. (tam jest potrzebna tabela odniesienia prawda? gdzies obok - stworzona) Posłużę sie juz gotowcem, (leniwa jestem okrutnie) bo sprawdziłam i działa. Jeśli odkryje co do niego...
Witam, chciałam napisać makro, które po zaznaczeniu odpowiedniego okienka ukryję bądź odkryje odpowiednie kolumny w następnym skoroszycie. Próbowałam jak poniżej, jednak wyrzuca mi błąd zaznaczająć podkreśloną linijkę. Jak inaczej odwołać się do innej zakładki? Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("sheet2").Columns("G:G").Select.....
Że muszę mieć odkryty arkusz to już sam zauważyłem. Ale z czego wynika to , że jak nagrywam macro to wszystko działa. A jak uruchamiam później skoroszyt to jest #ARG? Zarejestrowałem jeszcze raz makra. Tym razem przed Save nie ukrywałem Arkuszy. Wszystko działało. Robie Save. Wychodzę. Uruchamiam. Nie działa. ??????? Wklejam jeszcze raz kod: Sub Nazwisko()...
Dobra zaczniemy od początku ze program nie był uzupełniony, dlatego nic nie liczył, już trochę uzupełniłem. Potrzebuje, aby program wyliczał w arkuszu1 wszystkie sumy począwszy od J8 do J18 "zestawienie”, czyli urlopu kursy chorobowe itd., jeśli chodzi o arkusz 2 to chciałem zrobić, aby każda osoba była do wyboru i jej dane można było przez zmianę...
Dobra zaczniemy od początku ze program nie był uzupełniony, dlatego nic nie liczył, już trochę uzupełniłem. Potrzebuje, aby program wyliczał w arkuszu1 wszystkie sumy począwszy od J8 do J18 "zestawienie", czyli urlopu kursy chorobowe itd., jeśli chodzi o arkusz 2 to chciałem zrobić, aby każda osoba była do wyboru i jej dane można było przez zmianę w...
adamas_nt, to co podesłałeś jest idealne :) Kwestia sformatowania tabelki to już pikuś, zrobi się to na piechotę :) Ale jeśli piszesz, że poprawiłeś jakieś "byki" to już zerkam na poprawiony załącznik :) Dodano po 7 hmmm... Tylko zauważyłem, że jeśli z Arkusz 2 skopiuję całą tabelę do Arkusz 1 i odpalę Twoje makro to gdzieś giną dane z wiersza 49 i...
Dziękuję za uznanie. Bardzo lubię naprawdę dobre wina :) niemniej nie czuję, że takim drobiazgiem mógłbym no to zasłużyć. marek003 Kopiuje formułę ostatnia data i coś nie chce znaleźć Możesz wytłumaczyć na jakiej zasadzie działa Sama kopia formuły to za mało. Pisałem, że muszę się wspomagać wierszem pomocniczym (ukryłem go by nie zaśmiecał obrazu)....
chciałbym poinformować,że nie dawno odkryłem VBA Hmm... Skoro odkryłeś, może warto nauczyć się go wykorzystywać? Do rozwiązania swojego zadania potrzebujesz kilku rzeczy: 1. Określić nazwę folderu nadrzędnego. Tu można wykorzystać FileSystemObject, Np [syntax=vbscript]Dim oFSO As Object, srcFldr As String, parFldr As String Set oFSO = CreateObject("Scripting.FileSystemObject...
Dziękuję za odpowiedzi i za skrypt. Niestety arkusz kalkulacyjny od Google jest bardzo problematyczny. A skrypt nie działa do końca prawidłowo ale to wina chyba google ewentualnie tego skryptu. Dane się nie odświeżają, prawidłowa wartość pojawia się jednorazowo przy wpisaniu formuły a później praktycznie w ogolę się nie zmienia przy dopisywaniu danych...
Traktuję to zagadnienie już nie tyle ambicjonalnie ale raczej jako ciekawą pasję. Grafik działa świetnie i jestem świadom tego że to narzędzie do wygenerowania wydruku, a nie przechowywania danych. Jednak im dłużej się temu przyglądam tym bardziej mnie to ciekawi i teraz na jego bazie chciałbym zrobić dla siebie "zbiór" fajnych formuł w różnych zastosowaniach....
Przerobiłem kod. Pozbyłem się wyszukiwania pierwszej wolnej komórki i zastąpiłem poniższym kodem: [syntax=vb]If Sheet3.Cells(69, 2) = Sheet1.Cells(2, 8) Then With Workbooks("testlatest.xlsm") With .Worksheets("Sheet1") .Activate .Cells(2, 22).Select End With Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Witam. Mam pewien problem z arkuszem, dokładnie chciałem sobie zrobić coś takiego że jest sprawdzane kilka warunków by móc używać danego pliku excela. Z VB jestem niestety zielony, ale dzięki informacjom znalezionym coś tam sobie próbuje skleić. Mianowicie mam już coś takiego: ThisWorkbook: Kod: Option Explicit 'własna obsługa zapisu przy zamykaniu...
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Niestety nie umiem wykorzystać twoich kodów żeby poprawnie działały. Może dokładniej powiem co chcę osiągnąć tym kodem. Wykorzystałem w nim pięć przycisków CheckBox (wszystkie przyciski są w jednym arkuszu), w kodzie jak pokazałem w pierwszym poście wszystko działa ok, jednak chciałem aby zastosować kolejność odkrywania kolumn pod warunkiem że poprzednie...
W jaki sposób zaznaczasz lub chcesz zaznaczać te kolumny do wydruku? Sposób z nieciągłym zakresem wydruku ma tę wadę, że każdy jego obszar jest drukowany na osobnej stronie. Jeśli to nie jest problemem, można ten sposób stosować. Jeśli potrzebne jest uzyskanie ciągłego wydruku, nie ma prostego sposobu. Można się wspomóc kodem VBA. Można albo zapamiętać...
po odkryciu możliwości excela zaczynam naukę , ponieważ jestem zafascynowany jego możliwościami Na tym forum jest wielu prawdziwych mistrzów Excela i VBA. Nie wiadomo jednak czy znajdą czas żeby przygotować Ci kompletną dedykowaną do Twoich potrzeb aplikację :?: Jeśli zdecydujesz się jednak na samodzielną adaptację załączonej aplikacji - najlepszy...
Dzięki za zainteresowanie. Jednak w rzeczywistości Arkusz B jest nieedytowalny i nie można w nim odkryć skoroszytu z danymi tak jak w załączonym. Zrobiłem taki arkusz dla przykładu. Jeżeli była by taka możliwość zastosowałbym funkcję WYSZUKAJ.PIONOWO. Tak więc muszę napisać takie makro aby mi pobierało numer z Arkusza A wklejało do Bazy Arkusz B i pobierało...
Witam Mam w arkuszu ukryte wiersze od 3 do 200. Znalazłem kod odkrywający jeden wiersz lub cały zakres [syntax=vbscript]Sub Makro1() Rows(3).Hidden = False End Sub [/syntax] Chodzi mi jednak o to, aby po uruchomieniu makra sprawdziło ono czy jest ukryty wiersz 3 i jeżeli tak, to powinno odkryć ten wiersz, a jeżeli jest on już odkryty to odkryć wiersz...
Witam. Mam pytanko związane z pewną funkcją Excela zaznaczoną na poniższym screenie, a dokładnie 'Tryb projektowania'. Poniższy kod służy mi jednym kliknięciem do odkrywania/ukrywania wszystkich arkuszy. Czy do tego kodu jest możliwość dodać aby przy odkryciu wszystkich arkuszy została zaznaczona automatycznie opcja pokazana na screenie a po ukryciu...
Cześć Mam dwa arkusze w jednym pliku. Źródłowy oraz kopia źródłowego, w tej kopi są formuły "=Arkusz1!A1", "=Arkusz1!B1" i tak dalej. W pierwszym arkuszu są odkryte kolumny, w drugim kolumna A jest odkryta, kolumna B ukryta. Po wpisaniu do pierwszego arkusza do komórki B1 w drugim arkuszu również zmienia się ta sama komórka ale jej nie widać bo cała...
Tam jest zabezpieczenie na cały plik. A mi chodzi o to żeby plik się otwierał bez hasła, ale jak ktoś będzie chciał "odkryć" tylko jeden z ukrytych arkuszy żeby wtedy był poproszony o hasło. Pozostałe arkusze w pliku bez hasła powinny działać
Czy mozliwe jest odkrycie tych ukrytych formuł? Tak pod warunkiem, że znasz hasło. Dodane: Jeżeli go nie znasz a chcesz tylko formułki podejrzeć otwórz arkusz w bardzo przyjaznym oprogramowaniu firmy Sun Microsystems Inc. :D I niech ktoś spróbuje zarzucić mi piractwo
odkrycie arkusz excel excel blokada arkusza excel udostępnianie arkusza
kamera bezprzewodowy monitoring nagrzewnica wodna chłodnicy nokia zestaw słuchawkowy kabel
unifon cyfral smart analogowy suszarka haier
Sharp LC-40LE730E Firmware Download – Safe Sources, Board Codes, USB Update, Recovery Skrypt Python do rejestracji czasu bezczynności klawiatury i myszy