Korumalı sayfada köprüleri etkin kılma kod yardımı

[Believing]

Sayın uzman arkadaşlar,

Aşağıdaki kod ile sayfaları koruyor veya koruma kilidini kaldırıyorum.
İki farklı butona atanan kodlar alıntıdır.

Sub Sayfa_Koru()
    For Each syf In Worksheets
        syf.Protect Sheets("SETTING").Range("A1"), DrawingObjects:=True, Contents:=True, Scenarios:=True
        syf.EnableSelection = xlNoSelection
    Next
    MsgBox "Tüm sayfalar korumaya alındı.", vbInformation, "İŞLEM SONUCU"
    End Sub
  
    Sub Koruma_Ac()
    Sifre = Sheets("SETTING").Range("A1")
    If Sifre = "" Then Exit Sub
'    If Sifre = "12345" Then
    For Each syf In Worksheets
        syf.Unprotect Sifre
    Next
'    Else:
'    MsgBox "Yanlış şifre girdiniz.", vbCritical, "UYARI"
'    End If
    End Sub

Sayfa koruma şifresini aktif ettiğimde sayfalar arasındaki köprüler çalışmamaktadır.
Köprüleri korumalı sayfalarda çalıştırmak için mevcut kodları nasıl revize etmeliyim.
Uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Saban Sertkaya]

Uzman değiliz ama, aşağıdaki şekilde deneyin.

syf.EnableSelection = xlNoSelection satırını
syf.EnableSelection = xlNoRestrictions olarak değiştirin.

Böylece sayfaya kilit koyulurken, "kilitli hücreleri seç" seçeneği aktif edilmiş olur. Yani linkin bulunduğu hücreye tıklayabilirsiniz.

Kolay gelsin.

 

[Believing]

Sayın Şaban bey,

Çözüm öneriniz için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Saban Sertkaya]

Amin cümlemizden inşallah.