VBA კოდი ჩაკეტილი Excel ფურცლის გასახსნელად: 4 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:19

თუ ოდესმე დაგავიწყდათ პაროლი თქვენი ექსელის ერთ – ერთი ფურცლისთვის, იცით რამდენად იმედგაცრუებული შეიძლება იყოს ეს. ამ ინსტრუქციაში გამოყენებული კოდი არის ერთ -ერთი ყველაზე მარტივი, რაც მე ვიპოვე. ის გამოიმუშავებს გამოსაყენებელ კოდს, რომელიც გახსნის თქვენს დაცულ ფურცელს. მე ვერ ავიღებ კოდს, რადგან მე უბრალოდ ვიპოვე საჭიროების მომენტში (და მე ვეღარ ვპოულობ სად არის საიტი … მქონდა წარმატება და ვიფიქრე გამეზიარებინა.

ნაბიჯი 1: გახსენით VBA

გახსენით სამუშაო ფურცელი, რომლის პაროლიც დაგავიწყდათ. გამოიყენეთ Alt+F11, რათა შეიყვანოთ მაკრო რედაქტორი. ერთხელ VBA– ში ორმაგად დააწკაპუნეთ ფურცელზე, რომელიც უნდა განბლოკოთ მენიუდან მარცხნივ. ეს გახსნის ზოგადი დეკლარაციების გვერდს ფურცლისთვის.

ნაბიჯი 2: გაჭრა და ჩასვით კოდის ამომრთველი

შეიყვანეთ ქვემოთ მოცემული კოდი თქვენს მიერ გახსნილი ზოგადი დეკლარაციების გვერდზე. თქვენ არ უნდა შეცვალოთ არაფერი, ფურცლის სახელი და ა.შ … უბრალოდ გაჭრა და ჩასმა._ Sub PasswordBreaker () 'არღვევს პაროლის დაცვას. Dim i As Integer, j როგორც Integer, k როგორც IntegerDim l როგორც მთელი რიცხვი, m როგორც მთელი რიცხვი, n როგორც მთელი რიცხვი Dim i1 როგორც მთელი რიცხვი, i2 როგორც მთელი რიცხვი, i3 როგორც მთელი რიცხვი Dim i4 როგორც მთლიანი, i5 როგორც მთელი რიცხვი, i6 როგორც მთელი რიცხვი შეცდომის განახლება შემდეგი i = 65 დან 66 მდე: For j = 65 -დან 66 -მდე: k = 65 -დან 66 -მდე l = 65 -დან 66 -მდე: m = 65 -დან 66 -მდე: i1 = 65 -დან 66 -მდე i2 = 65 -დან 66 -მდე: i3 = 65 -დან 66 -მდე: i4 = 65 -მდე 66 -მდე i5 = 65 -დან 66 -მდე: i6 = 65 -დან 66 -მდე: n = 32 -დან 126 -მდე ActiveSheet. დაიცავით Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = False then MsgBox "One useable password is" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Exit Sub End თუ შემდეგი: შემდეგი: შემდეგი: შემდეგი: შემდეგი: შემდეგი: შემდეგი შემდეგი: შემდეგი: შემდეგი: შემდეგი: შემდეგი: შემდეგი დასასრული Sub_

ნაბიჯი 3: გაუშვით მაკრო

მას შემდეგ, რაც კოდი დაემატება გაუშვით მაკრო შერჩევა Run მენიუს ჩანართის ზოლიდან VBA რედაქტორის ეკრანის ზედა ნაწილში ან მარტივი დაჭერით F5

ნაბიჯი 4: გამოიყენეთ გენერირებული კოდი

მაკრო დაგიბრუნებთ იმ ფურცელს, რომლის დაცვაც გსურთ. გამოჩნდება განგაშის სტილის ყუთი გამოსაყენებელი კოდით. გადახედვის მენიუს ჩანართზე დააწკაპუნეთ დაუცველი ფურცელი. შეიყვანეთ გენერირებული კოდი როგორც პაროლი და თქვენი გაკეთებულია. თქვენი ფურცელი უნდა იყოს განბლოკილი! თქვენ უნდა გამოიყენოთ ეს ძალა გონივრულად და პასუხისმგებლობით მხოლოდ საკუთარი სამუშაო ფურცლების განსაბლოკად.