Change dla całego arkusza (arkuszy), a wewnątrz If B2=1 Then
Jak wybrzydzać, to wybrzydzać. Podobno nie ma programów bezbłędnych, są tylko niewystarczająco dokładnie przetestowane. Proponuję jeszcze podmienić linijkę: [syntax=vbscript]If Target = Range("A1") Then Range("A2").Select[/syntax] na [syntax=vbscript]If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A2").Select[/syntax] W pierwotnej wersji...
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...
W załączniku jest hasło - 'a'. Blokowane jest wpisywanie w kolumnie A. 2x klik na komórkę w A pokazuje datę wprowadzenia. Chcąc zdjąć blokadę, zdejmujemy zabezpieczenie arkusza.
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....
Np. dla zakresu A1:B5 Od początku powinno być odblokowany. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim zakres As Range Set zakres = Range("A1:B5") If Intersect(Target, zakres) Is Nothing Then Exit Sub Me.Unprotect 'haslo Target.Locked = True Me.Protect 'haslo End Sub [/syntax]
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...
Który z linii makro 'Odświerz1' błąd? ActiveSheet.ShowAllData ? wtedy [syntax=vb]If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData [/syntax]
Mam zapisane makro na tabelki do blokowania komórek po wprowadzeniu danych tego wymagają przepisy akredytacyjne. Jeżeli się ktoś pomyli musi w zakładce recenzja odblokować arkusz i w tym momencie czasami usuwają mi formuły.
Potrzebuję stworzyć makro, które będzie blokowało do edycji dany zakres komórek - jeśli w jakiejś innej komórce nie z tego zakresu będzie określona wartość dajmy na to 2. Prośba o pomoc.
Ok. a więc teraz jak już się da wpisywać w kolejnych wierszach kolumny A, to niestety nie blokuje komórki sąsiadującej, gdy w komórce z kolumny A wpisuje "nie". Kasuje tylko, jeśli wprowadzone było najpierw tak a potem zedytowane na nie Zanim wprowadziłam makro, zaznaczyłam komórki i zaznaczyłam w formacie w ochronie wedle zaleceń a w samym makro usunęłam...
Witam serdecznie, Bardzo poproszę o pomoc - mam kalendarz, który wykorzystuje makra, w którym chciałbym zablokować do edycji część kolumn/komórek/formuł. Gdy to robię to cały arkusz mam zablokowany do edycji. Gdy te same czynności powtarzam dla pliku bez makr, to zablokowane do edycji sa tylko te, które chce. Czy jest jakies ustawienie, które należy...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
W Excel 2007 wykorzystuje w podobnej sytuacji drobne makro, które blokuje hasłem niepuste komórki przy zamykaniu skoroszytu :D [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cell As Range ActiveSheet.Unprotect Password:="haslo" For Each cell In ActiveSheet.UsedRange If IsEmpty(cell) Then cell.Locked = False Next cell ActiveSheet.Protect...
Myślę, że jak dołączysz plik którego ma to dotyczyć i określisz na jakiej zasadzie chcesz zabezpieczyć określone komórki byłoby łatwiej. Możesz też włączyć nagrywanie makr i zapisać które komórki chcesz blokować a później przypisać tak stworzone makro do jakiegoś przycisku lub skrótu klawiatury.
Chodzi o to by excel nie przyjmował innego kodu Jeśli chodzi o to aby uniemożliwić wpisywanie ręczne w kolumnie A to można to zrealizować przy wykorzystaniu niestandardowego ustawienia poprawności danych :idea: - tak jak widać na zrzucie i w załączonym pliku :spoko: 1052639 1052640
Sory, żle to tłumacze :( Chodzi o to aby tak jak w arkuszu1, po wpisaniu daty, blokowała się edycja komórek do danej daty. To makro działa na jednym arkuszu a chciałbym aby dzialalo na kilku...
Witam, chciałbym stworzyć makro, które pozwoli mi na blokowanie możliwości wklejania i kopiowania danych z komórek przez użytkownika - z zastrzeżeniem, że blokada ma mieć miejsce tylko w jednym arkuszu w danym pliku, a nie w obrębie całego pliku; mam tu na myśli taką 'fizyczną' blokadę jak w niniejszym temacie na forum elektroda. http://www.elektroda.pl/rtvforum/topic22...
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i wartości z kolumn zostały by skopiowane i wstawione "jako...
Nie dokładnie o to mi chodziło kod blokuje mi tylko wiersz tej jeden w którym jest coś aktualnie wpisanie (zaznaczenie). Chciałbym aby blokował wszystkie wiersze powyżej, które w jednej z kolumn w danym wierszu mają wartość (dla mnie zapis "m" lub "p" lub "c") takie blokowanie warunkowe. Np. warunkową kolumną jest kolumna E. Jeżeli w danym wersie jest...
[syntax=vbscript]Sub Makro() For x = 1 To 31 If Cells(2, x) < Date Then Blokuj If Cells(2, x) = Date And Time() >= "13:59" Then Blokuj Next End Sub[/syntax]
Używam excel'a w pracy i chciałbym mieć możliwość ukrywania pewnego obszaru danych (wścibscy współpracownicy) poprzez zamianę jego koloru na czarny uzyskiwanym przez naciśnięcie przycisku z makrem. Problem w tym że "gdy się uspokoi" chciałbym tym samym przyciskiem powrócić do stanu poprzedniego - widzialnego. A przy okazji - szukam rozwiązania na ukrycie...
Szukam pomocy w rozwiązaniu blokady kolejnych kolumn, jeżeli data w komórkach pierwszego wiersza będzie mniejsza niż data bieżąca. Chciałem w makro odblokować arkusz, zmienić w pierwszej kolumnie wszystkie komórki na Zablokowane, jeżeli data w pierwszym wierszu tej kolumny jest mniejsza od teraz(), przejść do sprawdzenia kolejnej. Jeżeli kolejna data...
Wariant z blokowaniem zakresu komórek przy otwieraniu i zamykaniu zeszytu. 1. Na wszelki wypadek w procedurze 'Private Sub WorkSheet_Change(ByVal Target As Range)', w danym arkuszu, zmienić deklarację zmiennej z 'Dim i As Integer ' na 'Dim i As Long ' 2. W module 'ThisWorkbook' wkleić kod: 885619
Dzień dobry, Funkcja TRANSPONUJ działa bezbłędnie, ale ma też swoje wady. Tablica jest duża i wyniki trzeba gdzieś umieścić. Potem będzie je Pan chciał dalej przetwarzać. Po użyciu TRANSPONUJ traci Pan kontrolę nad źródłem danych, bo w każdej komórce widzi Pan tylko TRANSPONUJ i adres, poza tym nie można zmieniać pojedynczych komórek. Pewnie wygodniej...
Witam! Chiciałbym zapisać w VBA kolejność przemieszczania kursora. Czyli np, mam komorkę A2 po naćiścnieciu ENTER przesuwa się do A6 z A6 do C8 czyli zgodnie z wymaganą kolejnością. Blokowanie nie zdaje egzaminu ponieważ mam nagrane makro oraz funkcje jeżeli , przesuniecie pinowe vba itp. te komórki w których jest "co kolwiek aktywne" po zablokowaniu...
ok, działa jednak teraz blokuje się arkusz bo skoro caly czas jest wpisane Start to makro za każdym razem się odpala. Po wykonaniu makra powinna nastąpić zmiana wartości Start na Koniec. Tylko jak to zrobić?
Prawda, załącznik by wszystko wyjaśnił. Ja to zrozumiałem tak: Parametr X powinien być zawsze taki jak został podany, nie zmieniać się podczas przeciągania na inne komórki, tak jakby był tam $. Ale tego chyba nie robi się w samej funkcji, to nie makro zmienia parametry, ale mechanizmy Excela. Chyba, że ten parametr jest stały i można go pominąć w definicji...
Czy Tobie nie chodzi przypadkiem o blokowanie kolumn? Zaznaczasz całą kolumnę B i z menu wybierasz: Okno -> Zablokuj okienka (jeżeli używasz offica 2003). Potem suwak poziomy przesuwa wszystkie kolumny oprócz tych na lewo od zablokowanej. Aby odblokować - wybierasz "Odblokuj okienka". Można też napisać makro pytające o numery kolumn do porównania i...
Witam, mam arkusz, w którym muszę zastosować kilka makr, większość przeskoczyłem ale na dwóch się zawiesiłem i stąd mój wpis. 1. Czy w Excel2013 da się makrem ukrywać wstążkę tak jak dało się to zrobić w Excel2007 bo coś mi zadziałać makro, które kiedyś stworzyłem, a wiem że było sprawne oraz 2 ważniejsze: Mam tabelę i w kolumnie np. E11 mam wczytane...
Co do tego ze można dla każdego utworzyć kartę to powiedzmy że wiedziałem. Trochę obycia w tym programie mam, ale jak miał bym policzyć każdą osobę z osobna skoro po wybraniu z listy wszystko się zmienia na tego co wybiorę. Sprawdzałem na arkuszu 2 tak było dlatego tam jest tak wiele list wyboru ,bo chciałem właśnie zablokować listy wyboru na każdej...
Dzień dobry, Tak to jest jak się nie pisze dokładnie o co chodzi. Trzeba było napisać od razu, że chodzi o kopiowanie, a nie wpisywanie lub że o jedno lub drugie. Proszę wypróbować takie makro, reagujące na wprowadzanie danych w dowolny sposób (zdarzenie Change). Ma działać w kolumnach H, J i K (osobno). Można wprowadzać jedną komórkę na raz. Tym razem...
Witam! Nie mogę poradzić sobie z wyłączaniem na chwilę (na czas dodawania wpisu) ochrony arkusza excel, który został udostępniony. Mam 4 komórki do których klient wpisuje dane. Poniżej tych komórek jest tabela. Tabela jest zablokowana. Po wpisaniu swoich danych klient klika przycisk DODAJ następuje wyłączenie ochrony arkusza w kodzie VBA, skopiowanie...
Nie pamiętałem co tam w tym Twoim arkuszu jest "namotane" :cry: W mojej wersji działa tu makro "naprawione", dwie kolumny z listami poprawności danych, formatowanie warunkowe ukrywające :D dane w kolumnie H , oraz formułki w kolumnie J - Ufff... sporo tego i na dodatek jak wprowadziłem weryfikację poprawności danych w kolumnie I - to wszystko "wypaliło...
Chcesz odblokować tylko formatowanie tekstu w komórkach ? (dane nie zmieniac) Kod w post #2 odblokuje wszystko... Ale... te makra do przyciskow(Pobierz_Arkusz1, Usuñ_Arkusz1) to odblokowanie usune. Uzyj przy blokowaniu kod ActiveSheet.Protect Password:="x", AllowFormattingCells:=True
Trochę to nie jest jasne. Chcesz pokazać wszystkie wiersze, gdzie w kolumnie 6 jest data dzisiejsza albo z komórki? Jeżeli tak to poczytaj o Range.AutoFilter i dowiesz się jak to dokładnie zrobić. Proponuję utworzyć zmienną typu String (albo Date, zależy jaki masz format) pobrać tam kryterium filtrowania i potem użyc już gotowego. Niby to samo, ale...
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 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...
O ile dobrze zrozumiałem to może to wyglądać jakoś tak, jak w załączniku. Do arkusza jest dodane makro (więc trzeba zezwolić na uruchamianie makr). zdefiniowana jest funkcja SP, która przyjmuje dwa parametry: cały zakres do sprawdzania oraz sprawdzany wiersz. Będzie to widać w załączonym przykładzie. W przykładzie tablica prawidłowych cen jest od A2...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym. Kolumna E i F – format daty (dd-mm-yy). Jak...
Jeśli nadal chcesz szukać rozwiązania w makrach to poczytaj wątek [url=https://www.elektroda.pl/rtvforum/t... komórek po spełnionym warunku :idea:
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Witam! Mam dwa makra, pierwsze sprawdzające czy któryś z plików nie jest otwarty przez innego użytkownika: [syntax=vbscript] Public Function CanOpenAllReports() Dim canOpen As Boolean Dim fileName As Workbook Dim path As String Dim tempString As String Application.DisplayAlerts = False canOpen = True path = "D:\EXCEL\Wpisywanie\wprowadzanie danych\ilości.xlsm"...
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...
Możesz wypróbować taki kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim WorkRng As Range, Rng As Range Application.EnableEvents = False Set WorkRng = Intersect(Range("B:I"), Target) If Not WorkRng Is Nothing Then If WorkRng.Rows.Count > 1 Then Application.Undo Application.EnableEvents = True Exit Sub End If For Each Rng...
[url=https://www.google.com/search?q=exc... [url=https://www.youtube.com/results?sea...
Cześć, Taaaka sprawa: mam zrobioną listę 10 pozycji, z czego użytkownik ma zaznaczyć tylko 4 z nich, nie więcej. Jeżeli chciałby zaznaczyć 5, wyskoczy mu alert. Jak to ująć makrem? Jest jakiś "block" czy coś w tym rodzaju którego mogę użyć? Z góry dzięki za info,
Cześć, Potrzebowałbym jakieś rozwiązanie do pliku Excel, a mianowicie czy jest możliwość utworzenia takiego makra lub może jest jakaś opcja, gdzie będąc w pliku wpisuje dane, po zapisaniu i wyjściu z pliku, komórki z danymi blokują się, a po ponownym wejściu mogę kontynuować wpisywanie w wolnych komórkach, a te z danymi będą zablokowane do zmiany. Poniżej...
Witam Wszystkich, Zwracam sie z prośbą o pomoc w rozwązaniu małego problemu związanego z wprowadzaniem danych przez operatora na linii produkcyjnej. Operator zobowiązany jest do wprowadzenia czasu rozpoczęcia (B2) oraz czasu zakończenia (C2) na swoim stanowisku pracy. (+ dodatkowo ilości ktore wyprodukował, braki jaki powstały itd itp.) Dzięki Waszej...
http://obrazki.elektroda.pl/3025550100_1... Mając do dyspozycji jedną matrycę 8x8 czerwonych diod LED o boku 60,2mm oraz mikrokontroler ATtiny861 pozostałe po innych projektach postanowiłem zbudować to, co każdy elektronik chociaż raz w życiu zbudować musi: zegar ;). Ze względu na charakter wyświetlacza miał to być zegar binarny, ale...
Z frajdą dołączę się do dyskusji (na dole podam powód), ale musimy mocno rozdzielić targety, które się rozmazują: a) Na ARM-y w zasadzie rdzeń każdego języka da się przenieść b) na 8bit tylko wybrane (tzn nie interesują mnie, choć jestem stary javoviec, np java która co z tego że da się pokazać z hello wordl, ale nic ponadto). I boli głównie rozmiar...
Witam, od kilku dni mam problem ze stworzeniem listy rozwijanej, chodzi konkretnie o możliwość widoku na elementy w wybieraniu w liście, tzn. lista odwołuje się do kolejnych liter alfabetu pewnej czcionki, po rozwinięciu listy mają się wyświetlać litery alfabetu tej specjalnej czcionki (nie domoślnej), np. zamiast litery "e" w polu wyboru wyświetla...
excel makro blokowanie komórek blokowanie komórek excel excel blokowanie komórek
civic elektryczny schemat yamaha filtr paliwo wymiana żarówki punto
philips fc690 prostownik ideal
Żyroskop MJSTG1: MEMS czy Xiaomi Mijia G1? Klakson włącza się na 3 sekundy po przekręceniu kluczyka - przyczyny i rozwiązania