j.w. Jedynym pseudorozwiązaniem jest "zamknięcie" sortowania i/lub grupowania pod przyciskiem z kodem makro który na wstępie wyłączy ochronę a po wykonaniu działania znów ją włączy.
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Spróbuj z hasłem (zmień wartości, jeśli ma być odwrotnie)[syntax=vb]Sub makro1() ' ' makro1 Makro ' blokowanie komórek i ochrona arkusza' ' Klawisz skrótu: Ctrl+r ' ActiveSheet.Cells.Locked = False With ActiveSheet.Range("C9:F13,C15:F19,C21:F2... .Locked = True .FormulaHidden = False...
4 komórki do których klient wpisuje dane, nie zaptaszkowac dla ochrony. Worksheets("arkusz1").Protect "hasło", userinterfaceonly:=True Zrob to recznie(odpal makro), nastepnie plik jako udostępniony dla wielu użytkowników. Tabela jest zablokowana, dla makro NIE. Worksheets("arkusz1").Protect "hasło", userinterfaceonly:=True - to umiesc w Workbook_Open
Witam Wszystkich, Mam taki problem do rozwiązania- jeżeli chodzi makra to jestem na początku drogi - a chodzi mi o coś takiego - w arkuszy zrobiłem kalkulację z grupowaniem danych - kiedy włączę ochronę - brak jest możliwości "rozwijania" danych - jakie makro pomoże ???
w pliku są danę osobowe pracowników, więc najpierw musiałbym go "wyczyścić". Przy starcie jest makro, które ukrywa arkusze i włącza ochronę. Arkusz1 ma własne menu podręczne.
Oferują sposób - aktywowany Arkusz 2, ma dialogu, który zaprasza zaznaczyc wierszy do edycji. Następnie Kliknij OK - dziala makro Inny sposób zapisz w makro w postaci "1:1 , 5:26, 29:57" np. [syntax=vb] Private Sub Worksheet_Activate() Dim k&, och As Boolean Set arw = Range("2:2, 3:3, 5:8, 12:24") With Me .Unprotect For k = 1 To 11 och = UCase(.Cells(1,...
1. Początkowo w formatowani komórek odblokować zakres B:I 2. Włączyć ochronę arkusza. (np. z hasłem 111 ) 3. Umieścić w kod Arkusz1 ten kod: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:I")) Is Nothing Or Cells(Target.Row, 1) <> "" Then Exit Sub Me.Unprotect...
Chyba pomieszałam. Niestety wcale nie "Chyba" :cry: , ale na pewno :D Komórka C5 nie jest powiązana z żadnym boxem umożliwiającym jakikolwiek wybór :!: Jeżeli cokolwiek wpiszesz do komórki C5 :arrow: zaczyna działać Twoje makro (oderwane zupełnie od arkusza Słownik :!: i tamtych tabelek), lecz po wybraniu checkboxa (ze względu na kod: If TrybEdycji...
Spróbuj tak. Wyłącz ochronę arkusza i zapisz skoroszyt. W module Ten_skorosozyt dodaj kod: [syntax=vbscript]Private Sub Workbook_Open() Me.Worksheets("Arkusz1").Protect UserInterfaceOnly:=True, Password:="" End Sub[/syntax] Podmień w kodzie właściwą nazwę arkusza i (opcjonalnie) dodaj hasło. Zamknij i uruchom ponownie skoroszyt. Makra się będą wykonywać,...
czy mógłbym poprosić o jakiś krótki przewodnik krok po kroku jak udało Ci się przenieść tę część makr do arkusza? co więcej; czy istnieje możliwość podpięcia blokady pod jednego użytkownika pliku? Chodzi mi o to by możliwość włączenia/wyłączenia kopiowania była możliwa tylko po wpisaniu hasła ochrony arkusza - znanego tylko przez jedną osobę, 'administratora'...
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Pobierasz dane poprzez kwerendę (dane zewnętrzne) czy poprzez odwołanie do konkretnych komórek innego skoroszytu? W drugim przypadku nie powinieneś mieć kłopotu z komórkami chronionymi. W pierwszym przypadku excel nie pozwoli bo metoda z odświeżaniem danych polega na wprowadzeniu nowych danych do komórek a właśnie to jest chronione i następuje sprzeczność....
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Do tego nie jest potrzebna znajomość VBA. Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza. W momencie włączenia ochrony Excel zapyta o hasło. Trzeba sobie włączyć widoczność paska narzędzi "ochrona" Tak zgadzam się z tobą ale problem polega na tym że mam makro co usuwa filtry i nie działa.ono...
Można, wykorzystując VBA. Procedura zdarzeniowa przy otwarciu pliku lub aktywowaniu arkusza. Nagraj makro Formatowanie>Ochrona wiersza. Początek makra to założenie ochrony na wszystkie (Cells), następnie odblokowanie wybranego wiersza. Np w pętli, przez wyszukanie (Find), lub przez wskazanie (jeśli daty występują kolejno). Na początku oczywiście zdejmowanie...
Jeśli już masz makro ukrywania/odkrywania kolumn to: podpowiedź 1. W arkuszu chronionym nie można odkryć kolumn podpowiedź 2. Ochronę z hasłem można zrealizować w makro, konieczna ochrona kodu VBA. podpowiedź 3. [syntax=vb]I UserName = "User1" then 'odkrywamy jakieś kolumny ElseIf UserName = "User2" then 'odkrywamy inne kolumny Else msgbox "Jako " &...
Witam. Mam problem z napisaniem makra, które kopiowałoby kolumnę (nazwisko i imię) z tabeli (tabela ma więcej kolumn, ale ze względu na ochronę danych nie zamieszczam) z arkusza "Dane" w pliku Rozliczenie do arkusza "Dane" w plikach grafik 1 i grafik 2, po skopiowaniu danych (samych wartości, nie formuł) trzeba stworzyć dla wszystkich osób arkusze kopiując...
Cześć, szukałem w internecie po wielu miejscach sposobu na rozwiązanie problemu związanego z ochroną skoroszytu jednak rozwiązania nie znalazłem. Mam makra, które w odpowiedni sposób chowają, odkrywają arkusze oraz zabezpieczenia do tych arkuszy za pomocą hasła tak aby nikt nic nie zmieniał. Jednak chciałem jeszcze zrobić zabezpieczenia przed tym aby...
Witam! Potrzebuję kodu do excela, który umożliwi mi jednoczesne grupowanie i ochronę arkusza, póki co mam coś takiego jak poniżej, jednak uniemożliwia mi to wstawianie kolejnych wierszy. Jestem zdecydowanie początkujący w tworzeniu kodów i potrzebuję pomocy w rozwiązaniu problemu Private Sub Workbook_Open() With Worksheets("Inne") .Protect Password:="hasło",...
Dobry wieczór, Zakładając, że układ danych się nie zmienił proponuję takie makro: [syntax=vb]Sub czysc() ActiveSheet.Unprotect Range("A1:B1").AutoFilter Field:=1 ActiveSheet.Protect End Sub[/syntax] Metoda ShowAllData nie chce działać jeśli arkusz był chroniony, nawet po zdjęciu ochrony. Pozdrowienia.
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....
Podejrzewam, że już masz bałagan z polami wyboru. Sprawdź takim makrem Sub sprawdz() ileWierszy = Cells(Cells.Find(What:="... Cells.Find(What:="potwierdz... _ - Cells.Find(What:="potwierdz... If Sheets("Arkusz1").Chec...
Nie chcę za bardzo wchodzić w pomysł kolegi adamasa bo nie wiem co było głównym celem i dlaczego to zrobił tak a nie inaczej. Zaproponuje trochę inne rozwiązanie, ale ponieważ nie znam całego kodu i intencji arkusza może być kłopot z działaniem (np wcześniejsza ochrona arkusza) Zakładam jak piszesz, że nazwiska w danych kolumnach są posortowane a właściwie...
Jeszcze jedna kwestia. Jak robię: " chroń arkusz" i w komórkach niechronionych wpisuję np. Robert to podczas ochrony nie wskakuje obok data a gdy zdejmę ochronę arkusza to wskakuje, czyli makro nie działa gdy arkusz jest chroniony - jak to naprawić ? Dodano po 5 A więc szukałem po necie i znalazłem taki post: Jeżeli bez hasła działa prawidłowo to na...
Teoretycznie - "tak", ale praktycznie to nie wiem czy byłbyś zadowolony, wiązałoby się to bowiem z zakładaniem ochrony na cały arkusz, przy wskazywaniu jednocześnie, które komórki mają być zablokowane, a które nie. Trudno dociec co tam jeszcze masz w arkuszu, co powiino być chronione/blokowane, a co nie i co czemu wchodziłoby w paradę. Taki pomysł na...
udało się rozwiązać problem, ale mam jeszcze jedno pytanie. Co zrobić żeby dane pobrane z formuły INDEX i MATCH po zapisaniu w folderze były stałe ?. To znaczy jak na przykład osoba której prześlę ten plik, a nie ma dostępu do pliku źródłowego widziała wygenerowane wcześniej dane w komórkach ? Cieszę się, że udało Ci się rozwiązać problem z funkcją...
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...
Przedstawię podobne rozwiązanie tylko z paroma "zabezpieczeniami" poza tym w twoim kodzie "cells.locked = false" spowoduje to, że właściwie to zabezpieczenie nie będzie miało sensu bo i tak odblokuje komórkę do zmiany. Mój kod zakłada że na wstępie komórki do zmiany są odblokowane i kod dopiero je blokuje. Private Sub Worksheet_SelectionChange(ByVal...
Witam Zastosowałem poniższy kod w arkuszu excela 2007, który automatycznie wstawia mi datę i godzinę . Jest ok. Jednak czy mógłby ktoś mi pomóc i tak zmodyfikował kod, aby komórki w których jest data i godzina, blokowane były przed edycją, np. hasłem. Kiedy próbowałem włączyć ochronę arkusza to wyskakuje komunikat Błąd !. Z góry dziękuję za pomoc. Private...
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną) to ta lista nie kopiuje się do kolejnego wiersza. Kopiuje...
Witam ponownie :) Międzyczasie, wpadłem na inne rozwiązanie. Porzuciłem listę rozwijaną i napisałem takiego oto makro: Sub Raportowanie_kompletacji() Dim Zlecenie As String, i, j As Long, Status As String, Komponent As String j = 0 'odblokowanie arkusza ActiveSheet.Unprotect Zlecenie = "" Do Zlecenie = InputBox("Podaj numer...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane arkusze do nowego pliku podczas mojej procedury początkowo...
Po wpisaniu w tą pętlę kodu - faktycznie chroni arkusz - ale tylko podczas otworzenia arkusza DANE, i próbę wpisu w niepowołane rubryki. Natomiast w czasie działania programu i wpisywania kwoty - da się wpisać w każdą kolumnę... To jest niemożliwe żeby nie chroniło. Chyba że nie w tym miejscu wpisałeś procedury. To ma być w procedurze przycisku Ok...
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[/...
Nie można edytować zablokowanych komórek w chronionym arkuszu. Musisz zdjąć ochronę jak napisano powyżej. Można umieścić jakiś plik na komputerze uprawnionego użytkownika np. allowed.sys i warunkować tym ochronę arkusza: Set fs=CreateObject("Scripting.File... If fs.fileexists("c:\windows\a...
Albo jest włączona ochrona makr, należy ją wyłączyć (obniżyć poziom zabezpieczeń) - lub brakuje modułu VB obsługującego ten przycisk.
Jesteś pewien że potrzebujesz do tego MAKRA? Bo moim zdaniem wystarczy zwykła [url=http://office.microsoft.com/pl-pl/e... arkusza.
Witam, na wstępie mówię, że przeszukałem już fora i nie udało mi się znaleźć rozwiązanie mojego problemu, a do rzeczy... Potrzebuję przefiltrować tabelę po dzisiejszej dacie. Mam dość rozbudowany plik Excela, (mnóstwo kolumn i wierszy), a w jednej z kolumn datę. Chcę żeby po uruchomieniu pliku Excela, makro przefiltrowało mi tylko wiersze z dzisiejszą...
Chodzi mi o to że z pliku korzystają inni i cały czas, grzebią w funkcjach ( edytują, usuwają ), a co za tym idzie powstają błędy w danych. A ja nie mam czasu sprawdzać i poprawiać formuły, po kimś kto nie / umyślnie przyczynia się do tego. Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy...
Kolego JRV za diabła nie wiem o czym do mnie mówisz z excela jestem zupełnym laikiem więc bardzo Cię proszę, o co chodzi z tym odgadywaniem hasła? i nie bardzo rozumiem co to znaczy lub co mam z tym zrobić: wb.SaveAs ........... .Columns(5).Delete 'E pomocy proszę trochę jaśniej POZDRAWIAM I DZIĘKUJĘ Dodano po 3 Jeśli chcesz żebym podał hasło do ochrony...
excel ochrona arkusza ochrona arkusza excel excel makro ochrona
toyota radio zasilać wsady flash blaupunkt rozdzielenie sygnału dekodera vectra
junkers czujnik temperatury junkers czujnik
Naprawa przerwanych lampek LED na druciku - jak to zrobić? C-360: Olej zmieszany z wodą, pęknięta zębatka