Sayfaları Şifreleme

[mcorhan]

excel çalışma kitabında yaklaşık 35 tane sayfa var. Ben bütün sayfaları işlem yapılamayacak şekilde kilitlemek istiyorum. Ama ayrı ayrı sayfalara girip tek tek sayfayı korumak çok uzun sürüyor. Bütün sayfaları tek bir şifre ile şifrelemenin bir yolu var mıdır?

 

[Orion1]

Sayfaları korumalı yapmak ve şifrelemek için aşağıdaki kodukullanınız.

Sub Butun_sayfalari_sifrele()
For i = 1 To Worksheets.Count
    Sheets(i).Protect "1234"
Next
MsgBox "Bütün sayfalar şifrelendi." & vbLf & "Şifre : 1234", vbOKOnly + vbInformation
End Sub

Sayfaların korumasını kaldırmak için aşağıdaki kodu kullanınız.

Sub Sifre_coz()
For i = 1 To Worksheets.Count
    Sheets(i).Unprotect "1234"
Next
MsgBox "Bütün sayfaların şifresi çözüldü.", vbOKOnly + vbInformation
End Sub

 

[mcorhan]

çok teşekkür ediyorum

 

[Orion1]

çok teşekkür ediyorum

Rica ederim.
İyi çalışmalar.

 

[abtani]

Sayın Orion2 ;
Bu çalışmada kilitleme kodlarının sadece excel sayfalarındaki hücrelerde bulunan formülleri kapsaması,formüllerin gizli olması ve diğer hücrelerde işlem yapabilmek için neler değiştirlmelidir.

 

[Orion1]

Sayın Orion2 ;
Bu çalışmada kilitleme kodlarının sadece excel sayfalarındaki hücrelerde bulunan formülleri kapsaması,formüllerin gizli olması ve diğer hücrelerde işlem yapabilmek için neler değiştirlmelidir.

Aşağıdaki kodlar A1:B20 aralığını korumaya alıyor ve A1.B20 aralığında formül varsa onları gizliyor.

Sub Butun_sayfalari_sifrele()
For i = 1 To Worksheets.Count
    Sheets(i).Cells.Locked = False
    Sheets(i).Range("A1:B20").Locked = True
    Sheets(i).Range("A1:B20").FormulaHidden = True
    Sheets(i).Protect "1234"
Next
MsgBox "Bütün sayfalar şifrelendi." & vbLf & "Şifre : 1234", vbOKOnly + vbInformation
End Sub

 

[abtani]

Altta bulunan linktede bu konu inceleniyordu,fakat makrolar uygulandıktan sonra kapanmama sorunu ile karşılaşmıştım.
http://www.excel.web.tr/showthread.php?t=38312

 

[Orion1]

6 no.lu mesajda sorunuzu yanıtladım.

 

[abtani]

Teşekkür ediyorum,yararlı bir çalışma oldu benim için

 

[Orion1]

Teşekkür ediyorum,yararlı bir çalışma oldu benim için

Rica ederim.
İyi çalışmalar.