Kilitli Excel Sayfasının Kilidini Açmak için VBA Kodu

Excel çalışma sayfalarınızdan biri için bir parola unuttuysanız, bunun ne kadar sinir bozucu olabileceğini bilirsiniz.

Bu talimatta kullanılan kod bulduğum en basit biridir. Korumalı sayfanızın kilidini açacak kullanılabilir bir kod oluşturur.

Ben sadece ihtiyaç bir anda buldum gibi kod için kredi alamıyorum (ve sitenin artık nerede olduğunu bulamıyorum) ... sooo sizin için işe yaramazsa ben çok yardım olmaz onunla başarılı oldum ve paylaşacağımı düşündüm.

Adım 1: VBA'yı açın

Parolanızı unuttuğunuz çalışma sayfasını açın.

Makro düzenleyiciye girmek için Alt + F11 tuşlarını kullanın.
VBA'ya girdikten sonra, soldaki menü listesinden kilidini açmanız gereken sayfayı çift tıklayın.
Bu sayfa için genel bildirimler sayfasını açacaktır.

Adım 2: Kod Kesiciyi Kesip Yapıştırın


Aşağıdaki kodu, açtığınız genel bildirimler sayfasına ekleyin.

Hiçbir şeyi, sayfa adını vb. Değiştirmek zorunda kalmamalısınız ... Sadece kesip yapıştırın.
_______________________

Alt PasswordBreaker ()

'Çalışma sayfası parola korumasını kırar.

Dim i As Tamsayı, j As Tamsayı, k As Tamsayı
Dim l As Tamsayı, m As Tamsayı, n As Tamsayı
Dim i1 Tamsayı Olarak, i2 Tamsayı Olarak, i3 Tamsayı Olarak
Dim i4 Tam Sayı, i5 Tam Sayı, i6 Tam Sayı
Hata Durumunda Devam Ettir Sonraki
İ = 65 ila 66 için: j = 65 ila 66 için: k = 65 ila 66 için
L = 65 ila 66 için: m = 65 ila 66 için: i1 = 65 ila 66 için
İ2 = 65 ila 66 için: i3 = 65 ila 66 için: i4 = 65 ila 66 için
İ5 = 65 ila 66 için: i6 = 65 ila 66 için: n = 32 ila 126 için
Chr (i) ve Chr (j) ve Chr (k) & _'in korumasını kaldırın
Chr (l) ve Chr (m) ve Chr (i1) ve Chr (i2) ve Chr (i3) & _
Chr (i4) ve Chr (i5) ve Chr (i6) ve Chr (n)
ActiveSheet.ProtectContents = Yanlış O zaman
MsgBox "Kullanılabilir bir şifre" & Chr (i) & Chr (j) & _
Chr (k) ve Chr (l) ve Chr (m) ve Chr (i1) ve Chr (i2) & _
Chr (i3) ve Chr (i4) ve Chr (i5) ve Chr (i6) ve Chr (n)
Alt Çık
End If
Sonraki: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki
Sonraki: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki
End Sub
________________________

3. Adım: Makroyu çalıştırın

Kod eklendikten sonra, VBA düzenleyici ekranının üst kısmındaki menü sekmesi çubuğundan Çalıştır'ı seçerek veya F5 tuşuna basitçe basarak Makro'yu çalıştırın.

4. Adım: Oluşturulan Kodu Kullanma

Makro, korumasını kaldırmak istediğiniz çalışma sayfasına dönmenizi sağlar. Kullanılabilir bir kod içeren bir uyarı stili kutusu görünecektir.

İnceleme menüsü sekmesinde Sayfayı koru'yu tıklayın.
Oluşturulan kodu şifre olarak girin ve işleminizi tamamlayın. Sayfanızın kilidi açılmalıdır!

Bu gücü akıllıca ve sorumlu bir şekilde sadece kendi çalışma sayfalarınızın kilidini açmak için kullanmalısınız.

İlgi̇li̇ Makaleler