Formül Olan Hücreleri Bul ve Koru

[1Al2Ver]

Merhabalar,

Sayın N.Ziya Hiçdurmaz'ın kodu'ndaki "Not" ı kaldırıp, formüllü hücreleri tespit edebiliyorum (sarı renk ile)

Sub TEST()
Dim SAT, SUT As Byte
For SAT = 1 To 10
For SUT = 1 To 5
Cells(SAT, SUT).Interior.ColorIndex = xlNone
If Not Cells(SAT, SUT).HasFormula Then
Cells(SAT, SUT).Interior.ColorIndex = 6
End If
Next
Next
End Sub

A1:CA300 aralığındaki formüllü ve formülsüz hücrelerim var, bu hücreler farklı farklı renkler içermektedir.

İstediğim ;

1) Bir buton yardımıyla , "Sayfa Koruma" penceresini açarak, kod ile belirlenen formüllü hücreleri "Sayfa Koruma" mantığı ile korunmasını,

Formüllü hücreler kod ile tespit edilirken renk alması gerekmemektedir, şayet renk içerecekse,

2) İşlem bitince boyanan (sar&#305 formüllü hücrelerden rengin kalkmasını, arzuluyorum.

Bu işlemler gerçeklebilirse, bana inanılmaz bir zaman kazandıracak ve manuel veri girilmesi gereken bir hücreninde yanlışlıkla korunmasına da engel olacak,

İlgilenen arkadaşlarıma teşekkür ederim.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub FormulKoru()
'ActiveSheet.Unprotect "A"
Range("A1:CA300").Locked = False
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).Locked = True
ActiveSheet.Protect "A", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

NOT:Sayfa şifresi A

 

[1Al2Ver]

Aşağıdaki kodları deneyebilirmisiniz?

Sub FormulKoru()
'ActiveSheet.Unprotect "A"
Range("A1:CA300").Locked = False
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).Locked = True
ActiveSheet.Protect "A", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

NOT:Sayfa şifresi A

Sayın Recep İpek,

Çok Teşekkür ederim, ne kadar makbule geçti bilemezsiniz, elinize sağlık,

'ActiveSheet.Unprotect "A" bu satırı aktif edersem komple sayfayı korur sanırım ?

İyi bayramlar dileklerimle,

Saygılarımla.

 

[Recep İpek]

Önemli değil.Faydalı olduysam mutlu olurum.


'ActiveSheet.Unprotect "A" satırını aktif yaparsanız sayfa şifresini manuel olaral girmek zorunda kalmazsınız.

Yani tuşa bastığınızda şifreyi açar formüllü hücreleri kilitler ve tekrardan sayfayı şifreler.

Yeni bir formül eklemek istediğinizde manuel olarak sayfa şifresini açabilirsiniz.

 

[1Al2Ver]

Önemli değil.Faydalı olduysam mutlu olurum.


'ActiveSheet.Unprotect "A" satırını aktif yaparsanız sayfa şifresini manuel olaral girmek zorunda kalmazsınız.

Yani tuşa bastığınızda şifreyi açar formüllü hücreleri kilitler ve tekrardan sayfayı şifreler.

Yeni bir formül eklemek istediğinizde manuel olarak sayfa şifresini açabilirsiniz.

Recep bey, tekrar merhaba, söylemeyi unuttuğum bir ayrıntı var,

Bu işlem gerçekleştiğinde formüller de gizlenebilirse çok hoş olacak,

Teşekkür ederim.

 

[Recep İpek]

Kodlara aşağıdaki satırı ilave ediniz.

[LEFT]Sub FormulKoru()
'ActiveSheet.Unprotect "A"
Range("A1:CA300").Locked = False
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).Locked = True
[COLOR=red]Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
[/COLOR]ActiveSheet.Protect "A", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

[/LEFT]

 

[1Al2Ver]

Kodlara aşağıdaki satırı ilave ediniz.

[LEFT]Sub FormulKoru()
'ActiveSheet.Unprotect "A"
Range("A1:CA300").Locked = False
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).Locked = True
[COLOR=red]Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
[/COLOR]ActiveSheet.Protect "A", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

[/LEFT]

Sayın Recep İpek, teşekkür ederim,

Saygılarımla

 

[neo]

Merhaba...
sayın ; Recep İpek

bu şifreyi A1 Hücresine Girdiğimizde uygulanmasını saglamak için ne yapabiliriz a1 deki şifreyi sildiğimizde de kilitlenmesini sağlaya bilirmiyiz

saygı ve sevgilerimle

 

[Recep İpek]

Ekteki dosyayı inceleyiniz...

 

[neo]

Merhaba

sayın ; Recep İpek elinize sağlık çok teşekurederim

Saygı ve Sevgilerimle.......