Sayfa Koruma Şifresini Sayfa ve Hücreye Atama

Believing · 20 Eki 2020

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:

İndirmek 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Ü

Feyzullah · 20 Eki 2020

Merhaba, aşağıdaki kodu deneyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(19 satır)

Ömer BARAN · 20 Eki 2020

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

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

.

Believing · 20 Eki 2020

Ömer BARAN' Alıntı:
@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 · 20 Eki 2020

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 · 21 Eki 2020

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

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 · 21 Eki 2020

Believing' Alıntı:
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.

	Korumalı Sayfanın Sayfa Korumasının Istemsiz Kalkması Akif59 16 Mar 2022 Makro Soruları
	Pdf yazdırmada sayfa ve kalite ayarı Ömer BARAN 24 Ocak 2022 Makro Soruları
	Korumalı Sayfa Üzerinde İşlem Yapma Ömer BARAN 30 May 2019 Makro Soruları
	Sayfayi korumaya aldigimda macro calismiyor mtecimer 24 Eyl 2020 Makro Soruları
	Makronun korumalı sayfada verdiği hata ErolU 20 Mar 2021 Makro Soruları