Түгжигдсэн Excel хуудсыг онгойлгох VBA код: 4 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:04

Хэрэв та Excel -ийн аль нэг хуудасныхаа нууц үгийг мартсан бол энэ нь ямар их урам хугарахаа мэддэг. Энэ зааварт ашигласан код бол миний олж мэдсэн хамгийн энгийн кодуудын нэг юм. Энэ нь хамгаалагдсан хуудасны түгжээг тайлах боломжтой кодыг үүсгэх болно. Би кодыг хэрэгтэй үед нь л олсон тул зээл авах боломжгүй (мөн энэ сайт хаана байгааг би олж чадахгүй байна) … тиймээс хэрэв энэ нь танд тохирохгүй бол би тийм ч их тус болохгүй. Би амжилтанд хүрч, хуваалцахыг хүсч байна.

Алхам 1: VBA -ийг нээнэ үү

Нууц үгээ мартсан ажлын хуудсыг нээнэ үү. Alt+F11 товчийг дарж макро засварлагч руу орно уу. VBA дээр зүүн талд байгаа цэсийн жагсаалтаас онгойлгох шаардлагатай хуудсыг нэг удаа дарж нээнэ үү.

Алхам 2: Код таслагчийг хайчилж буулгана уу

Доорх кодыг нээсэн ерөнхий мэдүүлгийн хуудсандаа оруулна уу. Та юу ч өөрчлөх, хуудасны нэр гэх мэтийг өөрчлөх шаардлагагүй … Зүгээр л хайчилж ав._ Sub PasswordBreaker () 'Ажлын хуудасны нууц үгийн хамгаалалтыг эвддэг. k As IntegerDim l Бүхэл тоо, m Бүхэл тоо, n Бүхэл тоо Dim1 i Бүхэл тоо, i2 Бүхэл тоо, i3 Бүхэл тоо Dim i4 Бүхэл тоо, i5 Бүхэл тоо, i6 Бүхэл тоогоор Алдааг үргэлжлүүлэх Дараа нь i = 65 -аас 66 хүртэл: j = 65 -аас 66: k = 65 -аас 66 -д l = 65 -аас 66: To 66 to i5 = 65 to 66: for i6 = 65 to 66: for n = 32 to 126 ActiveSheet. Unprotect Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) ActiveSheet. ProtectContents = False Дараа нь MsgBox "Нэг ашиглах боломжтой нууц үг бол" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Sub End -ээс гарах Хэрэв Дараа нь: Дараа нь: Дараа нь: Дараа нь: Дараа нь: Дараагийн: Дараагийн: Дараагийн: Дараа нь: Дараа нь: Дараа нь: Дараа нь: Дараа нь: Дараах Төгсгөл _

Алхам 3: Макро ажиллуулна уу

Кодыг нэмсний дараа VBA засварлагчийн дэлгэцийн дээд хэсэгт байрлах цэсийн таб дээрээс Run командыг ажиллуулна уу эсвэл F5 товчийг дарна уу.

Алхам 4: Үүсгэсэн кодыг ашиглана уу

Макро таныг хамгаалахыг хүсэхгүй байгаа ажлын хуудас руу буцаана. Ашиглах код бүхий анхааруулах загварын хайрцаг гарч ирнэ. Хяналтын цэсийн таб дээр Хамгаалах хуудас дээр дарна уу. Үүсгэсэн кодыг нууц үг болгон оруулна уу. Таны хуудасны түгжээг тайлах ёстой! Та энэ хүчийг ухаалгаар, хариуцлагатайгаар зөвхөн өөрийн ажлын хуудсыг нээхийн тулд ашиглах ёстой.