butun sayfalarin degistirmeye karsi sifreli olmasi

[zetkatamet]

Herkese gunaydin,
Sayfa korumasi yapildiginda kisi dosyayi acsin fakat degisiklik yapamasin istiyorum.
Islem birkere yapildiginda butun sayfalarda etkin olsun.
Sayfayi koru dedigimde butun sayfalar icin ayri ayri yapmam gerekiyor, sayfa sayisi da fazla olunca cok zaman aliyor.
Simdiden tesekkurler.

 

[ziya]

Merhaba,
Aynı sekmeden "Çalışma Kitabını Koru" seçeneği ile işinizi halledebilirsiniz.
Selamlar,

 

[ozgretmen]

Sayfalar korumak için :

Sub sifrele()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Protect
Next sht
End Sub

Sayfa korumalarını kaldırmak için :

Sub sifreac()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub

 

[zetkatamet]

Rica etsem bir örnek gönderebilirmisiniz, makro bilgim yok ta.
Teşekkürler.
Ziya arkadaşımızın çözümü makrosuz gibi ama birtürlü olmadı.

 

[ozgretmen]

Dosya ekte...

 

[zetkatamet]

çok tesekkur ederim, saygilar

 

[ozgretmen]

çok tesekkur ederim, saygilar

Rica ederim.İyi çalışmalar...

 

[zetkatamet]

ya birde şu yapılabilirmi, sayfaları koru ve sayfaları koruma butonlarına sifre ile onaylanmasını rica etsem, sifre nikim zetkatamet olabilir. birde bu olursa süper olacak, çünkü işyerinde ağ sisteminde herkesin göreceği ortak bir dosya olacak. eğer sifre olmazsa herkes degisiklik yapabilecek.

 

[malibum]

İstediğin şey bu olabilir mi?....

 

[zetkatamet]

sn.malibum,
dosyayi goremiyorum, eki unuttunuz sanirim

 

[malibum]

Pardon ben ekledim sanıyordum .....

 

[malibum]

Aksilik için özür dilerim. Sanırım Şimdi ekte bulabilirsin.

 

[ozgretmen]

Kitaptaki sayfaları korumak ve koruma kaldırmak için sizden şifre ister.Dosya ekte.
Şifre : zetkatamet

 

[zetkatamet]

çok güzel bir çalışma oldu, tekrar teşekkürler

 

[ozgretmen]

çok güzel bir çalışma oldu, tekrar teşekkürler

Rica ederim.İyi çalışmalar...

 

[parametre]

Kitaptaki sayfaları korumak ve koruma kaldırmak için sizden şifre ister.Dosya ekte.
Şifre : zetkatamet

dosyanızda indirme problemi ile karsılasıyorum neden olabilir guncelleme mumkunmu

 

[zetkatamet]

buyrun sn.parametre dosya ekte
sifreleri zetkatamet

 

[parametre]

tesekkur ederim şimdi indirebildim sorun neden kaynaklandı bilemiyorum tesekkurler