Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Unprotect haslo 'dzialanie Sheets("Dane").Protect haslo [/syntax]
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...
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")...
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. 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_...
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 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...
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/...
ActiveSheet.Protect password:=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...
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...
[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]
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.
... 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...
Witam Kliknij z menu PLIK opcje ZAPISZ JAKO, następnie po prawej na górze okienka menu NARZĘDZIA i OPCJE OGÓLNE.
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, może w ten sposób zapisz jako--> narzędzia--> opcje ogólne--> tu pojawia sie okienko z hasłami do wprowadzenia. Pozdrawiam.
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ó...
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ę...
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.
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
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]
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...
Nie znam hasła.
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]
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...
Sprawdź funkcję [url=https://www.youtube.com/watch?v=Eqk... pionowo ewentualnie wpisz w wyszukiwarce youtube inne hasła związane z wyszukiwaniem.
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-...
Czy istnieje mozliwość podglądu zabezpieczonego hasłem dokumentu EXCEL 97 bez konieczności wyszukiwania hasła?
a powiedz mi jak do tego dorzucić hasło
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()
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.
Dodam tylko, że musisz obsłużyć hasło.
Hej! Mam nietypowe zadanie. Zrobiłem przykładowy plik, który załączam. Mam dane w kolumnach ABCD i potrzebuję ukryć oraz zabezpieczyć hasłem daną kolumnę. Chodzi o kolumnę, nie o cały arkusz. Czy istnieje taka możliwość? Chodzi o to, aby uzyskać efekt taki, że 10 użytkowników będzie pracowało z tym plikiem, ale tylko 2 osoby mogą zobaczyć co jest w...
http://www.lostpassword.com/kit.htm - pelna wersja tfu.. kopia zapasowa :) do sciagniecia na www.torrent.prv.pl
Poszukaj w Internecie pod hasłem: "excel vba indeks arkusza" "excel vba nazwa kodowa arkusza" Spróbuj samodzielnie opanować posługiwanie się nazwą, nazwą kodową lub indeksem w odwołaniach. To naprawdę nic trudnego...
Niestety w pliku prosi o hasło żeby można zobaczyć wprowadzone kody vba. Czy jest jakiś sposób na podejrzenie kodów pomimo nałożonego hasła?
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"
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...
Wyłącz go przy inicjacji formy. A w ogóle to po co podpowiadać "hakierowi" ilość znaków w haśle?
Jakiś czas temu, miałem podobny problem i załatwiłem to za pomocą PDFCreator-a z firmy zwanej [url=https://www.pdfforge.org/pdfcreator... i takiego skryptu: [syntax=vbscript]Const MagicWord = "aaabbbxxxx12345" //haslo Set objArgs = WScript.Arguments If objArgs.Count = 0 Then MsgBox "This script needs a parameter!", vbExclamation, AppTitle WScript.Quit...
Jeśli przeczytałaś informację podane w linku, to już wiesz. Poszukaj w Internecie pod hasłem "Excel Extended Date Functions".
zabezpieczony hasłem...
Sądzisz, że przy pomocy makra otworzysz plik zabezpieczony hasłem :please:
[syntax=vbscript]Cells(Rng.Row, 10).Locked = True ActiveSheet.Protect Password:="hasło"[/syntax]
Logowanie mówisz ... Excel nigdy nie był przedstawiany jako narzędzie do tworzenia oprogramowania, nawet przez Microsoft. To ślepa uliczka, a im później z niej wycofać, tym większy żal wyrzucić prowizorkę Do tego są bezpieczniejsze języki, podzielone na podzespoły: bazy danych do przechowywania danych, kod jako kod, GUI to GUI Co ci z zabezpieczenia...
excel haslo hasło excel haslo excel haslo excel arkusz
zwarcia zwojowe czysty dźwięk wzmacniacz silnik ultrasilencer
piekarnik amica ebi81074 samsung le32b350
Jak podłączyć Creative Inspire P380 w samochodzie? Resetowanie licznika i zegara w VW Passat B5 po zgaszeniu silnika
