Sayfa Koruma Şifresini Sayfa ve Hücreye Atama

[Believing]

Sayın uzman arkadaşlar,

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

Bu kodu görmek için giriş yapmanız gerekmektedir (19 satır). Giriş Yap

Sayfa koruma şifresini SETTING isimli sayfanın A1 hücresinden alması için yukarıdaki kodları nasıl revize etmeliyim.
Uzman arkadaşların çok değerli yardımlarını rica ediyorum.

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

 

[Feyzullah]

Merhaba, aşağıdaki kodu deneyin.

Bu kodu görmek için giriş yapmanız gerekmektedir (19 satır). Giriş Yap

 

[Ömer BARAN]

@Feyzullah Bey, çözüm önerisinde bulunmuş bile.

Foruma hoşgeldiniz Sayın ÖZÜZÜMCÜ.

.

 

[Believing]

@Feyzullah Bey, çözüm önerisinde bulunmuş bile.

Foruma hoşgeldiniz Sayın ÖZÜZÜMCÜ.

.

Teşekkür ederim Ömer bey,
Siteniz hayırlı ve uğurlu olsun.

 

[Ömer BARAN]

Kıymet bilen arkadaşlarla birlikte buradayız artık.
Güzel dilekleriniz için sağ olunuz.

Forumda, mümkün olduğunca sık ve uzun süreli çevrimişi olmanız,
çevrenizdeki Ms.Excel kullanıcılarını forumumuzdan haberdar etmeniz ricasıyla ve
tüm sosyal medya kanallarında forumumuzdan bahisle, link verebileceğinizi de hatırlatarak,
iyi çalışmalar dilerim.

.

 

[Believing]

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

Sayın Feyzullah bey,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

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

 

[Feyzullah]

Sayın Feyzullah bey,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

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

Helal olsun, İyi çalışmalar.