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...
Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Unprotect haslo 'dzialanie Sheets("Dane").Protect haslo [/syntax]
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
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" Dodano po 8 Private Sub Workbook_Open() Worksheets("arkusz1").... UserInterfaceOnly:=True...
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 = CreateObject("CDO.Configuration") Set Mejl = CreateObject("CDO.Message")...
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ę...
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 https://obrazki.elektroda.pl/1892267600_... Dodano po 35 https://obrazki.elektroda.pl/1892267600_...
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 !!!!! :( cze zna ktos jakikolwiek sposob na obejscie...
[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]
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.
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...
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...
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/...
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
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 np wg dwoch parametrów (kolumna z loginem i np komorka...
... Chcialem zrobic tak zeby po nacisnieciu przycisku unlock bylo wprowadzane haslo i jak zablokuje zeby nie bylo wg opcji edycji bo teraz jak nacisne ptaszek "yes" wywala mi blad 400.. (podczas trybu zablokowanego)... A jak skomplikowane mogą być makra, żeby kolega wiedział o co w nich chodzi ? Okienka dialogowe 'UserForm' kolega trochę zna ? Czy...
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() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
ActiveSheet.Protect password:=haslo
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, bardzo proszę o pomoc w edycji mojego makra, którego początek wygląda tak: [syntax=vb]Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "\\WARW8HP1\data$\Desktop\PROJEKT\tekstó...
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
Witam, może w ten sposób zapisz jako--> narzędzia--> opcje ogólne--> tu pojawia sie okienko z hasłami do wprowadzenia. Pozdrawiam.
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.
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...
Witam Kliknij z menu PLIK opcje ZAPISZ JAKO, następnie po prawej na górze okienka menu NARZĘDZIA i OPCJE OGÓLNE.
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.
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...
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]
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...
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-...
Sprawdź funkcję [url=https://www.youtube.com/watch?v=Eqk... pionowo ewentualnie wpisz w wyszukiwarce youtube inne hasła związane z wyszukiwaniem.
Czy itnieje w Office 2000 założenie na plik excela hasła tak by nie mozna było go otworzyc bez podania hasła.
Czy istnieje mozliwość podglądu zabezpieczonego hasłem dokumentu EXCEL 97 bez konieczności wyszukiwania hasła?
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()
Czesc panowie dzieki za pomoc. Ściągłem Excel Password Recovery i zainstalowałem. Jest tylko jeden problem, program pisze że plik nie jest chroniony hasłem. Jestem dalej w punkcie wyjścia. Plik napewno jest chroniony hasłem przed zmianami i nie wiem co mam dalej robić.
Witam, Mam już tak dużo haseł że muszę je spisać w jedym miejscu ... pomyślałem o pliku excel poddanemu szyfrowaniu z hasłem dłuższym niż 8 znaków + wielkie litery, cyfry i znaki specjalne... Czy to według Was wystarczające zabezpieczenie ? Łamał ktoś kiedyś zabezpieczenie tego typu? dzieki i pozdrawiam
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]
Excel nie jest bazą danych - ani nie zapewnia bezpieczństwa
Nie znam hasła.
Rozumiem, że najpierw szukałeś ? http://www.elektroda.pl/rtvforum/topic11...
szukam programu lub sposobu obeścia hasła do "ochrony arkusza" w skoroszycie ms excel. Hasła pozakładał stary pracownik któego już nie ma. Udostępniam skoroszyt. Prosze o hasłą do arkuszy na priv lub tutaj. http://student.twp.olsztyn.pl/~maniac/OC...
Z tego co pamiętam hasła w Excelu 2003 nie były jakimś specjalnym wyzwaniem, nie ma co się bawić z maskami.
http://www.lostpassword.com/kit.htm - pelna wersja tfu.. kopia zapasowa :) do sciagniecia na www.torrent.prv.pl
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-...
Prawidłowo powinno się włączyć ochronę arkusza i odptaszkować całość z wyjątkiem tej kolumny. Jakimś wyjściem jest procedura zdarzeniowa z włączoną ochroną VBA. Ale dla średnio rozgarniętego Usera dość łatwe do "złamania". Spróbuj: hasło dla kolumny "elka", dla VBA standardowe na elektrodzie ;) Ale nie wiem czy to ma jakikolwiek sens, bo podejrzeć co...
Możliwe byłoby blokowanie arkusza(y) wykorzystując metodę OnTime . Sprawdzałoby się co, powiedzmy 5 minut, czas zegara systemowego i jeśli warunek spełniony - włączamy blokadę...
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 = ""...
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...
a powiedz mi jak do tego dorzucić hasło
Simson2 jakiego masz ecxela bo u mnie na 2000 nie ma czegos takiego
haslo excel hasło excel haslo excel haslo excel arkusz
seicento wspomaganie spalone wysokotonowe daewoo rodzicielska
flash dumps pompa ciepła multisplit
Zakaz budowy przy stacji transformatorowej i słupie energetycznym Jak wyłączyć sklep z filmami w CHiQ 50 Android TV?
