Kilidli Excel Vərəqinin Kilidini Açmaq üçün VBA Kodu: 4 Addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:47

Excel iş səhifələrinizdən birinin parolunu heç unutmusunuzsa, bunun nə qədər sinir bozucu ola biləcəyini bilirsiniz. Bu təlimatda istifadə olunan kod tapdığım ən sadə kodlardan biridir. Qorunan hesabınızın kilidini açacaq faydalı bir kod yaradacaq. Kodu ehtiyac duyduğum anda tapdığım üçün kredit götürə bilmərəm (və saytın harada olduğunu artıq tapa bilmirəm)… bu sizin üçün işləməsə çox kömək etməyəcəyəm uğur qazandım və paylaşacağımı düşündüm.

Addım 1: VBA açın

Şifrənizi unutduğunuz iş səhifəsini açın. Makro redaktoruna daxil olmaq üçün Alt+F11 düymələrindən istifadə edin. VBA -da sol menyudakı siyahıdan açmaq üçün lazım olan vərəqə iki dəfə vurun.

Addım 2: Kod kəsicini kəsin və yapışdırın

Aşağıdakı kodu açdığınız ümumi bəyannamələr səhifəsinə daxil edin. Heç bir şeyi dəyişdirməməlisiniz, vərəqin adını və s.… Yalnız kəsib yapışdırın._ Sub PasswordBreaker () 'İş səhifəsinin parol qorunmasını pozur. k IntegerDim l Tamsayı olaraq, m Tamsayı olaraq, n Tamsayı Dim i1 Tamsayı olaraq, i2 Tamsayı olaraq, i3 Tamsayı olaraq Dim i4 Tamsayı olaraq, i5 Tamsayı olaraq, i6 Tamsayı olaraq Xətada Növbəti davam edin i = 65 -dən 66 -a: j = 65 - 66: k = 65 - 66 üçün l = 65 - 66: m = 65 - 66: i1 = 65 - 66 üçün i2 = 65 - 66: i3 = 65 - 66: i4 = 65 üçün I5 = 65 üçün 66 üçün: i6 = 65 ilə 66 arasında: n = 32 ilə 126 ActiveSheet üçün. Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) qoruma & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) ActiveSheet. ProtectContents = False Sonra MsgBox "Bir istifadə edilə bilən şifrədir" & 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 Enddən çıxın Əgər Sonrakı: Sonrakı: Sonrakı: Sonrakı: Sonrakı: Sonrakı Sonrakı: Sonrakı: Sonrakı: Sonrakı: Sonrakı: Sonraki: Sonrakı Son Sub_

Addım 3: Makronu işə salın

Kod əlavə edildikdən sonra, VBA redaktoru ekranının yuxarısındakı menyu sekmesinden Çalıştır'ı seçin və ya F5 düyməsini basaraq Makronu işlədin.

Addım 4: Yaranan Kodu istifadə edin

Makro sizi qorumaq istədiyiniz iş səhifəsinə qaytaracaq. İstifadə edilə bilən bir kod olan bir xəbərdarlıq üslubu qutusu görünəcək. Baxış menyu sekmesinde Qorunma vərəqini vurun Yaradılmış kodu parol olaraq daxil edin və bitirdiniz. Vərəqinizin kilidi açılmalıdır! Bu gücdən ağıllı və məsuliyyətli şəkildə yalnız öz iş səhifələrinizin kilidini açmaq üçün istifadə etməlisiniz.