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...
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...
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej...
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() ...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then r = Target.Row If Target = "TAK" Then ActiveSheet.Unprotect ("haslo") Cells.Select Selection.Locked = False Cells(r, 10).Locked = True ActiveSheet.Protect...
Dodano po 4 dokladnie w [syntax=vbscript]Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove[/syn...
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...
Witam, mam takie zadanie aby zrobić formularz na którym jest textbox, command button, oraz label. Mam Ma to działać tak, że wpisuje hasło do textboxa on pobiera to hasło i sprawdza czy jest prawidłowe jak nie, to ma czekać aż wpisze znowu hasło do tego text boxa i znowu sprawdzić. Napisałem ten program...
W załączniku masz plik XLS z Excel-a 2003. Po zmianie arkusza, wyskakuje okienko do wprowadzenia hasła. Na wszystkie arkusze jest 12345. Po wpisaniu prawidłowego można pracować a arkuszem, po wpisaniu błędnego następuje przekierowanie na pierwszy arkusz, który może być arkuszem tytułowym z opisem obsługi...
Witam, czy mógłbym prosić o pomoc przy skonfigurowaniu połączenia do bazy danych na serwerze w firmie. Pracując w firmie łącze się w excelu z bazą przy pomocy ADODB.Connection: Serwer adres Ip Nazwa użytkownika Hasło Instancja SQL użytkownik bazy danych hasło użytkownika dostęp do serwera:...
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...
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...
Witam. Jestem w trakcie tworzenia skomplikowanego pliku (w sumie to dwóch plików). Jestem teraz na etapie tworzenia hasła do ochrony arkuszy. W plikach mam zrobione coś takiego że ochrona włącza się automatycznie po zamknięciu pliku tak aby niepowołane osoby po otwarciu nie mogły edytować pliki. W...
A jakie jest odwołanie do arkusza gdy makro ustanawia hasło. Worksheet.Protect Password:="haslo" ? ActiveWorkbook.Protect Password:="haslo" Dajesz na początku makra "unprotect" ? Czy też makro zawsze zaczyna pracę z niechronionym arkuszem?
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...
Dzięki wielkie. Po wklejeniu poniższego kodu lista numeruje się prawidłowo: 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...
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...
Ja będę chciał jeszcze trochę rozwinąć temat powyższej 'Ankiety' i jeszcze dodać do filtra dodatkową opcję. Jak widać na załączonym screenie dodałem do filtra jeszcze jedno okno 'ListBox' z pracownikami. W zaznaczonym kółeczku jest wstawione okno 'Label', jak zrobić aby w oknie 'Label' pokazało mi ilu...
Ok. Ale jak wkleję to do poniższego kodu to wywala błąd. W którym miejscu mam to wkleić?: Dodano po 12 Poprawka, popełniłem błąd literowy i nie działało. Teraz jest OK. Wielkie dzięki
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...
Wrócę do tematu ponieważ chciałem sobie trochę udoskonalić kod do kopiowania grafiku ale nie mogę sobie poradzić z jedną opcją. Chodzi o poniższy kod i jego czwartą linijkę a dokładnie o wpis "Grafik1" . W arkuszu z którego jest pobierany grafik mam trzy różne grafiki, tz. "Grafik1", "Grafik2" i "Grafik3"...
Pozwolę sobie ubrać ten kod w wygodną procedurę. [syntax=vb]Sub WyslijMejla(Uzytkownik As String, Haslo As String, SerwerSMTP As String, Tytul As String, Tresc As String, OdKogo As String, DoKogo As String, Zalacznik As String) Dim KonfiguracjaKonta As Object, Mejl As Object Set KonfiguracjaKonta...
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...
Witam. Bardzo proszę o pomoc w prześledzeniu poniższego kodu i jeśli jest to możliwe poprawieniu go tak aby działał jak najbardziej sprawnie i poprawnie. Kod ogólnie robi to co chcę ale robi to bardzo długo i w pewnym momencie wywala błąd. Zadaniem kodu ma być aby z pliku o nazwie 'TEST.xlms' z arkusza...
Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Un... haslo 'dzialanie Sheets("Dane").Protec... haslo [/syntax]
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...
1. chronić arkusz [syntax=vb]Sub Button4_Click() activesheet.Unprotect 'ew. haslo Rows ("7:19") .Hidden = Not Rows ("7: 19") .Hidden Activesheet.Protect 'haslo End Sub [/syntax]
Gdy okomentuje "On Error.." pojawia sie blad " run time error 1004 Microsoft Excel cannot paste the data". Gdy uruchomilem makro krokowo to: - po dojsciu do polecenia otworzenia pliku, otwiera go i prosi o haslo. Wpisuje je recznie, - po dojsciu do polecenia "ActiveSheet.Paste" przechodzi automatycznie...
Witam. Otwieram arkusz excela. W tym arkuszy mam kilkainnych arkuszy i chcialbym na wybrane zalozyc haslo gdyz do tych nie kazdy moze miec dostep. Jak to zrobic???? Dodano po 16 Dodano po 35
witam mam pewien problem w pracy. prubuje dostosowac dokument excela do swoich potrzeb, dokument ten jednak nie jest stworzony przezemnie okazuje sie ze jest zabezpieczony: kiedy chce cos pozmieniac to wyskakuje monit ze dokument jest chroniony i nieaktywne sa wszystkie narzedzia - kaze podac haslo...
Witam Jestem jeszcze troche słaby w VBA dlatego zwaracam sie do Was o pomoc. Chciałbym zrobic logowanie do arkusza excel + filtorwanie. Ma to przeiegac tak: 1. Otwieramy arkusz 2. Pojawia sie okienko logowania: login i haslo 3. Po zalogowaniu otwiera się arkusz, który jest od razu przefiltrowany...
Zrob to tak po pierwsze zablokuj arkusze (protect) haslo jest niekonieczne. Po drugie przed uzyciem jakiejs twojej funkcji VB odblokowuj wybrany arkusz zrob co masz zrobic a potem znowu programowo go zabezpiecz. Np ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Cos tam cos...
no dobrze ale ja chce je tylko odzyskać haslo do pliku mojego taty , hasła zapomniał, jest to plik jego autorstwa ..
Witam Mam podobny problem, potrzebuje makro do exela które połączy sie z z serwerem firmowym i pobierze plik. Dotychczas to robilem tak, ze oknie cmd wpisywałem ftp.exe 10.60.50.197, łączyło mnie z serwerem, wpisywałem nazwę użytkownika, potem haslo, przechodziłem do katalogu jakiegoś tam i poleceniem...
a zainstaluj open office, otworz i usun haslo
Nie zajarzyłem od razu o tych właściwościach. Nie wiedziałem tylko że tam można aż tyle ustawić. Dziś w robocie posiedziałem trochę nad plikiem i udało mi się sporo zrobić. Dokładnie to udało mi się zrobić niewidzialny przycisk przy pustym okienku i aktywny przycisk przy wpisaniu 5 znaków. Nawet zabrnąłem...
Spróbuj [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long Dim dArk As String, katalog As String, plik As String Const haslo As String = "has?o" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name katalog = "C:\Makro\" plik = Dir(katalog & "*.xlsx") Application.ScreenUpdating....
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 .
Witam ponownie. Trochę nad tym posiedziałem i jeśli chodzi o możliwość odblokowywania przycisków w zależności od tego kto się zaloguje (Administrator czy inny użytkownik) to wykombinowałem kod jak widać poniżej. Kod zrobił się kosmiczny ale działa poprawnie. Czy można by ten kod jakoś troszkę zminimalizować? [syntax=vb]Private...
Podobnie jak w moim przypadku, otworzyło nowy plik jednak bez wygenerowanej listy. Na screenie pokazuje mi gdzie jest błąd: ...jednak muszę jeszcze dodać że generowanie listy nie kończy się tylko na tym kodzie który dałem w temacie. Jest tam jeszcze linijka: ...a to jeszcze kod samego...
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ć...
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 ...
Sheets("PLIK cut").Protect Scenarios:=True, UserInterfaceOnly:=True, Rassword:=<Haslo> Innych arkuszy do ukrycia i ochrony skoroszytu zmienic sub odsw() With Sheets("PLIK cut") .Unprotect <Haslo> .querytables(1).Refresh BackgroundQuery:=False .scrollArea="A1" ' option .Protect...
Cześć. Udało mi się zrobić krok dalej z zagnieżdzoną funkcją jeżeli. No i wszystko działa gdy wprowadzam tylko daty styczniowe. Problem pojawia się gdy wprowadze już datę z lutym. Wyrzuca od razu fałsz. Jak to obejść ? Ma ktoś jakieś pomyśły? wrzucam plik w załączniku, haslo: kadry123
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...
ActiveSheet.Protect password:=haslo
I tak i nie. Mam wiel plikuo Excel i czesto ktoś usuwa czy wysyla do konkurencji. Jedno Haslo moze ktoś podejrzeć. Chyba ze cos takiego. Plik jest na dysku wspólnym, a jak ktoś by probowal to mi na innym kompie pojawia sie komunikat, ze ktoś probowal i naprzyklad prrosi o Haslo.
Jak bym chciał nadać hasło, s.Protect "2345" 'haslo 2345 "zdjąć" ochronę ze wszystkich kart [syntax=vb]Sub odchron() For Each s In ThisWorkbook.Sheets s.Unprotect haslo Next End Sub [/syntax] edytowano
Dziękuję za pomoc. Uświadomiłem sobie, że nie wiem jak to się robi bo nigdy tego nie robiłem. Kupiłem kursik VBA za ok 60zł (nie będę reklamował skąd) i po obejrzeniu zaledwie wstępu już wiedziałem co źle robiłem. (na pewno cały obejrzę:-)) adamas_nt dzięki za zainteresowanie - nagrałem kod jednak...
Otóż szukając w internecie i modyfikując pod siebie znalazłem taki kod, który powinien wykonać moją robotę, a mianowicie kopiować dane z jednego arkusza do tabeli bazy danych. Wyskakuje mi natomiast błąd : "Wielokrokowa operacja wykonała błędy. Sprawdź wszystkie wartości stanu". Wiecie w czym może być...
Hejka :) Czyli podywagowali wszyscy na temat (lub nie na temat) a odpowiedzi jak nie było tak nie ma :D Proponuję CI takie rozwiązanie... W ThisWorkbook w zdarzeniu open wrzuć ukrywanie/odkrywanie arkusza na podstawie loginu Windowsowego Twoich userów. To jest fajne pewne rozwiązanie, sam tego...
Witam mam problemik potrzebuje lamacza kodu do dokumentow exela 2000 Bylbym wdzieczny za podanie linku lub podeslanie takiego programiku na poczte. Serdecznie dziekuje za pomoc. :D
[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...
No trochę źle wyjaśniłam o co mi chodzi Wiec Arkusz1 to wzór, tak bym chciała, aby wyglądały wszystkie tabele, ale to rozwiązanie sprawia, ze kopiuje się znacznie więcej wierszy niż jest to potrzebne w danejtabeli (po 1700 tyle ile jest w tabeli źródłowej (tabela źródłowo, może być bez obramowani...
Poprawiajcie mnie jakbym głupoty pisał 1 Instalacja pod win to raczej bajka, niektórzy mogą mieć ten program w wersji spakowanej portable czyli wypakować i odpalić z uprawnieniami administratora. Zakładka perform test i execute potem view output i save as i macie zapisany raport. Potem na karcie wpisać...
Witam, Z pliku .xls pobieram bazę danych do DataGridView. Wszystko ładnie działa, lecz w bazie są rekordy typu tekstowego, które zawierają nawet do 450 znaków. DatagridView w takiej sytuacji obcina mi wyświetlany tekst do 255 znaków. Domyślam się, że jest tu problem z typem danych, tylko nie mam pojęcia...
Czesc wszystkim, Przygotowuje się do utworzenia pliku Excel z makrem, które bedzie miało za zadanie pobrać Dane ze wszystkich dokumentów Excel umieszczonych w konkretnym folderze (najlepiej jakbym mogl ręcznie wskazać jego lokalizacje). Wszystkie dokumenty z których musze pobrać dane maja ten sam...
Trafiłeś idealnie z twierdzeniem że jak coś umiem to mam to zrobić w ramach obowiązków. Zastanawiasz skąd wzięło 600zl. Różnica między moimi zarobkami a osoba która ma najwięcej w moim dziale to 600zl. Napisze jak wygląda to dzieło w excelu Jest 20 skoroszytów, w każdym skoroszycie są następujące...
Hej, Odrazu zaznaczę że jestem początkujący jeśli chodzi o język VBA i szukałem rozwiązań lecz nie jestem w stanie zaadaptować znalezionych makr do mojego przypadku. Potrzebuję napisać makro w excelu, które umożliwi automatyczne pobieranie zawartości tabeli z kilku stron. Kwerendy nie są w stanie...
Polecam program: Passware Kit recovery Odczytuje hasla nie tylko z rarów, ale z zipow, worda, excela itp. Program stanowi grupę popdprogramow,ktore odczytuja hasla z roznych plikow. On tez uzywa metody brute force,ale jesli haslo jest nieskomplikowane to je znajdzie szybko. Pozdrawiam
Pozwole sobie jeszcze dorzucic pare drobiazgow. Na zabezpieczenie dokumentu istnieja tak wyrafinowane sposoby ze czasami az trudno uwierzyc do jakich sposobow posuwa sie autor. Osobiscie sam, na codzien stosuje takie "metody" przed kolegami i nie tylko. W swojej pracy przygotowuje bardzo duzo dokumentow...
Witam! Poszukuje programu do odczytu danych z dysku: -dysk jest sprawny/laptopowy -kieszen USB do dysku -NTFS -system XP chroniony haslem -pliki na profilu ustawione/zabezpieczone jako prywatne Pamietam kilka lat temu probowalem dostac sie do takich danych i nie moglem, nie byly to zbyt wazne...
Witam, potrzebuję stworzyć program w dowolnym języku programowania, ma za zadanie odpalić daną www poprzez protokół https zalogowanie się do niej, a następnie odpalenie przycisku na stronie. Pozniej znowu loguje sie na innego usera i i odpala przycisk na stronie i tak w kółko ;). Program powinien wczytać...
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: Plik stock.xls jest wrzucony bezpośrednio na serwer. Dodam...
Skoro napisales o Dropboxie, zainteresuj sie SkyDrive Microsoftu. Poza opcja "nad-haslo" masz wszystkie mozliwosci o ktorych pisales wczesniej. Jedynie to kwestia nauczenia sie nad dosc problematycznym interfejsem. Oczywiscie microsoft daje Ci rowniez mozliwosc umieszczenia do 7GB danych (za darmo) na...
Prosil bym o pomoc z access tool, poniewaz dodatek zostal zainstalowany, w kontroli dostepu logo aktywowalem web serwer ustawiajac nowe haslo. Przy logowaniu w excelu podaniu IP logo oraz wprwadzeniu hasla mam komunikat login fail. Czy jest ktos w stanie mi pomoc z tym problemem ?
