Excel sayfasindaki butun sekmeleri tek seferde korumaya almak

Katılım
19 Eylül 2018
Mesajlar
12
Beğeniler
1
Excel Vers. ve Dili
OFFİCE 365
#1
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,110
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#2
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
Beğeniler
1
Excel Vers. ve Dili
OFFİCE 365
#3
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,110
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#4
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,110
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#6
Sağ olun, iyi çalışmalar.
 
Üst