Excel de Sayfa Koruması Nasıl Kaldırılır?

                 Elinize bir Excel geçti içerisinde değişiklik yapmanız gerekiyor ancak korumalı olduğundan dolayı işlem yapamıyorsunuz..O kadar veriyi tekrardan elle girmek de pek işimize gelmiyor.

Ne yapmalı ne etmeli bir oyunbozanlık bir şeytanlık bu beraberlik nasıl olacak.? Centilmence mi yaklaşmalı Familyasıyla mı tanışmalı bir bilene mi danışmalı kısmında size ben yardımcı olmaya çalışacağım

   öncelikle kullandığınız EXCEL kaç model ona bakalım.. şayet 2010 modelse  hemen görseller ile yardımcı olacağım..

öncelikle excel imizi açıp dosya sekmesine geliyoruz... bu sekmenin altında seçenekler sekmesine giriyoruz.

bu aşamanın ardında şeridi özelleştir sekmesini görüyor olmamız gerekiyor. Şeridi özelleştir butonunu seçiyoruz

Yeni çıkan ekranda Giriş kısmı seçili iken  aşağıda bulunan yeni gruba tıklıyoruz.

Yeni grup sayfada belirmiş olmalı. Daha sonra soldaki sütundan makroları bulup ekle tuşuna basıyoruz.

Makroların eklenmiş olduğunu görüp tamam a tıklıyoruz.

Tamam a tıkladığımızda otomatik olarak karşımıza giriş sekmesinde excel görüntümüz belirecek. Buradan eklemiş olduğumuz Makrolara  tıklayacağız.

Açılan yeni pencerede Bir ad girip oluştura tıklıyoruz.

Şuan visual basic eklentisini etkinleştirmiş olmamız aşağıdaki gibi bir ekranla karşı karşıya kalmış olmamız gerekiyor.

Bu bize ayrılan kalbimiz kadar beyaz sayfadaki herşeyi silin hiç yazı kalmasın...

ardından aşağıdaki kodları boşluk bırakmadan birebir kopyalayıp bu sayfaya yapıştırın..



Sub SifreAc() 

Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer 
On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For 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) If ActiveSheet.ProtectContents = False Then MsgBox "One usable 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 If Next Next Next Next Next Next Next Next Next Next Next Next End Sub
 Akabinde  Play tuşuna basın...  Son görüntü şöyle olmalı..

Play tuşuna bastığınızda kod aktifleşecek ve kilidi kırarak size bir şifre oluşturacak. Ekranın son görüntüsü aşağıdaki gibi olmalı.

Tamam dediğinizde excel şifresi açılmış excel sayfası kullanıma hazır olacak.. Bu şifreyi not etmenize gerek yok. Bir yerde kullanmayacaksınız zaten.

Budur yani..... Bu kadar.  

Hadi kolay gelsin hepinize pis emek hırsızları sizi :D  Başkası yapsın siz üzerine oturun di mi? Lan olm adam o kadar hazırlamış bu dosyayı verileri de çalmayın diye şifrelemiş. Sen şimdi niye böyle yapıyorsun. Ayıp değil mi lan :D

Neyse hadi olur böyle arada çok da yüklenmeyeyim şimdi :d