Dzień dobry, Rozwiązanie można oprzeć na dwóch procedurach obsługi zdarzeń. Pierwsza procedura będzie wykonywana przy aktywacji arkusza i będzie przygotowywać arkusz do ochrony. Wykonuje ona następujące operacje: 1) wyłącza obsługę błędów (dot. p. 4) 2) zdejmuje ochronę arkusza (jeśli nie było ochrony nic nie zmienia), 3) zdejmuje blokadę wszystkich...
Przetestuj takie rozwiązanie. Ochrona arkusza jest włączana automatycznie podczas otwarcia skoroszytu (hasło: "123" zdefiniowane jest w module VBA 'ten_skoroszyt'). Komórki, które mają być edytowane przez użytkowników muszą mieć odblokowaną ochronę (formatuj komórki->ochrona->zablokuj /odznaczone/). andie
[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]
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
Problem stworzony przez komórki skalone. Ochrony powinna być używana z parametrem UserInterfaceOnly:=True Obecnie takie
Jeśli to nie problem, to pozostań przy pierwszej opcji. Const nie może być pobierana bezpośrednio z komórki. Można to obejść, ale... Spójrz na przykład i zastanów się czy to ma sens?.[syntax=vb]Const sh = 1 Const rn = "a1" Sub test() ActiveSheet.Unprotect Password:=Sheets(sh).Range(rn) ActiveSheet.Protect Password:=Sheets(sh).Range(rn) End Sub[/syntax]...
Dla komórek bez ochrony czyli A1 i B1 w formacie komórki odznacz opcję jak pamiętam zablokowania (ostatnia zakładka). Musi działać!!! Powodzenia
Załącz przykładowy plik, bo to trzeba sprawdzić. Prawdopodobnie w procedurze Change trzeba zdjąć ochronę arkusza, zmienić status komórki na odblokowany, a następnie przywrócić ochronę.
Niestety, nie ma takiej opcji. Możesz co prawda przy ochronie arkusza zezwolić na sortowanie, ale zakres nie może składać się z komórek zablokowanych.
Odptaszkuj "zablokuj" w ochronie (formatowanie) komórek z wyjątkiem wybranych i włącz "Chroń arkusz". [url=http://office.microsoft.com/pl-pl/e... link z dokładnym opisem.
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"
Wypada zacząć od tego, że Excel nie jest twierdzą szyfrów i wszystkie zabezpieczenia są tu raczej symboliczne, to znaczy mają uświadomić użytkownikowi, że robi coś, czego robić nie powinien. Natomiast jeśli użytkownik jest zdeterminowany, to zawsze może znaleźć obejście, żeby coś niedozwolonego zrobić. W przypadku gdy zabezpieczenie bazuje na VBA, wystarczy...
Radze zrobic tak : -przy nie zabezpieczonym arkuszu zaznacz komórki w których zechcesz wprowadzac dane - klikasz prawym przysiskiem myszy i z menu podrecznego wybierasz "formatuj komórki" - w ostatniej zakładce "Ochrona" odchaczasz opcje "zablokuj" mozesz tez zaznaczyc opcje ukryj to wtedy nie beda widoczne formuły - klikasz OK - włączasz ochrone arkusz...
Zaznacz komórki D3:D27 i z formatu komórek, w zakładce Ochrona, odznacz Zablokuj. Potem pokombinuj z opcjami menu Recenzja, Chroń arkusz - w bardziej restrykcyjnej wersji zostaw domyślnie zaznaczone dwie pierwsze opcje opcje. Szczegóły: [url=http://office.microsoft.com/pl-pl/e...
Jesteś pewien że potrzebujesz do tego MAKRA? Bo moim zdaniem wystarczy zwykła [url=http://office.microsoft.com/pl-pl/e... arkusza.
Ukryć a następnie dać ochronę arkusza,tabeli.
Możesz zablokować każdą komórkę na pewne zmiany w niej (ikona zablokuj komórkę). Żeby to jednak zadziałało musisz włączyć blokowanie komórek Narzędzia->Ochrona->Chroń arkusz ...
Może być takie proste rozwiązanie bez VBA - patrz załącznik. W komórce B1 jest zwykła lista rozwijana kontroli poprawności. Dane można wpisać wprost do okienka kontrolki. W komórkach B2:B3 definiujemy kontrolę poprawności z listą zdefiniowaną za pomocą formuły nazwanej (w Menedżerze nazw). Zestaw odpowiedzi musi być zakresem w arkuszu. Jeśli są to te...
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
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...
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Włącz ochronę na komórkach z kolumn A i B, poprzez formatowanie komórek -> ochrona -> zaznaczyć „Zablokuj” (w komórkach, które mają być wypełnianie przez użytkowników, należy odznaczyć tę opcję). W module Ten_skoroszyt wprowadź kod: [syntax=vbscript] Private Sub Workbook_Open() Worksheets("Arkusz1").Protect Password:="", UserInterfaceOnly:=True...
Jedynie blokada całego arkusza, poza komórkami przewidzianymi do edycji może dać spodziewany efekt. Odblokowanie komórki w kodzie arkusza przy zdarzeniu Worksheet_Change. Możliwe założenie hasła blokady arkusza, niewidoczne w przypadku ochrony projektu VBA.
Napisz co chcesz uzyskać, to może rzeczywiście mechanizm ochrony arkusza i blokowanie komórek wystarczy.
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...
Na początek zaznacz komórki planszy w której gracz wpisuje zgadywane kolory i w Formatuj komórki>>Ochrona "odptakaj" blokadę. Zabezpiecz arkusz Narzędzia>>Ochrona>>Chroń arkusz . Potem w VBA w zdarzeniu Worksheet_SelectionChange arkusza z planszą wpisz kawałek kodu, który: 1. po wypełnieniu całego wiersza: - zdejmie ochronę arkusza - "zaptaka" blokadę...
no dzięki działa. Cho mam kłopoty z ochroną arkusza ale to już inna bajka.
aby zablokować dany arkusz w exelu należy wejść w zakładkę recenzja i kliknąć chroń arkusz. Jak klikniesz chroń arkusz to podajesz hasło i powtarzasz je jeszcze raz. Aby coś edytować w arkuszu musisz usunąć ochronę z arkusza Jeśli chcemy mieć jakieś komórki odblokowane przed zmianami np. komórkę B5. Klikamy w tej komórce prawy przycisk myszy i formatuj...
Chciałabym, żeby można było dane sortować i filtrować bez zdejmowania ochrony Gdy zakładasz ochronę musisz dodatkowo zahaczyć sortowanie i używanie autofiltru
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
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...
.. Niestety na kopiowanie danych poprawność danych nie pomoże.. Ale włączenie ochrony arkusza pomoże, umożliwiając równocześnie wstawianie danych w komórkach które nie są zablokowane.
Szanowna Koleżanko prawie wszystko można zrobić angażując odpowiednie siły i środki :D Na moje wyczucie dla Ciebie do rozwiązania Twojego "problemu" powinna z nawiązką wystarczyć zahasłowana ochrona skoroszytu i opcja śledzenia zmian :idea:
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....
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.
nie można uzupełniać innych komórek w wierszu bo program na to nie pozwala Ochrona arkusza działa w powiązaniu z ochroną komórek. Chronione przed edycją są tylko komórki , które mają włączoną opcję zablokowane : Formatuj komórki->ochrona->Zablokuj (domyślnie wszystkie są zablokowane). Więc Ty decydujesz, które komórki mogą być edytowane przez...
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...
Efekt taki jak na zrzucie 910728 tzn. można wpisywać wszystko tylko w puste komórki, natomiast edycja niepustych jest zablokowana hasłem :D - można uzyskać poprzez kod VBA np taki jak w załączonym pliku :spoko: (hasło ustawione przykładowo 1234) 910729 Cześć, Super działa tylko, jak przekopiowałem kod do vba w moim pliku przestało to wszystko działać,...
Wystarczy odblokować tyle kolumn i wierszy ile chcesz i następnie włączyć ochronę arkusza z odznaczoną opcją zaznaczania zablokowanych komórek. Co prawda widać będzie wszystkie, ale pracować będziesz mógł tylko na tych odblokowanych.
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
Zaznaczyć wszystkie komórki, PPM wybrać formatuj komórki. W zakładce Ochrona komórek odznaczyć opcję Chronione. Następnie zaznaczyć tylko komórki, do których użytkownik nie będzie miał dostępu i zrobić analogicznie z tą tylko różnicą, że zaznaczyć opcję Chronione. Następnie w menu Narzędzia założyć hasło na arkusz/dokument. Zapisać i sprawdzić. Następnym...
Kiedy robie standardowo czyli prawy myszy formatuj komórki ochrona >zablokuj następnie narzędzia ochrona>chroń arkusz Pojawia się zaznaczanie zablokowanych komórek tylko i wyłącznie z zaznaczanie odblokowanych komórek czyli wszystko jest zablokowane... a ja chcę zablokować tylko wybrane Dodano po 2 Więc gdzieś robię bląd tylko gdzie???
Cześć Marku! Plik działa wyśmienicie, jest znacznie więcej niż chciałem, o tym aby rejestrować PW i PZ nawet sobie nie pomyślałem a tak będe wiedział kiedy co weszło i wyszło! REWELACJA. Powiedz mi taką rzecz, czy dałoby się w zakładce technologia zamienić kolumny z wierszami tak aby w łatwiej było wklejać z BOMA materiał i ilości. Druga rzecz czy...
Cześć. Mam problem. Utworzyłem konspekt w arkuszu Excel i podczas chronienia arkusza, nie działa mi konspekt ( pokazuje się komunikat, że muszę najpierw odblokować arkusz). Próbowałem zaznaczyć wszystkie opcje podczas chronienia i nie działa. Nie chcę rezygnować z ochrony arkusza, bo plik będzie używany przez inne osoby i muszę zablokować niektóre komórki,...
Witam przede wszystkim musimy z wszystkich komórek do wyłączenia ochrony i włączyć ochronę arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Then Exit Sub If Target Like "ok" Then Me.Unprotect Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Locked = True Me.Protect End If End Sub
Numerowanie mam zrobione, działa fajnie Noo, mnie się to numerowanie specjalnie nie podoba, ale skoro jesteś zadowolony, pozostawiam ;) Co do sposobu przechowania zmiennej w której zapisano "rok" jako warunek kontynuacji numeracji, to w wątku podane zostały już te miejsca. Uważam, że najodpowiedniejszym jest sam arkusz Excela. Jeśli istnieje możliwość...
Witam! Szukam sposobu na automatyczne ustawienie ochrony karty w momencie zamykania pliku. Dokładniej chodzi o to, że mam plik używany przez wiele osób i zdarza się tak, że potrzeba na chwilę wybrać opcję "nie chroń arkusza" aby zmodyfikować chronioną komórkę - niestety czasem zdarza się tak, że ktoś zapomni ponownie włączyć ochronę arkusza i kolejny...
Staram się ale nie wychodzi mi to :-( Makr jeszcze nie robiłem to byłoby moje pierwsze. Jakbym ja zarządzał plikiem to nie byłoby mi potrzebne bo "ręcznie" bym odblokował plik zablokował komórki a później włączył ochronę arkusza ale do docelowego pliku kilka osób będzie miało dostęp. Czytałem jak poradzić sobie z drugim problemem. Na stronie https://docs.microsoft.com/en-us/office/...
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ść....
Dzień dobry, Rozwiązanie w Visual Basicu jest dobre, bo ogranicza zasięg zmian do wybranej komórki. Ale w samym Excelu też to da się zrobić, ale w ograniczonym zakresie. Trzeba wykorzystać obliczenia iteracyjne. W opcjach na karcie formuł trzeba zezwolić na obliczenia iteracyjne i ustawić max. liczbę iteracji na 1. W komórce B1 wpisujemy =B1+A1 i teraz...
ochrona excel excel ochrona excel puste komórka
instalacji gazowej lovato zmiana kierunek silnik przełącznik schemat bezpieczników master
tanie panele fotowoltaiczne panele fotowoltaiczne opłacalność
Whirlpool ADG 9490 PC 2010 – awaria pompy myjącej, diagnostyka, wymiana, objawy Mastercook – demontaż klapy kuchenki, zawiasy, modele KG, soft-close, instrukcja krok po kroku