Wypróbuj sobie (na katalogu z jednym plikiem na początek) coś takiego: [syntax=vb]Sub ZapiszP() Dim fd As Object, kt As String, wb As String, wkb As Workbook, haslo As String haslo = Sheets(1).Range("A1") 'tu podstaw hasło Set fd = Application.FileDialog(msoFileDialogFold... With fd .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path...
no dobrze ale ja chce je tylko odzyskać haslo do pliku mojego taty , hasła zapomniał, jest to plik jego autorstwa ..
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 ale nie działa prawidłowo, tj. jak się poda złe...
witam czy mozna zabezpieczyc plik exela jakims hasłem zeby nie mozna go było otwierac ????? a jezeli tak to jak to sie robi
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 modułach VBA mam dodany wpis: [syntax=vb]Public Const...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
Nie mam żaden sposób usunąć hasło. Excel 2007 nie może otwierać z tym hasłem. Jeśli możesz otworzyć, zapisać kopię w formacie 2007 albo 2003 bez hasła
[syntax=vbscript]Private Sub Workbook_Open() For x = 2 To Sheets.Count Sheets(x).Visible = False Next a = InputBox("Podaj hasło:") For x = 2 To Sheets.Count If Sheets(x).Range("AA1") = a Then Sheets(x).Visible = True Next End Sub[/syntax]
Excel ma jeszcze coś takiego jak: Chroń skoroszyt. Wpisujesz hasło i tylko właściciel po wpisaniu hasła może go edytować (nanosić zmiany). Wszyscy inni mogą go otworzyć tylko do odczytu. Hasło dla skoroszytu blokuje wszystkie arkusze. Hasło dla arkusza blokuje tylko pojedynczy arkusz w skoroszycie. Jaką wersję EXCEL używasz? Tu masz link: http://office.microsoft.com/pl-pl/excel-...
Hasło masz założone na plik a nie na adres w przeglądarce dlatego pyta się za każdym razem gdy masz uzyskać dostęp do zawartości pliku a nie do adresu gdzie ten plik leży.
Doprecyzuj. Czy mogą widzieć dane i nie mogą nic z nimi robić. Czy nie mają widzieć tych arkuszy i nie mają prawa ich otwierać.
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
Witam, może w ten sposób zapisz jako--> narzędzia--> opcje ogólne--> tu pojawia sie okienko z hasłami do wprowadzenia. Pozdrawiam.
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...
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...
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
jeśli chodzi Ci oto zeby nikt nie zaglądał do niego to: wejdż w arkusz excel. nastepnie narzędzia w pasku u góry potem opcje... potem zabezpieczenia i bedziesz tam miał :hasło ochorony przed otwarciem lub hasło ochorny przed zmianami. oczywiście haker sie tym zbytnio nie przejmie. pozdrawiam
ActiveSheet.Protect password:=haslo
Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Unprotect haslo 'dzialanie Sheets("Dane").Protect haslo [/syntax]
Tak na szybko przerobione z Twojej procedury Private Sub cmdLogowanie_Click() 'nie Enter If Me.txtPassword.Value = "test" Then 'tu robisz co potrzeba 'i zamykasz formę Unload Me Else MsgBox "Błędne haslo! Wpisz poprawne hasło", vbExclamation, "Logowanie" 'zeruję wartość i ustawiam kursor txtPassword.Value = ""...
Tajne hasło edycji VBA, jak zwykle: "elektroda"
Prawym klawiszem na wybrany arkusz i "Chroń arkusz", jeśli chcesz ukryć to wybierasz "Ukryj". Później dajesz "Chroń skoroszyt" w opcjach Recenzja z zaznaczeniem pola "Struktura" i nie ma możliwości odkrycia arkusza. Założone hasło nie jest wywoływane przy otwieraniu dokumentu. Trzeba je wprowadzić tylko w celu zaprzestania ochrony skoroszytu. Dziękuję...
w pliku prosi o hasło Zalacz ten plik lub do wujka Googla "Excel suma kolorow" Dodano po 5 np. tu http://www.komputerswiat.pl/wideo/excel-...
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]
Czy istnieje mozliwość podglądu zabezpieczonego hasłem dokumentu EXCEL 97 bez konieczności wyszukiwania hasła?
A musi to być chrome? Na IE (i tylko) jest dużo łatwiej. Poszukaj hasła "VBA Excel IE Automation". Jest trochę przykładów.
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
Sprawdź funkcję [url=https://www.youtube.com/watch?v=Eqk... pionowo ewentualnie wpisz w wyszukiwarce youtube inne hasła związane z wyszukiwaniem.
Przetestuj takie rozwiązanie. Ochrona arkusza jest włączana automatycznie podczas otwarcia skoroszytu (hasło: "123" zdefiniowane jest w module VBA 'ten_skoroszyt'). Komórki, które mają być edytowane przez użytkowników muszą mieć odblokowaną ochronę (formatuj komórki->ochrona->zablokuj /odznaczone/). andie
Zamiast tego sub odsw() Sheets("PLIK cut").querytables(1).Refresh BackgroundQuery:=False end sub Dodano po 2 Sheets("PLIK cut").Protect Scenarios:=True, UserInterfaceOnly:=True, Rassword:=<Haslo> to w Private Sub Workbook_Open()
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]
W załączniku przykład listy z podpowiedzią zrobiony formułami. Dwie formułki w Menedżerze nazw. Możliwe są 2 warianty. Odpowiednie formuły są pokazane w Arkuszu2. Albo wyszukiwanie po dowolnym fragmencie albo po początku nazwy. Do komórki z listą wpisać hasło i wtedy rozwinąć listę (nie trzeba naciskać Enter).
W ostateczności, jeśli nie znajdzie się inne rozwiązanie, można napisać makro, które przy otwieraniu pliku "Master" będzie zdejmować hasła ze wszystkich "Slave" (warunek: żaden z nich nie może być edytowany w tym czasie) i przy zamknięciu (Mastera) nakładać ponownie. Druga faza opisana [url=http://www.elektroda.pl/rtvforum/to...
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...
a zainstaluj open office, otworz i usun haslo
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,...
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex = 6 Target.Locked = True Protect "a" End Sub[/syntax]...
Wypada zacząć od tego, że Excel nie jest twierdzą szyfrów i wszystkie zabezpieczenia są tu raczej symboliczne, to znaczy mają uświadomić użytkownikowi, że robi coś, czego robić nie powinien. Natomiast jeśli użytkownik jest zdeterminowany, to zawsze może znaleźć obejście, żeby coś niedozwolonego zrobić. W przypadku gdy zabezpieczenie bazuje na VBA, wystarczy...
1. Początkowo w formatowani komórek odblokować zakres B:I 2. Włączyć ochronę arkusza. (np. z hasłem 111 ) 3. Umieścić w kod Arkusz1 ten kod: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:I")) Is Nothing Or Cells(Target.Row, 1) <> "" Then Exit Sub Me.Unprotect...
Nie wiem, czy się dobrze rozumiemy? W załączeniu przysyłam arkusz z sumą pośrednią wg. kryteriów które podałeś. Jest to wersja robocza, trzeba by trochę nad tym popracować aby uzyskać dokładnie to czego oczekujesz - przedstawiłem jedynie zasadę działania. Ciekawszy układ można uzyskać stosując tabele przestawną. Ale najlepiej jeżeli o tym sam poczytasz...
Staram się ale nie wychodzi mi to :-( Makr jeszcze nie robiłem to byłoby moje pierwsze. Jakbym ja zarządzał plikiem to nie byłoby mi potrzebne bo "ręcznie" bym odblokował plik zablokował komórki a później włączył ochronę arkusza ale do docelowego pliku kilka osób będzie miało dostęp. Czytałem jak poradzić sobie z drugim problemem. Na stronie https://docs.microsoft.com/en-us/office/...
Toż to jedno drugiemu zarzecza - jak ktoś ma zablokowane makra, to jak makro "wymuszające" ma się odpalić?? ;) Nie ma takiej opcji. Możesz najwyżej ukryć wszystkie arkusze, zabezpieczyć dostęp do kodu VBA hasłem, i odkrywać je makrem na otwarciu. Jeżeli ktoś ma wyłączone makra -> makro na uruchomieniu się nie odpali i strony mu się nie odkryją. Jeżeli...
Posiadam rozbudowany plik Excel. Muszę dodać w nim opcję ukrywania poszczególnych kolumn w zależności od tego jakie hasło wpisze użytkownik przy otworzeniu pliku Excel. Przypuśćmy, że użytkownik A podaje swoje hasło, więc w jego arkuszu nie pokazują się kolumny C,D,E. Natomiast jeśli użytkownik B poda swoje hasło nie będzie widział kolumn np.G oraz...
Panie Macieju, wrzucam plik. Makro jest w UserForm w przycisku "Zaloguj" Login: Jan1 Hasło: 12
Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...
Rozumiem, że najpierw szukałeś ? http://www.elektroda.pl/rtvforum/topic11...
zaden problem. wystarczy wykorzystac python'a i biblioteke xlrd. przyklad: [syntax=python] ################## # FORMULARZ2 br.select_form(name="nazwaformu... # wypelnienie formularza br["form1"] = pt_login br["form2"] = pt_haslo br["typ"] = ["win"]...
Dobry wieczór, Formuły otoczone nawiasami klamrowymi są to formuły tablicowe. Formuły te działają w inny sposób niż formuły zwykłe. Zatwierdza się je nie samym Enter, lecz kombinacją Ctrl+Shift+Enter. Komórki z tymi formułami można kopiować w całości w zwykły sposób, natomiast gdy poddaje się je edycji trzeba na końcu użyć Ctrl+Shift+Enter. Formuła...
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 całego dokumentu. Edytując kod VBA zajrzyj do...
Instrukcja zajęłaby... no, trochę ekranu :) Najlepiej skorzystać z pomocy VBA. Zaznaczasz tekst funkcji w kodzie i naciskasz klawisz [F1]. Która część jest niezrozumiała? Zabezpieczenie arkusza przed edycją i temu podobne: nagraj makro z zaptaszkowanymi, odpowiednimi opcjami i przeanalizuj nagrany kod. Jak to zrobić z wykorzystaniem hasła? Było opisywane...
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 =...
excel haslo haslo excel hasło excel hasło excel
access point edimax konfiguracja whitenergy zasilacz cylinder piła partner
schematy elektryczne autobusów toshiba 40bv700
Domofon Virone gaśnie po naciśnięciu kluczyka - przyczyny i rozwiązania TP-Link: świeci się tylko dioda zasilania - przyczyny i rozwiązania
