B

Çözüldü Sayfa Koruma Şifresini Sayfa ve Hücreye Atama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
B

Believing

Yıllık Site Üyesi
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.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)
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Ü
 
Tarihe göre sırala Oylamaya göre sırala
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.

.
 
Oyla 0 Olumsuz oyla
Feyzullah' Alıntı:
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
Genişletmek için tıklayın ...
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Ü
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst