- Katılım
- 17 Ekim 2017
- Mesajlar
- 110
- Excel Vers. ve Dili
- Microsoft Office 2013 Standard
- Altın Üyelik Bitiş Tarihi
- 28.04.2024
Merhaba Arkadaşlar,
Makro kullanarak toplu sayfa koruması yaptığım aşağıdaki kodu revize ederek otomatik filitre ve sıralama özelliğini aktif etmek istiyorum. Toplu şifreleme yaptığımda bu özellikler kapalı olarak geliyor. Bu konuda yardımcı olabilirseniz çok memnun olurum.
Option Explicit
Sub Sayfalari_Koru()
Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.Protect "12345"
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Sub Koruma_Kaldir()
Dim Parola As Variant, Sayfa As Worksheet
Parola = InputBox("Lütfen sayfa koruma şifresini giriniz!", "ŞİFRE GİRİŞİ")
If Parola = "" Or Parola = False Then
MsgBox "İşleminiz iptal edilmiştir!", vbExclamation
Exit Sub
End If
If Parola <> 12345 Then
MsgBox "Hatalı şifre girişi yaptınız!" & vbCr & "Lütfen daha sonra tekrar deneyiniz.", vbCritical
Exit Sub
Else
For Each Sayfa In Worksheets
Sayfa.Unprotect Parola
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
End Sub
Saygılarımla,
Makro kullanarak toplu sayfa koruması yaptığım aşağıdaki kodu revize ederek otomatik filitre ve sıralama özelliğini aktif etmek istiyorum. Toplu şifreleme yaptığımda bu özellikler kapalı olarak geliyor. Bu konuda yardımcı olabilirseniz çok memnun olurum.
Option Explicit
Sub Sayfalari_Koru()
Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.Protect "12345"
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Sub Koruma_Kaldir()
Dim Parola As Variant, Sayfa As Worksheet
Parola = InputBox("Lütfen sayfa koruma şifresini giriniz!", "ŞİFRE GİRİŞİ")
If Parola = "" Or Parola = False Then
MsgBox "İşleminiz iptal edilmiştir!", vbExclamation
Exit Sub
End If
If Parola <> 12345 Then
MsgBox "Hatalı şifre girişi yaptınız!" & vbCr & "Lütfen daha sonra tekrar deneyiniz.", vbCritical
Exit Sub
Else
For Each Sayfa In Worksheets
Sayfa.Unprotect Parola
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
End Sub
Saygılarımla,