Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: orhanacan - 01 Nisan 2011, 22:52:13

Başlık: Çalışma Kitabında Tüm Formüllere Koruma (Yardım)
Gönderen: orhanacan - 01 Nisan 2011, 22:52:13

Hocam, hayırlı akşamlar... Hocam, merak ettiğim konu, sayfalarda hücre koruması ile formüller korunuyor. Acaba..! çalışma kitabında bulunan tüm sayfalardaki formüllerin korunması için bir kodlama yazabilir miyiz? Tabii... hücre girişleri ve sayfa korumalarında hata vermeyecek, her defasında hücre girişinde ikaz vermeyecek sadece formül değiştirmeye, silmeye ve bozulmasına karşı tüm çalışma kitabında koruma yapabilir miyiz? Bu konuda nasıl bir kod yazılabilir ? saygılar...

Başlık: Ynt: Çalışma Kitabında Tüm Formüllere Koruma (Yardım)
Gönderen: Bülent Öztürk - 02 Nisan 2011, 08:26:38

Alıntı yapılan: orhanacan - 01 Nisan 2011, 22:52:13

hücre girişleri ve sayfa korumalarında hata vermeyecek, her defasında hücre girişinde ikaz vermeyecek sadece formül değiştirmeye, silmeye ve bozulmasına karşı tüm çalışma kitabında koruma yapabilir miyiz?

Orhan bey, daha ayrıntılı anlatabilir misiniz?
"İkaz vermeyecek" derken?

Başlık: Ynt: Çalışma Kitabında Tüm Formüllere Koruma (Yardım)
Gönderen: 1Al2Ver - 02 Nisan 2011, 20:12:57

Merhaba,

Yanlış anlamadım ise;

Kodu bir butona atayın, kod A1:AR80 aralığındaki formül içeren tüm hücreleri koruyor, (bu aralığıda kendinize göre düzenleyebilirsiniz),

"123" yazan yerlere kendi koruma şifrenizi yazabilirsiniz.

Sub FormulKoru()
ActiveSheet.Unprotect "123"
Range("A1:AR80").Locked = False
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Sayfalar Korumaya Alındı !"
End Sub

Başlık: Ynt: Çalışma Kitabında Tüm Formüllere Koruma (Yardım)
Gönderen: orhanacan - 02 Nisan 2011, 23:45:48

Hocam, teşekkür ederim. Çözüm sunduğunuz kodu kitap açılışına ekledim ve açılışta tüm formülleri koruyor. Sağlıcakla kalın...

Başlık: Ynt: Çalışma Kitabında Tüm Formüllere Koruma (Yardım)
Gönderen: 1Al2Ver - 03 Nisan 2011, 00:25:41

Alıntı yapılan: orhanacan - 02 Nisan 2011, 23:45:48

Hocam, teşekkür ederim. Çözüm sunduğunuz kodu kitap açılışına ekledim ve açılışta tüm formülleri koruyor. Sağlıcakla kalın...

Teşekkür ederim, işinize yaradığına memnun oldum.