Sayfa Koruması Şifresinin Kendiliğinden Girilmesi

[betoncu]

Kodların bazıları sayfa koruması aktifken çalışmayabilir. O yuzden problem yaratan kodların başına ActiveSheet.Unprotect ve sonuna da ActiveSheet.protect satırlarını eklemeniz gerekir.

Bu uygulamayı şifresiz korumalı sayfalar için yaptığımızda bir problem olmuyor. Fakat şifre korumalı sayfalarda uyguladığımız zaman ekran koruma kaldırma şifresini girmemiz için bir menü geliyor. Bu menünün ekrana gelmeden şifrenin girilmesini sağlayabilirmiyiz?

Yardımlarınızı bekliyorum.

Aşağıda bu uygulamaya örnek kod bulunmaktadır:


Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect


Dim Veri As Range, Sutun

If Intersect(Target, Range("Q2:Q3")) Is Nothing Then Exit Sub

Sutun = Cells(3, Columns.Count).End(1).Column

For Each Veri In Range("X3:" & Cells(3, Sutun + 5).Address(0, 0))
With Cells(6, Veri.Column).Resize(9, 1)
Veri.Font.ColorIndex = 0
Select Case Veri.Text
Case "Pazartesi": .Interior.ColorIndex = 38 'Gül
Case "Salı": .Interior.ColorIndex = 36 'Açık Sarı
Case "Çarşamba": .Interior.ColorIndex = 8 'Turkuaz
Case "Perşembe": .Interior.ColorIndex = 43 'Limon Rengi Yeşil
Case "Cuma": .Interior.ColorIndex = 39 'Açık Eflatun
Case "Cumartesi": .Interior.ColorIndex = 45 'Açık Turuncu
Case "Pazar": .Interior.ColorIndex = 15: Veri.Font.ColorIndex = 3 'Gri %25
Case Else: .Interior.ColorIndex = xlNone
End Select
End With


Next
Application.Calculate


ActiveSheet.Protect

End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyin.

12345 yerine kendi koruma şifrenizi yazınız.

ActiveSheet.Unprotect "12345"

 

[betoncu]

Korhan bey teşekkür ederim..