Exelde her sayfa İÇİN ŞİFRE KOYMA

[yaslamm]

Arkadaşlar yeni bütçe yapıyorum ama bütçemi şirkette 5 tane bolum ekleme silme yapacak ama sadece ilğili oldugu böLüme o yuzden her sayfa için ayrı ayrı şifre koymam mümkünmüdür yardımlarınız bekliyorum

 

[ZorBey_]

Merhaba iyi çalışmalar bu sayfayı inceleyin lütfen.
http://www.excel.web.tr/f48/kullanycy-adyna-gore-sayfa-secimi-t138061.html#post748455

 

[Lenadro]

Arkadaşlar yeni bütçe yapıyorum ama bütçemi şirkette 5 tane bolum ekleme silme yapacak ama sadece ilğili oldugu böLüme o yuzden her sayfa için ayrı ayrı şifre koymam mümkünmüdür yardımlarınız bekliyorum

Merhabalar,

Bu tür işlem mümkün. Çalışmanızı yüklerseniz yardımcı olmaya çalışabilirim.

 

[okan32]

BU İŞİNİZİ GÖRÜR HERALDE

Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123" = True
Next
End Sub

Sub sifreac()
For a = 1 To Sheets.Count
Sheets(a).Unprotect "123" = True
Next
End Sub