Spróbuj w module ThisWorkbook wstawić procedurę: [syntax=vbscript] Privat... Sub Workbook_Open() With Worksheets("Nazwa_arkusza") .Protect Password:="Hasło", _ UserInterfaceOnly:=True .EnableOutlining = True End With End Sub [/syntax] W cudzysłowach wpisz odpowiednie...
Witam Mam arkusz kalkulacyjny excel chroniony hasłem w którym stworzona została tabela do edycji umożliwia użytkownikowi wypełnianie tylko wybranych kolumn, posiada makro które kopiuje całą zawartość do innego arkusza excel, jednak w momencie gdy włączamy edytowanie na komputerze który...
Jest super rozwiązanie dla mnie ale nie działa mi korzystając z poniższego KODU. Dalej wyskakuje mi błąd. Proszę o pomoc. Option Explicit Private Sub WorkSheet_Change(ByVal Target As Range) Dim i As Long i = Target.Row If (Target.Column >= 5 And Target.Column <= 6) And (i >=...
Witam, chciałbym napisać makro które gdy klikniemy button zapisze arkusz pod nazwą podaną w komórce a2 i przed zapisem w komórce a3 doda datę a w komórce a4 godzinę zapisu oraz dodatkowo ustawi brak możliwości edycji komórki a3 i a4 - chronione hasłem. Jest taka możliwość??? Proszę...
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...
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...
Witajcie, Potrzebuję kodu VBA, które będzie działało analogicznie do operacji: przemnóż z wykorzystaniem wklej specjalnie. Mam dane w arkuszu chronionym, wartości w komórkach są odblokowane i potrzebuję je przeliczyć wg kursu podanego w osobnej komórce. Zależy mi na przeliczeniu zaznaczonej...
If haslo = "1234" Then 'sprawdza poprawność hasła Tutaj 'haslo' jest zmienna, ma wartosc "1234", Worksheets("arkusz1").Protect "haslo", userinterfaceonly:=True 'odblokowuje ochrone arkusza tu haslo naprosto ma wartosc "haslo" To moje niedopatrzenie, na potrzeby...
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...
Dziękuję za podpowiedź ale nadal mam problem. Chroniony nie jest cały arkusz tylko sama tabela do której należy skopiować dane i tu pojawia się problem. Próbowałem na kilka sposobów i za każdym razem wyskakuje mi błąd, że podane hasło nie jest prawidłowe. Jakie polecenie należy wpisać...
bezsens takiego "zabezpieczenia" pliku To może trochę inaczej (załącznik). Wszystko działa ładnie jak się zezwoli na używanie makr. Oczywiście nie polecam trzymać tam danych chronionych, ale np. do przygotowywania listy obecności dla n pracowników jest to fajny pomysł bo wystarczy...
dobrze, inne osoby nie działa z arkusza 1? plik Pana powinny być wspólne dla reszty. Jest pożądane, który można otworzyć bez ostrzeżenia "do odczytu" Pytanie 2 jako makro musi znać nazwę pliku "statystycznego", bo to może mieć inne pliki do nagrania na arkuszu po zamknięciu, zamiast...
Witam, Jak w temacie, nagrywam makro (zaznaczam by było przechowywane w skoroszycie makr osobistych) , które ma za zadanie zablokowanie niektórych komórek, następnie naciskam "chroń arkusz", zaznaczam opcje które będą dla użytkownika dozwolone a które nie i powyżej wpisuję hasło, naciskam...
... W standardzie jeżeli arkusz jest udostępniony po sieci firmowej to w momencie używania go przez jedną osobę, druga osoba może go otworzyć w trybie "tylko do odczytu". Po założeniu hasła w celu przyznaniu dostępu tylko niektórym osobom założyłem hasło umożliwiające chroniące...
Na wstępie zaznaczę, że szukałem, czytałem, ale nie mogę dojść dlaczego u mnie to nie działa... Otóż, mam taki oto kod [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Protect = False Then ActiveSheet.Protect Password:="haslo" ...
Moderowany przez Marek_Skalski: Kolego, Twoje pytanie nie jest bezpośrednio związane z pytanie Autora tematu. Z tego powodu sugeruję wydzielenie tematu do nowego wątku. 3.1.19. Nie wysyłaj wiadomości w tematach archiwalnych, jeśli jest to kolejne pytanie, w szczególności inne niż osoby pytającej....
... Mam jeszcze jedno pytanko - mianowicie czy można rzeczywiście "chronić arkusz" - ponieważ jak wiemy sposób oryginalny może każdy łatwo odblokować? Łatwo??? Uważasz że jeżeli ktoś będzie chciał skorzystać z twojego arkusza gdyż sam nie potrafi czegoś takiego (podobnego)...
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...
Sprawdz czy aby na pewno stosujesz odpowiednią nazwę arkusza. Czy nie ma literówki itp. Jeżeli prawidłową nazwę arkusza ujmiesz w cudzysłowiu to musi działąć nawet ze spacjami i innymi znakami które pozwolą się wpisać w nazwie. Chyba że błąd dotyczy czegoś innego np. arkusz jest...
Mam do wykonania dwa zadania: 1. Sporządź wykres przestawny pokazujący liczbę wytworzonych sztuk 4 produkowanych wyrobów w 3 oddziałach firmy w okresie 4 kwartału 2012. Dane powinny obejmować minimum 20 rekordów. 2. Napisz makro wpisujące podaną przez użytkownika datę do komórki a1 arkusza,...
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...
Nie wiem czy do końce załapałem ale ... chyba robisz z igły widły. To co ty robisz można zapewne zautomatyzować (nawet makrem - ale nie koniecznie). Niestety aby to określić musiałbym widzieć przykładowe dane (mogą być pojedyncze litery i cyfry w komórkach) z dodatkowym opisem co przekazujesz...
zalezy mi zeby klawisze tak (odblokowanie komorek) nie (zablokowanie komorek) dzialaly na chronionym arkuszu.. TO jest ten arkusz.. istnieje mozliwosc napisania takiego kodu ?
Cześć mam takie zadanie do przygotowania, ale nie znam się zbytnio na VBA Czy jesteście w stanie pomóc? napisz makro wpisujące podaną przez użytkownika datę do komórki a1 arkusza, tak, aby chroniło arkusz przed wpisaniem przez użytkownika innego niż data tekstu następnie za pomocą...
A jakiego Excela używasz?? Arkusz nie jest chroniony, w pliku Baza.xlsm wciskasz ALT+F11 i kod makra powinien być w Arkusz1.
A może zablokować pozostałe komórki żeby nie dało się ich edytować i wtedy po prostu pracownik musi wykasować wszystkie pozostałe komórki? Excel pozwala chronić arkusz z wyłączeniem konkretnych obszarów. Możesz te obszary zaznaczyć innym kolorem, żeby wiedzieli co mają wykasować.
Jesteś pewien że potrzebujesz do tego MAKRA? Bo moim zdaniem wystarczy zwykła [url=]ochrona arkusza.
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 no tak, sorka. Chodzi mi o makro w exelu. Nie mogę skopiować makr w arkuszu które pobierają dane bo te są chronione hasłem. Makro jest jednak przypisane do przycisku. Mam roboczy raport do którego ręcznie przeklejam dane. Istnieje sposób aby napisać takie makro Excel aby w tym moim...
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...
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...
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 Zlecen...
Powstał nowy problem. Po udostępnieniu skoroszyt w serwerze nie działa to makro. [syntax=vb] Sub Odświerz1() ' ' Odświerz1 Makro ' ' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("Magazyn Główny").Unprotect "1234" ActiveWorkbook.Worksheets("Magazyn...
... 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ść...
Dzięki - wkleję to makro. Dodano po 4 Pojawił się przed chwilą mały problem.Mianowicie dobrze działał mi program w excelu i raptem w pewnym miejscu programu pojawia sie okno (powyżej ) - nie wiem dlaczego i nie idzie tego wyeliminować ?? Nic nie zmieniałem i nie chronię arkusza....
Witam, Drodzy, Mam problem ze stworzeniem w vba programu który dany np. "Arkusz1" skopiowałby do nowego pliku excel, tak, aby zachowany był tylko wygląd arkusza ( bez żadnych formuł, makr itp), oraz automatycznie zapisywał się w lokalizacji gdzie istnieje pierwotny plik ( beż żadnych...
Częściej korzystaj z rejestratora :) Po nagraniu polecenia "Chroń arkusz" (E2007) otrzymasz coś takiego Sub Makro1() ' ' Makro1 Makro ' ' Sheets("Arkusz1").Sele... ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub...
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...
Na początek nagraj makro czynności "Chroń Arkusz", odznaczając wszystkie opcje. Spróbuj wykorzystać nagrany kod.
No to w kodzie chronionego arkusza wpisz coś takiego: [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L20:L31")) Is Nothing Then Application.EnableEvents = False Target.FormulaR1C1 = "=RC[-10]" Application.EnableEvents...
Witam Chciałem zrobić sobie taki "sprawdzacz" wszystkich zabezpieczeń w skoroszycie excela. Na razie poniższy kod odwołuje się do otwartego (aktywnego) skoroszytu. Zmienię to później poprzez wybór albo pliku albo otwartych skoroszytów - to będzie później. Na chwile obecną utknąłem...