Sayfada formülleri korumak için sayfayı kilitleme

[ASLAN7410]

Merhaba herkese hayırlı sahurlar.

Ekte gönderdiğim excel dosyasının Sayfa1'de aşağıdaki kod var, gayette iyi çalışıyor.

Benim yapmak istediğim formüllü hücrelere tıkladığımda ekrana mesaj geldiği gibi sayfayı kilitlesin.

Formülsüz hücreye tıkladığımda sayfanın korumasını kaldırsın istiyorum.

Yardımcı olur musunuz?
.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
MsgBox "Bu hücrede formül var, silmeyin ! . .", vbInformation, "A S L A N"
Cells(Target.Row, "B").Activate
End If
Next
End Sub

.

 

[Necdet]

Merhaba,

Böyle bir şeye neden gerek gördünüz?

1. Tüm hücrelerin korumasını kaldırın
2. F5 - Özel - Formüller - Tamam deyip tüm formüllü hücreler seçildikten sonra Koruma koyun
3. Sayfaya koruma koyun (düzenleme seçeneklerini belirleyebilirsiniz)

Bunları yapsanız bence yeterli.

 

[ASLAN7410]

Sayın Necdet Bey, ilginiz için çok teşekkür ediyorum.

Sizin dediğiniz bilgiler benim istediklerimi karşılamıyor.

Benim yapmak istediğim bilgide yardımcı olur musunuz?

 

[Necdet]

Neden karşılamıyor?
Merak ettim.

 

[ASLAN7410]

Sayın Necdet Bey, bu işlemi makro ile yapmak istiyorum.

 

[halilyor]

Merhaba herkese hayırlı sahurlar.

Ekte gönderdiğim excel dosyasının Sayfa1'de aşağıdaki kod var, gayette iyi çalışıyor.

Benim yapmak istediğim formüllü hücrelere tıkladığımda ekrana mesaj geldiği gibi sayfayı kilitlesin.

Formülsüz hücreye tıkladığımda sayfanın korumasını kaldırsın istiyorum.

Yardımcı olur musunuz?
.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
MsgBox "Bu hücrede formül var, silmeyin ! . .", vbInformation, "A S L A N"
Cells(Target.Row, "B").Activate
End If
Next
End Sub

.

Linkte gerekli bilgi var...
https://support.office.com/tr-tr/ar...ini-açma-75481b72-db8a-4267-8c43-042a5f2cd93a

 

[turist]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
ActiveSheet.Protect
MsgBox "Bu hücrede formül var, silmeyin ! . .", vbInformation, "A S L A N"
Exit For
Cells(Target.Row, "B").Activate
Else
ActiveSheet.Unprotect
End If
Next
End Sub

 

[ASLAN7410]

Sayın turist, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Kod tam istediğim gibi çalışıyor.

Ayrıca ilgilenen herkese çok teşekkür ediyorum.

Hayırlı sabahlar diliyorum.