• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

butun sayfalarin degistirmeye karsi sifreli olmasi

Z

zetkatamet

Altın Üye
Katılım
13 Mart 2008
Mesajlar
1,408
Excel Vers. ve Dili
Office 365 Türkçe
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.
 
Merhaba,
Aynı sekmeden "Çalışma Kitabını Koru" seçeneği ile işinizi halledebilirsiniz.
Selamlar,
 
Sayfalar korumak için :
Kod: 
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 :
Kod: 
Sub sifreac()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub
 
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ı.
 
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.
 
sn.malibum,
dosyayi goremiyorum, eki unuttunuz sanirim
 
Aksilik için özür dilerim. Sanırım Şimdi ekte bulabilirsin.
 

Ekli dosyalar

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

Ekli dosyalar

çok güzel bir çalışma oldu, tekrar teşekkürler
 
buyrun sn.parametre dosya ekte
sifreleri zetkatamet
 

Ekli dosyalar

tesekkur ederim şimdi indirebildim sorun neden kaynaklandı bilemiyorum tesekkurler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst