Excel sayfasindaki butun sekmeleri tek seferde korumaya almak

Katılım
19 Eylül 2018
Mesajlar
12
Excel Vers. ve Dili
OFFİCE 365
Merhaba,

Bir excel sayfasinda altta bulunan tüm sayfalari tek seferde korumaya almak istiyorum yardımcı olabikir misiniz

Saygilarimla.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Aşağıdaki Makro kodlarını deneyin.
Kod:
Sub SayfalariKoru()
Dim sayfa As Worksheet
Dim sifre As String
sifre = "" ' Çift Tırnak içine isterseniz Şifre yazabilirsiniz.
For Each sayfa In Worksheets
    sayfa.Protect Password:=sifre
Next sayfa
End Sub
Sub SayfaKorumayiKaldir()
Dim sayfa As Worksheet
Dim sifre As String
sifre = "" ' Eğer SayfalariKoru Kodunda Şifre kullanıldıysa Çift Tırnak içine aynı  Şifre yazılmalıdır.
For Each sayfa In Worksheets
    sayfa.Unprotect Password:=sifre
Next sayfa
End Sub
rını deneyiniz.
 
Son düzenleme:
Katılım
19 Eylül 2018
Mesajlar
12
Excel Vers. ve Dili
OFFİCE 365
Koruma kaldirma islemi yapmak istediklerinde koyacagim sifreyi sormasini saglayabilir miyim ? Yani korumayi yalniz ben kaldirmak istiyorum nasil yapabilirim
 
Son düzenleme:

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Kod:
Sub SayfaKorumayiKaldir()
Dim sayfa As Worksheet
Dim sifre As String
sifre = InputBox("Sayfa Korumalarını kaldırmak için Şifre Giriniz.", "Şifre Girin")
On Error Resume Next
For Each sayfa In Worksheets
    sayfa.Unprotect Password:=sifre
Next sayfa
If Err <> 0 Then
MsgBox "Yanlış ŞİFRE girdiniz , Sayfa Korumaları kaldırılmadı", vbCritical, "HATA!!!"
End If
On Error GoTo 0
End Sub
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağ olun, iyi çalışmalar.
 
Üst