password excel

VBA Excel - włączanie i wyłączanie ochrony arkusza w zdarzeniu change

ActiveSheet.Protect password:=haslo

Excel - jak zablokować dodawanie i edytowanie nazw arkuszy?

Można sprawdzić pierwszy z brzegu i wartość ustawić przeciwnie. Np[syntax=vb]Dim sh As Worksheet, v As Boolean v = Not Sheets("1").Visible ActiveWorkbook.Unprotect Password:="tutaj_hasło" For Each sh In ThisWorkbook.Sheets If IsNumeric(sh.Name) And Val(sh.Name) > 0 And Val(sh.Name) < 21 Then sh.Visible = v End If Next ActiveWorkbook.Protect Password:="tutaj_hasło"[/syntax]

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel/VBA - Kod nie aktywuje hasła po odblokowaniu arkusza

[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]

Program do usuwania hasła założonego na plik excel

Istnieje takie oprogramowanie. Ale sugeruję zacząć od czegoś takiego : [url=http://www.excelsupersite.com/how-t... to Remove an Excel Spreadsheet Password in 6 Easy Steps.

Jak odzyskać lub zmienić zapomniane hasło do arkusza w Excelu?

Niech kolega zobaczy tu: http://www.decryptum.com/?utm_source=goo... EDIT: Niech kolega ściągnie sobie program Excel Password Recovery v1.0L http://www.intelore.com/excel_password_r... .

EXCEL Blokowanie tabeli uzupełnianej automatycznie w VBA

[syntax=vbscript]Cells(Rng.Row, 10).Locked = True ActiveSheet.Protect Password:="hasło"[/syntax]

Jak odzyskać dostęp do pliku Excel zabezpieczonego hasłem?

XLS Password Recovery Excel Password Recovery niestety płatne Bez łamania nie wydobędziesz ponieważ hasło jest kluczem szyfrującym i nigdzie nie jets zapisane. Jeżeli pamiętasz złożoność hasła i nie była ona zbyt wielka uda Ci się to zrobić w klika minut do kilku dni. Jeżeli użyłeś skompilkowanego hasła (duże i małe litery oraz cyfry) i w dodatku długiego...

VBA Excel - Ochrona skoroszytu i niedziałające makra

Hej Jeśli masz zabezpieczony hasłem (strukturę) na początku makra daj ActiveWorkbook.Unprotect Password:="twoje hasło" twój kod ActiveWorkbook.Protect Password:="twoje hasło"

Excel - odkrywanie kolumn tylko przez wybranych użytkowników

W takim razie przy zamknięciu chowamy[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets(1) .Unprotect Password:="123" For i = 7 To 9 .Columns(i).Hidden = True Next .Protect Password:="123" End With End Sub Private Sub Workbook_Open() With Sheets(1) .Unprotect Password:="123" If Application.UserName = "Jan-Nowak" Or Application.UserName...

Excel Makro Data i Godzina - Blokada przed zmianami

To dodaj przy 'WorkSheet_Change' [syntax=dos]ActiveSheet.Protect Password:="12345678", UserInterFaceOnly:=True[/syntax]

Makro VBA: Ustalenie hasła i zezwolenie na edycję arkusza Excel

Podczas startu aplikacji robisz: Worksheets("Arkusz1").Unprotect Password:="TwojeHasło" To umożliwia pracę w arkuszu. Podczas zamykania aplikacji robisz: Ws.Range("A1:Z250").Locked = True Ws.Protect Password:="TwojeHasło", UserInterfaceOnly:=True Sorki, wycinane z mojej aplikacji, stąd różne sposoby adresowania arkuszy, możesz to zapisać dowolnie, byle...

Excel 2007 - Jak usunąć hasło z pliku bez dostępu do osoby, która je ustawiła?

Witam. Posiadam plik excel do któego zostało ustawione hasło, a osoba która hasło ustalała jest nieosiągalna. Jak zdjąc hasło z takiego pliku?? Próbowałem już Excel password unlocker i podobnymi i nic. Jakieś sugestie ?? P.S. plik to dane z firmy w któej pracuję i nie mogę go udostępnić.....

excel/vba - dodawanie różnych wersji bibliotek outlook oraz szyfrowanie pliku

Hej, nie potrzebowałem wyswietlić Użytkownikowi numeru wersji office lecz dodac odpowiednią wersje biblioteki outlooka w zależności od wersji zainstalowanego offica. W tym momencie kod mi działa ponieważ sam dodałem odpowiednią bibiliotekę do kodu ale na innej wersji office plik nie będzie działać i pokaże się komunikat o brakujących bibliotekach. Aby...

Wysyłanie pliku Excel .xls przez CMD bez kompresji RAR - jak to zrobić?

OK dałem radę. Ściągnąłem z Internetu programik Blat. Tutaj jest instrukcja jak go skonfigurować http://cybergav.in/2010/10/28/how-to-sen... Wadą jest to, że w przypadku wymogu uwierzytelnienia trzeba w linii komendy (CMD) podać "-u receiver(at)serwer.com -pw password"

Excel 2010 - Odblokowanie zabezpieczeń arkusza dla okna Formularza

Aby edytować komórki tabeli w ten sposób, musisz je odblokować. Jedynym rozwiązaniem, jakie przychodzi mi do głowy, jest zrezygnowanie/ukrycie ikony formularza i otwieranie go za pomocą VBA (Np przycisk w arkuszu)... [syntax=vb]With ActiveSheet .Unprotect ' "password" .ShowDataForm .Protect ' "password" End With[/syntax]

Excel VBA: Automatyczne zaznaczanie opcji przy odkrywaniu arkuszy

Witam. Mam pytanko związane z pewną funkcją Excela zaznaczoną na poniższym screenie, a dokładnie 'Tryb projektowania'. Poniższy kod służy mi jednym kliknięciem do odkrywania/ukrywania wszystkich arkuszy. Czy do tego kodu jest możliwość dodać aby przy odkryciu wszystkich arkuszy została zaznaczona automatycznie opcja pokazana na screenie a po ukryciu...

Excel 2010 - Automatyczne blokowanie kolumny następnego dnia

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...

[VBA][Access] Jak zaimportować dane z Excela od 4. wiersza?

Office 2016. Przy imporcie pliku chronionego otwierany jest plik excel i oczekiwanie na wpisanie hasła. Chciałbym ominąć otwieranie Excela i zastosować wpisywanie hasło (zmienna) w Accessie stosując tę metodę: http://accessblog.net/2005/04/how-to-imp... jedyny minus to że hasło trzeba będzie wpisywać również dla plików...

Excel, VBA, MAKRO - Jak ukryć formuły przy dodawaniu wierszy?

Chciałem zastosować parametr "AllowFormattingCells" w poleceniu Protect, ale VBA nie rozpoznaje go. Przy edycji pojawia się tylko: ([Password], [Structure], [Windows]) Jak włączyć pozostałe parametry do zastosowania?

Excel VBA - Tworzenie logowania i filtrowanie arkusza

jak mogę zrobić aby makro weryfikowalo hasla [syntax=vbscript]Private Sub Loguj_Click() Set dl = Sheets("Dane logowania") ow = dl.Cells(Rows.Count, "A").End(xlUp).Row On Error Resume Next a = Application.Match(Me.User, dl.Range("A1:A" & ow), 0) If a > 0 Then If Me.Password = CStr(dl.Cells(a, 2)) Then MsgBox "Zalogowany", vbOKOnly Unload Logowanie End...

polaczenie z baza danych - Jak uzyskać dostęp do pliku excell na serwerze ftp

Więc dałem zapytanie jak poniżej: MyConnection = new OleDbConnection("provider=Microsoft.Jet.... Source='\\192.168.4.35\\stock.xls';User Id=user;Password=haslo;Extended Properties=Excel 8.0;"); a w zamian otrzymałem: http://obrazki.elektroda.pl/4648017000_1... Plik stock.xls jest wrzucony bezpośrednio na serwer. Dodam jeszcze...

Sprawdzanie duplikatów w tabeli Excel przed uruchomieniem makra - VBA

Jak można zrobić, żeby przed uruchomieniem tej procedury makro sprawdziło czy w tabeli ("A3:D&) nie ma już danych osoby wstawionej do komórek Przykładowo - sprawdzanie nazwiska (w praktyce trzeba by zastosować rozbudowany słownik bo mogą występować pracownicy o tym samym nazwisku :D ) można zrobić poprzez małą modyfikację Twojego kodu :spoko: [syntax=vbscript]...

EXCEL - Jak dodać wpis z ComboBox dla wielu pracowników jednocześnie?

Po prostu (blok w kodzie przycisku) [syntax=vb]With Sheets("Lista pracowników") ' ostWrs = Label14.Caption ' .Unprotect Password:=haslo ' .Cells(ostWrs, 21) = TextBox1.Value ' .Protect Password:=haslo For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then ostWrs = .Range("B:B").Find(what:=lstFiltr.List(i... lookat:=xlWhole).Row .Cells(ostWrs,...

VBA Excel - błąd Metoda pastespecial klasy range przy pierwszym uruchomieniu

[syntax=vbscript]ActiveSheet.Unprotect Password:="xxx" Rows("10:46").Select Selection.EntireRow.Hidden = False Range("B16").Select[/syntax]

Excel VBA - Jak pobrać hasło z komórki arkusza do ochrony pliku?

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]...

Excel 2010 - Makro nie rejestruje nadania hasła dla arkusza

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...

Excel VBA - Jak kopiować grafik z ukrytego arkusza?

adamas niestety Twój kod nie działa poprawnie. Dziś z samego rana po odpoczynku dostałem olśnienia i rozwiązałem problem. Do mojego kodu na początku dodałem odkrycie a na końcu zamknięcie arkusza i teraz śmiga jak ta lala :). Na początku kodu dodałem coś takiego: [syntax=vb]ActiveWorkbook.Unprotect Password:=Hasło Sheets("29").Visinle = True[/syntax]

[VBA Excel] Automatyzacja makra do przetwarzania plików tekstowych w pętli

Tak na szybko... Bez obsługi błędów, gładzenia kodu itp. Sub czytajpliki() Dim linia, sciezka, fs As Object, f, f2, k 'Application.ScreenUpdating = False sciezka = "C:\Documents and Settings\admin\Desktop\test\" Set fs = CreateObject("Scripting.FileSys... Set f = fs.GetFolder(sciezka).Files For...

VBA Excel: Makro do wyszukiwania i porównywania wartości dołek w kolumnach

Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...

[Excel VBA] Blokowanie komórek po wpisaniu jakiegokolwiek znaku

Witam Was serdecznie. Mam plik excela z logowaniem, który po logowaniu odkrywa odpowiedni dla użytkownika arkusz. Teraz chciałbym, aby excel blokował możliwość edycji pola po wpisaniu w nim jakiejkolwiek wartości/znaku. Najlepiej jakby blokowało się to po zapisie pliku, aczkolwiek nie jest to warunek konieczny. Znalazłem podobne przykłady na sieci,...

VBA Excel - Makro do kopiowania arkuszy z wielu plików bez otwierania

Spróbuj otwierać w trybie 'read only'[syntax=vb]oExcel.Workbooks.Open Filename:=myPath & myFile, Password:=myPass, ReadOnly:=true[/syntax]Niczego przecież nie zmieniasz - SaveChanges:=False przy zamknięciu...

Pobieranie danych z Access do Excel za pomocą VBA - Hurtownia Jan, NIP

Ależ jest sposób. Użyj zapytań SQL, które możesz też używać do arkuszy Excela, więc rozwiązanie jest bardzo uniwersalne. Możesz również używać innych poleceń niż SELECT, ale to już nieco inaczej. Osobiście bardzo je lubię. Poniżej (chyba) najprostsza działająca procedurka. [syntax=vbscript] Private Sub RunSELBase(S As String, R As Range) Const Db =...

Jak zablokować komórki B1 i C1 w Excel VBA przy wartości A1 > 30000?

[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Unprotect Password:="a" [B1].Locked = False [C1].Locked = False If Target > 30000 Then [B1].Locked = True If Target > 50000 Then [B1].Locked = True [C1].Locked = True End If ActiveSheet.Protect Password:="a" End If End Sub [/syntax]

Generator losowych znaków jak Enigmaze Secure Password Manager

Szukam programu albo gotowego arkusza Excel (opisu jak to zrobić), żeby móc wygenerować karteczki z losowymi znakami jak [url=https://www.kickstarter.com/project...

Excel- makro grupowanie - Grupowanie, wstawianie wierszy i jednoczesna ochrona-

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",...

Makro - kopiowanie wybranych danych z jednego pliku a excel do drugiego

Po przefiltrowaniu, wiersze mają właściwość Hidden = false lub true. Wtedy, Np [syntax=vbscript]ostW = Range("A" & Rows.Count).End(xlUp).Row licznik = 2 Sheets(2).Unprotect Password:="elektroda" For i = 2 To ostW If Not Rows(i).Hidden Then Sheets(2).Cells(licznik, 1) = Cells(i, 1) licznik = licznik + 1 End If Next Sheets(2).Protect Password:="elektroda"[/syntax]

Excel- Kwestionariusz pracownika. Rozszerzenie możliwości pliku

I właśnie tego się obawiałem że "można będzie zmienić" np na 9 "Filtr" zaproponowany przez kolege adamasa przy takiej konstrukcji trzeba by było poważnie rozbudowywać (np. do 8 Case z 9 przypadkami w każdym dla danej grupy) Proponuje trochę inne rozwiązanie (Mam nadzieje że zagra bo ponieważ nie mam pełnych danych nie mam jak sprawdzić) W tym przypadku...

Wykonywanie zapytania do bazy Access z Excela z hasłem

Excel 365 [syntax=vbscript]Sheets(2).Select cn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=\\udzial1\folder1\Baza — kopia.accdb" & ";" & _ "Jet OLEDB:Database Password= TRATATA" Sql = "SELECT * FROM Bieżące WHERE [Zlecenie]='" & Sheets(2).Range("C5") & "'" Set rs = CreateObject("ADODB.Recordset") rs.Open Sql, cn Sheets(2).Range("R5").CopyFromRecordset....

Excel - Użycie klawisza ENTER kieruje kursor do konkretnej komórki

Dlatego proszę o przykład, które klawiszy powinny być Naciśnij żeby kursor został w "Logowanie"? np. - F10(menu) - Podwójna strzałka w prawo - Tab - strzałka w dol. I jaka nazwa tej "aplikacje ERP " w tytule okna? np. "ERProg - Sesja 2" W tej sytuacji to: [syntax=vb] Sub Do_ERP AppActivate "ERProg - Sesja 2" 'Przełącz się do okna ERP SendKeys "{F10}{RIGHT}{RIGHT}{TAB}{DOWN}",...

EXCEL- wyłączenie edycji komórek przy spełnieniu warunku

Żeby to zadziałało musisz włączyć ochronę całego arkusza. Worksheets("nazwa akrusza").Cells.Locked = False 'wyłączenie ochrony Worksheets("nazwa akrusza").Range("B1:B10").Locked = True 'ustawienie blokowania edycji dla konkretnego zakresu Worksheets("nazwa akrusza").Protect Password:="pass", UserInterfaceOnly:=True 'włączenie ochrony arkusza Do poniższego...

Jak przywrócić pełne zakładki i hasła w Chrome z katalogu Default?

aktywuj import i export haseł: chrome://flags uruchom ponownie chrome chrome://settings/passwords -> trzy kropki -> import/export wyeksportuj sobie loginy i hasła za pomocą Chrome Password Decrypter ze starego profilu utwórz plik CSV z aktualnymi loginami [nowy profil], edytuj go za pomocą MS Excel, LibreOffice dodając loginy ze starego profilu...

Excel VBA - Dlaczego teraz muszę deklarować zmienne w makro?

Zadziała bo próbowałem w podobny sposób - jednak twój jest lepszy o tyle że "a" może mieć różna długość. No jest to jakieś wyjście chociaż brakuje mi tej * Co do potwierdzania SaveAs na googlach znalazłem (i działa) Application.DisplayAlerts = False ... kod... Application.DisplayAlerts = True czyli w moim przypadku: Application.DisplayAlerts = False...

Excel 2007 - sortowanie i grupowanie w chronionym arkuszu

Witam, W swoim arkuszu używam takiego kodu: Private Sub Workbook_Open() With Worksheets("nazwa arkusza") .Protect Password:="hasło", _ UserInterfaceOnly:=True .EnableOutlining = True End With End Sub Niestety w tej formie działa tylko dla konkretnego arkusza. Jak można go zmodyfikować, żeby działa dla całego pliku excel składającego się z 26 arkuszy?...

Z Excela do SQL korzystając z VBA - problem z kodem

Podejrzewam, że może to być spowodowane niezbyt uporządkowanymi danymi. Zakomentuj na razie MsgBox. Przeleciałeś wszystkie 27 komórek pierwszego wiersza bez błędu? Jeżeli tak, gdy się kod zatrzyma, sprawdź wartość zmiennej RowCounter, będziesz wiedział, z którego wiersza dane powodują błąd. Może taki uchwyt błędu: [syntax=vbscript]Sub ExportToSQL()...

Excel data modyfikacji komórki - Data modyfikacji oraz nazwa użytkownika

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...

Jak wstawić nazwę pliku Excela do wybranej komórki?

Jest możliwe Sub zapis() plik = Worksheets("Arkusz1").... 'Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=plik, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'Application.DisplayAlerts...

Excel VBA: Jak zminimalizować kod wstawiający wzorce do 1000 wierszy?

Dzięki bardzo. Działa wyśmienicie. A czy mógłbym poprosić o przeglądnięcie poniższego kodu i sprawdzenie czy można by go jakoś udoskonalić, przyśpieszyć jego działanie? Kod działa jak najbardziej poprawnie ale trochę musi przemielić zanim zrobi to co ma zrobić [syntax=vb]Dim ark As Worksheet Set ark = ActiveSheet ActiveSheet.Unprotect Password:=haslo...

Excel VBA - blokada komórek po wpisaniu danych w grze Mastermind

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...

zmiana makra, aby działało w nowszej wersji excela

Jak zmienić poniższy kod, aby działał w nowszej wersji excela. Próbowałem zmienić xls na xlsm, ale to nie pomaga. Plik zapisuje się na pulpicie, ale po próbie jego otwarcia pokazuje się komunikat, że excel nie może otworzyć pliku ze względu na nieprawidłowy format lub rozszerzenie pliku. W zasadzie najlepiej byłoby, aby ten plik został zapisany w formacie...

VBA Excel - ochrona arkusza, a zapis pliku jako txt

Kombinowałem z różnymi wersjami i pomyliłem się przy kopiowaniu. Ochronę arkusza wyłączałem też oczywiście. Typ pliku również pomylony, powinien być xlTextPrinter [syntax=vbscript] Sub SaveAsTxt() ActiveSheet.Unprotect Password:="abc" With ActiveWorkbook .SaveAs Filename:="C:\!\Test1", _ FileFormat:=xlTextPrinter .Close SaveChanges:=False End With End...

Jak zablokować formuły w Excelu po zamknięciu miesiąca?

...Próbuję rozwiązać problem - w jaki sposób podając NIP , ewentualnie nazwisko w arkuszu z WZOREM FAKTURY, można z arkusza z listą danych osobowych klientów, przenieść wszystkie dane tego klienta do wzoru faktury? Jeżeli NIP (nazwisko) jest w tym samym wierszu co reszta danych to możesz to zrobić za pomocą funkcji wyszukaj.pionowo() indeks() w powiązaniu...

VBA Makro dzielące plik excel na wiele plików i arkuszy

Nie wnikam w działanie makra, ale do przemyślenia wykroiłem najistotniejsze. [syntax=vbscript] dirout = Sheets("Parametry").Cells(4, 3).Value Workbooks.Open (dir_in & file_in) For Each sh In Worksheets Workbooks.Add fileout = CStr(Cells(i, col).Value) 'coś tu jest kopiowane, wypełniane, itp 'z odwołaniem do ActiveSheet ActiveWorkbook.SaveAs Filename:=dirout...

Jak zdjąć ochronę arkusza w Excelu bez znajomości hasła?

Rozumiem że skoroszyt zawiera więcej arkuszy. Dlatego zamieściłem skrypt. Prosze ściągnąć password.zip, wypakować. Uruchomić (kilknąć 2 razy), powinien pojawić się komunikat jak na obrazku hasełka1.jpg. Następnie prosze uruchomić arkusz ocena.xls Teraz wybrać zablokowany arkusz. Z menu narzędzia prosze wybrać Unprotect sheet (tłumaczenie: odblokuj arkusz)....

Excel VBA: Dynamiczna nazwa pliku z komórki AQ3 przy zapisie arkusza

Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa pliku była aktualizowana zgodnie z zawartością...

Excel: Automatyczne numerowanie listy pracowników w kolumnie 'A' po dodaniu

Jestem w trakcie tworzenia nowego pliku który będzie mi służył do ewidencji pracowników, czyli tworzenia listy pracowników z różnymi danymi osobowymi (dodawani, edytowanie, usuwanie). Z samą opcją dodawania pracownika poradziłem sobie na swój sposób. Poniższy kod dodaje mi nową pozycję do listy, jak zrobić żeby po dodaniu nowej listy lista została automatycznie...

VBA - odwołanie w VBA do obiektu "VBAproject"

1. Najpierw o "chroń i udostępnij skoroszyt..." Nie znalazłem sprawdzenia "wprost" tych statusów, ale można zrobić obejście (funkcja): - dla MultiUserEditing (True) wywołać: - Workbook.UnprotectSharing ("xx") przy czym - hasło z założenia jest błędne => - jeśli hasła nie ma, to jesteśmy w domu (Ochrona=False) - jeśli hasło jest, to mamy błąd, który...

VB w Excel 2007 nie działa połaczenie do Oracle po przeniesieniu na Win 7

Mam problem z kodem VB uruchamianym w Excelu 2007 pod Win7 na XP działa. Kod pobiera dane z bazy Oracle używając ADO. W win 7 wywala się na obiekcie 'adUseServer' z błędem: "Can't find project or library". Niby błąd oczywisty, ale nie mogę sobie z nim poradzić. Kombinacje z referencjami nie pomagają. Nie wiem co może być przyczyną różnice referencji,...

Excel - zapisywanie pliku pod nazwą z podanej komórki

Witam mam mały problem z makrem a mianowicie z zapisywaniem pliku pod nazwą podaną w komórce. Szukając w necie znalazłem fajny kod który ogólnie działa ale nie do końca tak jak bym tego oczekiwał a mianowicie zapisuje plik pod nazwą z komórki tylko wtedy kiedy jest ona wpisana tam ręcznie Ja natomiast chciałbym uzyskać tą nazwę poprzez odpowiednią formułę...

Excel- aktualizowanie listy poprawności danych przez VBA

Dzięki bardzo. Kod działa dobrze ale po przetestowaniu i próbach niestety nie jest tak dobrze jak bym tego chciał. Mianowicie mój pokazowy plik był tylko taki uproszczony ale jak kod dałem do mojego oryginalnego pliku do już działa inaczej. w moim pliku tabela z obłożeniem jest bardziej rozwinięta i tymczasowo niepotrzebna część tabeli jest ukryta a...

VBA Excel - Kopiowanie całych arkuszy ale bez formuł

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...

EXCEL VBA - Podmiana modułu w projekcie chronionym hasłem.

W sumie pytasz się jak programowo zdjąć kod z chronionego projektu. VBAproject nie ma własności ani metody Password, więc wprost się nie da. Jest tylko Protection, które mówi czy jest ochrona. Jeżeli kod musi być chroniony, to lepiej jest publikować dodatek add-in z funkcjami lub funkcjonalnościami. A w katalogu wspólnym publikować info o nowej wersji,...

KONSPEKT w arkuszu chronionym - Excel - konspekt w arkuszu chronionym

Spróbuj w module ThisWorkbook wstawić procedurę: [syntax=vbscript] Private 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 wartości. Jeśli nie ma hasła, zostaw pusty cudzysłów. Zapisz plik, jako skoroszyt z obsługą...

Excel- Kopiowanie listy z inego arkusza i jej numerowanie

Dzięki wielkie. Po wklejeniu poniższego kodu lista numeruje się prawidłowo: http://obrazki.elektroda.pl/8079367600_1... Mam jeszcze jedno pytanko związane z tym samym plikiem. Po wklejeniu listy pracowników do arkusza muszę dodać jeszcze w komórkach obok nazwisk pewne symbole (tak jak na screenie). Po wklejeniu listy automatycznie aktywuje...

[VBA] - Prośba o przerobienie kodu, by nie wyskakiwał błąd autoryzacji

[syntax=vbnet]Sub Otwórz () Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet ActiveSheet.Unprotect Password:="x" Application.ScreenUpdating = False Application.DisplayAlerts = False Set actWS = ThisWorkbook.Worksheets("Arkusz1") With Application.FileDialog(msoFileDialogFile... .Filters.Add "Pliki Excel (*.xlsx; *.xls)",...

EXCEL/VBA: Jak stworzyć pętlę z warunkiem if na podstawie numeru dostawcy?

Witam, lanzul dziękuję za poprawienie macra, sprawdziłem działa jak złoto. Z góry przepraszam za opis problemu faktycznie jest mało czytelny, niestety nie umie tłumaczyć. Tak jak Panowie się domyśliliście tabela w Excelu jest źródłem danych, tworze plik tekstowy, który odtwarzam w moim programie logistycznym w pracy. Zaprezentuję wam treść pliku tekstowego...

Excel 2007 - Proste makro nie chce działać na niektórych komputerach

Witam! Znalazłam i przerobiłam proste makro (w excelu 2007) zapisane w ThisWorkbook: Private Sub Workbook_Open() With Worksheets("nazwa arkusza") .Protect Password:="hasło", UserInterfaceOnly:=True, AllowFiltering:=True .EnableOutlining = True End With End Sub Niestety nie chce ono działać na niektórych komputerach. Wykonuje się przy otwieraniu pliku,...

Excel VBA: Makro do drukowania wybranych arkuszy z listy wyboru

Możesz użyć: Private Sub Workbook_Open() Sheets("DD").EnableOut... = True End Sub Dodane 2009-07-16: Oczywiście w przypadku chronionego arkusza należy przed zabiegiem ochronę zdjąć a po założyć. Private Sub Workbook_Open() With Worksheets("DD") .Unprotect [color=red](XXXXXX)[...

Excel -> OpenOffice - Data - Data aktualnego wpisu

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...

Excel VBA - wyszukiwanie wierszy i przenoszenie do innych arkuszy

Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...

Excel- pokazywanie daty i czasu ostatniej zmiany w arkuszu

Sam arkusz w sumie nie posiada żadnego kodu, jest tam tylko coś takiego: [syntax=vb]Private Sub CommandButton1_Click() With Sheets("Menu") ActiveWorkbook.Unprotect Password:=Haslo .Visible = True .Activate ActiveSheet.Protect Password:=Haslo ActiveWorkbook.Protect Password:=Haslo End With End Sub Private Sub Worksheet_Activate() Range("A1").Select End...

VBA Excel - Makro do zapisywania arkuszy jako PDF w odpowiednich folderach

Mają być w starszym formacie .xls czy w nowszym, używanym m.in. w 2010, .xlsx? Sam zapis jest względnie prosty, wystarczy żebyś spróbował nagrać makro recorderem proces zapisywania pliku w odpowiednim formacie - powinno wyjść coś podobnego do: [syntax=vbscript]ws.SaveAs Filename:= "C:\test.xls", FileFormat:=xlExcel8, _ Password:="", WriteResPassword:="",...

VBA Excel 2007 - Pobieranie danych z sieci WEB logowanie

Po długim boju i pomocy znajomego udało się. [syntax=vb]'Needs references to Microsoft HTML Object Library and Microsoft Internet Controls Option Explicit Sub Test() Const cURL = "http://xxx.pl/UI/Login.aspx" Const cUsername = "xxxxxx" 'REPLACE XXXX WITH YOUR USER NAME Const cPassword = "xxxxxx" 'REPLACE YYYY WITH YOUR PASSWORD Dim IE As InternetExplorer...

VBA Kopiowanie danych bez otwierania pliku. ExecuteExcel4Macro/ADO

Witam, Mam makro, które zaciąga dane z 30 różnych exceli z jednej konkretnej zakładki. Chce to zrobić bez otwierania każdego pliku na dysku sieciowym, co sporo czasu zajmuje. Znalazłem w sieci przykładowe makra na podstawie ExecuteExcel4Macro oraz ADO, ale mam problem, gdyż pliki, które chce otworzyć są zahasłowane (niewiem gdzie w kodzie dać hasło)...

[Excel, VBA] Excel VBA – jak wczytać pliki z folderu i wszystkich podfolderów w makrze?

Witam. Posiadam makro ale chciałbym, żeby zaczytywało pliki nie tylko ze wsakzanego folderu ale również ze wszystkich plików w podfolderach. Czy jest taka komenda? Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .

Excel – jak ustawić hasło do otwarcia pliku i zabezpieczyć dane przed dostępem

Jeśli masz tam ważne dane to najlepszym zabezpieczeniem jest nagranie pliku na wymienny nośnik i schowanie w sobie tylko wiadome miejsce. Hasło w pliku można złamac i to legalnym oprogramowaniem np. Advanced Office Password Recovery firmy Elcomp, a cena takiego programu to tylko $49 w wersji Home Edition. Musisz sie zastanowić czy takie zabezpieczenie...

Excel 2016 - kod VBA przestał działać, problem z ActiveSheet i Unprotect

Excel 2016 i nowsze nagle przestał honorować kod, który działał kilka lat w nast. zakresie m.in.: 1. ShN = ActiveWorkbook.ActiveSheet.Name 2. ActiveSheet.Unprotect Komunikat pojawia się jak na screenie, podejrzewam, że jakaś aktualizacja MS wprowadziła zmiany, bo wzorzec nie był zmieniany i pracował kilka lat. Może ktoś z Was domyśla się bardziej o...

Makro [VBA WORD] do ustalania zakresu generowanych plików

Dzień dobry, dobry wieczór! Mam sobie taką korespondencję seryjną do generowania dokumentów, makro mi je dzieli na konkretne pliki, do nazwy używa odpowiedniej komórki, wszystko super. Ale potrzebuję je trochę ulepszyć. Chciałbym móc decydować jaki zakres rekordów będzie generowany. Czyli np, jest w bazie wpisane 20 rekordów, ja chcę wygenerować od...

Excel- Wklejenie wygenerowanej lisy do nowego pliku .xls

ale w arkuszu nie pojawia się wygenerowana lista Trzeba skopiować chociaż kawałek arkusza ;) Najprościej byłoby wywołać funkcję przed pętlą i przypisywać od razu w dwóch plikach. Jeśli chcesz kopiować tylko z widocznych kolumn (w przykładzie poniżej) zastosuj dodatkową zmienną, jeśli nie wyrzuć "kol" a podstaw "i"[syntax=vb]Dim i As Integer, raport...

Jak dynamicznie ustawić ścieżkę do folderu w makrze Excel VBA?

Wielkie dzięki za odpowiedź, ale niestety w dalszym ciągu nie działa... Pewnie robię coś źle, ale makro nie otwiera mi plików txt z wywołanej funkcją ścieżki. Całość wygląda tak: [syntax=vb]Function pobranie() As String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz...

Jak napisać program do sortowania danych z plików txt do xls?

Witam poradziłem sobie z VB w Excel Mam tylko jedno pytanie, bo nigdzie nie mogę znaleźć odpowiedzi lub po prostu źle szukam. Program działa tak, że otwiera mi jakiś plik kopiuje dane wprowadza zmiany i zapisuje w formacie xls. Tak jak wspomniałem mam ok 60 plików. Mam problem z tym, że chciałbym, żeby móje makro nie sypało się gdy nie znajdzie pliku...

Excel VBA – Jak połączyć listy z kolumn Q, R, S, T, U do jednej kolumny V?

Niestety kod już w pierwszej linijce wywala błąd. Może podam jak wygląda kod w całości, może na podstawie niego coś da się zauważyć istotnego i przydatnego: [syntax=vb]Sub ListaForName() Dim ark As Worksheet, i As Long, dstW As Long, szefy As Variant, koly As Variant, j As Integer Set ark = Worksheets("Admin") szefy = Array("Ba******", "Pa***", "Ko****",...

Korespondencja seryjna + zapis pliku pod nazwą z kolumny bazy danych

Witam, Mam problem jak połączyć dwa makra w jedno: chce zarówno stworzyć korespondencję seryjną jak i zapisać osobno pliki word pod nazwą z pliku z bazy danych Excel, którą posługuję sie w korespondencji seryjnej. Makra działające osobno to: (dla nazw z pliku Excel) Sub Makro1() Application.ScreenUpdating = False Application.Browser.Target = wdBrowsePage...

Losowanie zmiennej ilości wierszy ze zmiennej ilości rekordów

Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....

Usuwanie wpisu z komórki w Excelu za pomocą makra

... Chyba coś zdrowo namieszałem Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Else MsgBox "Duplikat", vbExclamation, "Etykieta wprowadzona" a = Application.Match(Target, Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row... 0) ActiveSheet.Unprotect...

Błąd w makrze przy zdejmowaniu ochrony arkusza w Excelu - hasło Drozdek

otworzenie poszło, ale zamknięcie z hasłem już nie idzie ... :( ... jak może nie pójść, toż to niemożliwością podobne zupełnie do niczego ... :( ... ? UserInterFaceOnly:=True " - nie musiałbyś się bawić w ciągłe blokowanie i odblokowywanie arkusza/-y, makra działały by wtedy na zablokowanych zakładkach tak, jakby nie było hasła. Trzeba tylko uważać,...

Makro VBA do wprowadzania danych na serwer SQL z arkusza Inserter

Kalendarz jest spoko, dzięki PRL zaraz sobie zmodyfikuje mój formularz. Generalnie w jakiś sposób poradziłem sobie z datą , stosując jakiś kod znaleziony w necie i działało. Wczoraj testowałem formularz, wbijał wszystkie dane elegancko do tabeli na serwerze SQL. Przychodzę dzisiaj, mimo że nic nie zmieniałem w kodzie i ten sam kod już nie działa i wyskakuje...

[DELPHI] Jak eksportować dane z DBGrid do Excela w Delphi 2009?

Witam porady kolegi za bardzo mi nic nie dały ponieważ chciałem to w jak najprostszy sposób wykonać eksport tabeli wyświetlanej w DBGridzie do nowo otwartego arkusza Excela Pobrałem komponent http://www.scip.be/index.php?Page=Compon... I niestety nie wiem jak to ugryźć Połączenie z bazą MySQL-ową tworzę za pomocą elementów SQLConnection1...

Automatyczna blokada komórki w Excelu po jej edycji

Drogi adamsie_nt, kod wygląda rozsądnie, niestety nie działa ;) Założyłem hasło "aa" na arkusz (recenzja --> chroń arkusz), wstawiłem w kod odpowiednie dane oraz zoptymalizowałem go delikatnie- w odniesieniu do Range (chciałbym by wszystkie komórki z zadanego przedziału były odblokowane, jeżeli nie zawierają wartości). Kod nie działa ani przed moimi...

vba - spakować zip pliku i wysyłka mailem hasła do pliku

[syntax=vbscript]Sub WyslijSkoroszyt() Dim Haslo As String, Plik As String Plik = ActiveWorkbook.FullName Haslo = InputBox("Podaj hasło do pliku: ", "UWAGA") ActiveWorkbook.SaveAs Filename:=Plik, Password:=Haslo Call WyslijMejla("adresat(at)moj.pl", "Mój plik Excela", "Hasło do pliku zostanie wysłane kolejnym mejlem", Plik) Call WyslijMejla("adresat(at)moj.pl",...

Jak pobrać zmienną SQL z komórki B1 w Excelu do zapytania SQL?

Cóż, to obawiam się że więcej nie jestem w stanie zdalnie pomóc... Ograniczę się do stwierdzenia, że "u mnie działa" ;) Prościej już nie potrafię. W arkuszu 'Parametry' masz wszystkie potrzebne dane. Czego, z tego jasnego opisu, nie rozumiesz? Jakie logowanie do domeny??? A jednak wkradł się błąd. [syntax=vbscript]Sub ImportujzSQLSerwera() On Error...

Czy ktoś sprawdziłby mojego Loga z góry dziękuję

Logfile of HijackThis v1.99.1 Scan saved at 11:21:43, on 04-12-2006 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe...

VBA - Rozsyłanie maili z plikami arkuszy odpowiednio

wybacz ale troszkę nie chce mi się przesiadać na VBA a cały program w C# który rozwiąże twój problem to: Witam, Dziękuję za pomoc, ale jak mogę tutaj wskazać bazę danych z adresami e-mail? Na przykład stworzę nowy arkusz excel. Wypiszę w kolumnie A imię i nazwisko, w B - adres e-mail. Program powinien odszukać po nazwisku w nazwie pliku (wcześniej...

[vba] Jak zapisać plik txt na serwerze web za pomocą VBA w Excelu?

Udało mi się, nie bez kłopotów, zapisać plik na stronie. Skorzystałem z następującego kodu:[syntax=vb] Public Function SendFileViaFTP() Dim vPath As String Dim vFile As String Dim vFTPServ As String Dim ServLoc As String Dim fNum As Long ServLoc = "/baza" vPath = ThisWorkbook.Path & "\Serwer\" & prefix & "\" vFile = "tab_admin.txt" vFTPServ = "moja.strona.net.pl"...

Analiza loga HijackThis v1.99.1 na Windows XP - prośba o sprawdzenie

Logfile of HijackThis v1.99.1 Scan saved at 18:25:51, on 2005-06-08 Platform: Windows XP (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 (6.00.2600.0000) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe...

Jak przyspieszyć komputer Athlon 2000XP z GeForce 4 i 256MB RAM?

Kolobos rzuć fachowym okiem na log z kompa moich znajomych. Strasznie im muli. Z góry wielkie dzięki. Logfile of HijackThis v1.99.1 Scan saved at 22:20:44, on 2005-08-12 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe...

[VBA] Jak połączyć procedurę wysyłania plików z funkcją usuwania znaków?

Lista niedozwolonych znaków dla nazwy pliku w Windowsie jest krótsza, w dodatku domyślnie nie można niektórych z nich wstawić jako nazwy arkusza, więc finalnie można ją skrócić jeszcze bardziej. Możesz sobie sprawdzić listę i wstawić własne znaki. Pełen przykład poniżej: [syntax=vbscript]Private Sub CommandButton1_Click() ' sendAll Makro ' Makro zarejestrowane...

Jak usunąć złośliwe oprogramowanie z komputera?

Proszę o pomoc czym to usunć? Pozdrawiam. Logfile of HijackThis v1.99.1 Scan saved at 01:09:05, on 2006-10-06 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe...

Restartujący się komputer Windows XP SP2 - analiza loga HijackThis v1.99.1

Restartuje się komputer. file of HijackThis v1.99.1 Scan saved at 08:36:23, on 2007-05-31 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe...

Excel- wydruk jednego arkusza dla wielu pracowników

Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...

Dziwna sprawa kursor myszki sam jeździ po ekranie.

Dziwna sprawa kursor myszki sam jeździ po ekranie. Po uruchomieniu komputera wszystko jest OK. Po około 30 minutach zaczyna się - kursor myszki sam jeździ po ekranie i nic nie można zrobić. (nawet po odłączenu myszki kursor nadal jeździ) Mysz jest w sprawna (próbowałem też innej i jest to samo). Komputer został przeskanowany na wirusy itd. (nic nie...