Exceldeki tüm sayfalara şifre koymak

[maliakan]

değerli ustalar merhaba

bir excel dosyasında 20 küsur civarı sayfa var
bu sayfalardaki mevcut verileri değiştirme yada ekleme yapılmak istediğinde excel şifre sorsun
belirlediğim şifreyi girince ayarlama ekleme çıkarma düzenleme yapılabilsin

dosyadaki değişiklikleri kaydedip tekrar açıldığında yine veri değiştirmek istersek aynen şifre sorsun

bunu Office 2013 te nasıl yapabiliriz..?
şimdiden teşekkürler

 

[Sarigol_937]

http://office.microsoft.com/tr-tr/excel-help/HP010342808.aspx şu linkte çok güzel anlatılmış okumanı tavsiye ederim

 

[Faulkner]

http://office.microsoft.com/tr-tr/excel-help/HP010342808.aspx şu linkte çok güzel anlatılmış okumanı tavsiye ederim

bilgi için teşekkürler

 

[tahsinanarat]

Sub SifreKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Protect "deneme"
    Next sayfa
End Sub

[CODE]Sub SifreKaldır()
Application.ScreenUpdating = False
    sifre = InputBox("Şifreyi girin", "Administrators Girişi")
    If sifre <> "deneme" Then Exit Sub
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "deneme"
    Next sayfa
Application.ScreenUpdating = True
End Sub

[/CODE]

 

[maliakan]

http://office.microsoft.com/tr-tr/excel-help/HP010342808.aspx şu linkte çok güzel anlatılmış okumanı tavsiye ederim

bilgi için teşekkürler
buraya baktım ama sayfayı koruyor tamam ama bir değişiklik yapmak isteyince şifre istemiyor şifreyi ve korumayı kaldırı seçmek zorunda kalıyoruz sonra kapatırken yine tüm sayfaları koru moduna almak lazım

oysaki ben herhangi bir sayfada değişiklik yapacağım zaman şifre istesin istiyorum şifreyi 1 kez girdikten sonra tüm sayfalarda ekleme çıkarma değişiklik yapılabilsin sonra dosyayıda yaptığımız değişiklikten dolayı kayıt ederek kapattığımızda ve tekrar açıpta yine bir düzenleme yapmak istediğimizde yine şifre istesin istiyorum bu mümkünmüdür?

 

[maliakan]

Sub SifreKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Protect "deneme"
    Next sayfa
End Sub

[CODE]Sub SifreKaldır()
Application.ScreenUpdating = False
    sifre = InputBox("Şifreyi girin", "Administrators Girişi")
    If sifre <> "deneme" Then Exit Sub
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "deneme"
    Next sayfa
Application.ScreenUpdating = True
End Sub

[/CODE]

tahsin bey bu kodu benim sayfanın neresine yapıştıracağız yoksa geliştirici sekmesinden girip bir sayfa açıp orayamı yapıştırmak lazım aşamalı olarak anlatabilirseniz çok sevinirim..