İçindekiler:
2025 Yazar: John Day | [email protected]. Son düzenleme: 2025-01-13 06:58
Excel çalışma sayfalarınızdan birinin şifresini unuttuysanız, bunun ne kadar sinir bozucu olabileceğini bilirsiniz. Bu talimatta kullanılan kod, bulduğum en basit kodlardan biridir. Korumalı sayfanızın kilidini açacak kullanılabilir bir kod üretecektir. Kodu sadece ihtiyaç anında bulduğum için takdir edemiyorum (ve sitenin artık nerede olduğunu bulamıyorum)… oooo, eğer işe yaramazsa pek yardımcı olmayacağım ama ben onunla başarılı oldu 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 sayfaya çift tıklayın. Bu, sayfa için genel bildirimler sayfasını açacaktır.
Adım 2: Kod Ayırıcıyı Kesip Yapıştırın
Açmış olduğunuz genel bildirimler sayfasına aşağıdaki kodu giriniz. Herhangi bir değişiklik yapmanıza gerek yoktur, sayfa adı vs… Kesip yapıştırmanız yeterlidir._ Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k IntegerDim l Tamsayı Olarak, m Tamsayı Olarak, n Tamsayı Olarak Dim i1 Tamsayı, i2 Tamsayı, i3 Tamsayı Olarak Dim i4 Tamsayı, i5 Tamsayı, i6 Tamsayı Olarak Hatada Devam Et Sonraki İçin i = 65 - 66: İç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 için = 65 ila 66 için i2 için = 65 ila 66 için: i3 için = 65 ila 66 için: i4 için = 65 66'ya i5 için = 65 ila 66 için: i6 için = 65 ila 66 için: n = 32 ila 126 ActiveSheet için. Khr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) için Korumayı Kaldır & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveSheet. ProtectContents = False ise MsgBox "Kullanılabilir bir parola " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Çıkış Alt Uç Sonraki ise: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki Sonraki: Sonraki: Sonraki: Sonraki: Sonraki: Sonraki Son Alt_
Adım 3: Makroyu Çalıştırın
Kod eklendikten sonra, VBA düzenleyici ekranının üst kısmındaki menü sekme çubuğundan Çalıştır'ı seçerek Makroyu çalıştırın veya F5 tuşuna basın.
Adım 4: Oluşturulan Kodu Kullanın
Makro, korumasını kaldırmak istediğiniz çalışma sayfasına geri döner. Kullanılabilir bir kod içeren bir uyarı stili kutusu görünecektir. Gözden Geçir menü sekmesinde Sayfa Korumasını kaldır'a tıklayın. Oluşturulan kodu şifre olarak girin ve işlemi tamamlayın. Sayfanızın kilidi açılmış olmalı! Bu gücü yalnızca kendi çalışma sayfalarınızın kilidini açmak için akıllıca ve sorumlu bir şekilde kullanmalısınız.