[syntax=vb] Sub ochrona() Dim w&, k&, och As Boolean arw = Array(2, 3, 5, 6, 8, 10) With Sheets(2) .Unprotect For k = 1 To 11 och = UCase(.Cells(1, k)) <> "JEST" For w = LBound(arw) To UBound(arw) .Cells(arw(w), k).Locked = och Next Next .Protect End With End Sub [/syntax]
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
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.
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...
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ć,...
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
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.
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...
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 ???
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...
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[/...
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'...
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....
Jestem zielona w tym temacie oraz w vba. Mam pewien plik z makrem w Excelu(2013). I chciala bym aby,a chyba ze jest to nie mozliwe, aby makro zabezpieczylo ten plik przed: -usunięciem z określonego dysku, -nie pozwolili na skopiowanie tego pliku na inny dysk/folder/komputer itp -nie mozna by bylo tego pliku spakować i usunac/skopiowac/przeniesc/podpiąć...
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...
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...
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...
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ść....
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...
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 " &...
Jak u Ciebie jest z uprawnieniami do tworzenia nowych plików na tym komputerze zwłaszcza na dysku systemowym ? Twój Excel zainstalowany jest na komputerze ? Czy na jakimś serwerze ? Ten błąd w zasadzie zgłaszany jest wtedy kiedy Path przekracza 255 znaków :?: :cry: Tu nic takiego nie występuje :cry: Zrobiłem testy w Excel 2007 i w Excel 2016 wszystko...
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...
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.
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...
Zaznacz cały arkusz, odptakuj "zablokuj" w zakładce "Ochrona" (formatowanie komórek). I wtedy: [syntax=vbscript]ActiveSheet.Unprotect If Range("B2") = 1 Then Range("B4:C13").Locked = true Else Range("B3:C13").Locked = false End If [syntax=vbscript]ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True[/syntax] A dla wielu kolumn,...
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...
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....
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...
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...
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...
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...
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...
Witam ponownie. szczególnie marka ,który praktycznie w większości napisał mi makro w tym programie i jego proszę o pomoc. Program hula mi super, ale ja wymyśliłem pewne usprawnienie i mimo pomocy forumowiczów nie daję sobie do końca rady. Omówię pokrótce o co mi chodzi i pokażę jak mi pomagali koledzy.Program który wysyłam jest do minimum skrócony i...
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...
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...
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...
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...
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, rozumiem twoje pytanie, ale tak jak napisałem "świadomie chce to usunąć" moje makro otwiera plik do momentu kiedy przestaje być aktywny tryb "tylko do odczytu" i zapisuje dane niestety z końcowym komunikatem nieświadomy użytkownik klika "Do odczytu i zapisu" i dupa użytkownik otwiera plik i może dowolnie edytować dane a moim zamiarem jest ochrona...
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.
To jest mój kod (nagrane makro) który chcę uruchomić dla każdej tabeli: Sub Makro() ' ' ochrona_komorek + zmaiana_koloru ' ' Klawisz skrótu: Ctrl+o ' Range( _ "Tabela1[PRZYJĘCIE TOWARU / WYDANIE TOWARU / PRZYJĘCIE Z PRODUKCJI " & Chr(10) & "good received / good issue / back from prod.]" _ ).Select Selection.Locked = False Selection.FormulaHidden = False...
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ą...
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...
Jesteś pewien że potrzebujesz do tego MAKRA? Bo moim zdaniem wystarczy zwykła [url=http://office.microsoft.com/pl-pl/e... arkusza.
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 makro ochrona arkusza ochrona excel excel ochrona
zaworek myjka naprawa niebieski ekran komputer przesunięcia bitowe
adapter bluetooth mackie thump
Szarpanie rozrusznika na gorącym silniku Passat B5 1.9 TDI Jak zresetować Midea V-ECOK280-SLX-A V8?