ActiveSheet.Protect password:=haslo
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]
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
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... .
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.
[syntax=vbscript]Cells(Rng.Row, 10).Locked = True ActiveSheet.Protect Password:="hasło"[/syntax]
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...
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"
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...
To dodaj przy 'WorkSheet_Change' [syntax=dos]ActiveSheet.Protect Password:="12345678", UserInterFaceOnly:=True[/syntax]
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...
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ć.....
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...
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"
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]
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...
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...
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...
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?
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...
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]...
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,...
[syntax=vbscript]ActiveSheet.Unprotect Password:="xxx" Rows("10:46").Select Selection.EntireRow.Hidden = False Range("B16").Select[/syntax]
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]...
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...
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...
Chciałbym aby makro działało w tle Ukryta instancja? Będzie "prawie" w tle. Zgadzam się z przedmówcą. Musisz pliki otwierać, ale nie musi to być widoczne.[syntax=vb]Dim myPath As String, myFile As String, myPass As String Dim oExcel As Excel.Application On Error GoTo qInst Set oExcel = CreateObject("Excel.Application") 'domyślnie Visible=False 'pocz...
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]
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...
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,...
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 <> ""...
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 =...
[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]
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...
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",...
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]
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...
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....
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}",...
Ż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...
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...
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...
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?...
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()...
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...
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...
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...
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...
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...
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...
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ą...
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...
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...
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,...
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łę...
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...
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...
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,...
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ą...
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...
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...
[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)",...
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...
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,...
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)[...
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...
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...
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...
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:="",...
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...
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)...
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 .
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 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...
...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...
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...
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)....
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...
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...
[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",...
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...
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****",...
Na początek pożyczyłem książkę Excel 2003 PL. Programowanie w VBA. Vademecum profesjonalisty ... CheckBox w każdym wierszu? Dlaczego nie maja do edycji specjalny obszar pozostała cześć jest zablokowana. No chyba nie można usunać wiersza z komórkami z passwordem? MsgBox z przyciskami Myślę że to powinno wystarczyć . Aczkolwiek będzie męczące dla...
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...
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....
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ć,...
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...
Przy Workbook_BeforeSave nie ma zmiennej Target... Po mojemu powinno być coś takiego[syntax=vb]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Jezeli ktoras z komorek z danego zakresu ulegnie zmianie, po zapisaniu pliku zmieni 'ona parametr Locked= True With Sheets(nazwa/indeks) .Unprotect 'password:= "hasełko" For Each...
Pytałem się wcześniej "czy z hasłem? ". Musisz dodać/zmienić kody wyłączające i włączające ochronę (dodać hasło). Worksheets("DANE").Unp... Password:="123" Worksheets("DANE").Pro... DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"
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...
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...
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"...
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...
Oto nowy log: Logfile of HijackThis v1.99.1 Scan saved at 09:33:01, 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 C:\WINDOWS\system32\svchost.exe...
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...
Logfile of HijackThis v1.99.1 Scan saved at 22:14:27, on 2005-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 C:\WINDOWS\system32\lsass.exe C:\WINDOWS\System32\Ati2evxx.exe C:\WINDOWS\system32\svchost.exe...
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...
witam jestem tu pierwszy raz, widze ze sobie tu pieknie pomagacie, pomozcie i mi :) Czy jest tu coś bleee? Logfile of HijackThis v1.99.1 Scan saved at 12:51:28, on 2007-06-16 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...
Podaje wygenerowany raport: Logfile of HijackThis v1.99.1 Scan saved at 17:02:55, on 2006-08-23 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...
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
supervisor password default password eeprom password
spalić instalacja włącznik pociągany podłączenie excel format komórki
hewalex sterownik hewalex sterownik
Wejście ADAPTOR we wzmacniaczu Sony TA-F690ES: co podłączyć? Problemy z odtwarzaniem plików MP4 typu "set"