Çalışma Kitabındaki Formüllü Hücreleri Engelleme

[mrtank50]

Arkadaşlar merhaba

100 çalışma sayfası olan bir çalışma kitabım var.

Her sayfada 5-10 arası formüllü hücre bulunuyor.

Bu kitabı 7-8 kişi kullandığı için sürekli formüllerde bozulma oluyor.


Tüm çalışma kitabını kapsayacak bir şekilde formüllerin bozulmasını engelleyebilecek bir kod var mı?
Sil değiştir vs. olmasını istemiyorum.

Veya şifre girildiğinde değişme mümkün mü.

Şöyle bir kod buldum gayet güzel ama sadece çalışma sayfasına etki ediyor. Formüllü hücrenin üzerine geldiğinde msgbox ile uyarı veriyor lakin gene de uyarı sonrası değiştirme işi oluyor.

Sayfanın kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oRange As Range
Application.EnableEvents = False
On Error GoTo Fehler:
If Target.Cells.Count = 1 Then
If Target.HasFormula Then
MsgBox "FORMÜLLERİ BOZMA." & vbLf & vbLf & " FORMÜLLERİ BOZMA !", vbOKOnly, "UYARI"
Application.OnKey "{del}", ""
Else
Application.OnKey "{del}"
End If
Else
Set oRange = Target.SpecialCells(xlCellTypeFormulas)
MsgBox "FORMÜLLERİ BOZMA" & vbLf & vbLf & " FORMÜLLERİ BOZMA !", vbOKOnly, "UYARI"
Application.OnKey "{del}", ""
End If
Aufraeumen:
Application.EnableEvents = True
Exit Sub
Fehler:
Application.OnKey "{del}"
Resume Aufraeumen
End Sub

 

[Leoncio]

Formüllü hücreleri koruma ile koruyun bence. F5 - özel - formülleri seçerek formüllü hücreleri seçebilirsiniz.

 

[mancubus]

?

Sub xlTR_200294()

    Dim sh As Worksheet
    
    For Each sh In ActiveWorkbook.Sheets
        With sh
            .Unprotect
            .Cells.Locked = False
            .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
            .Protect "şifre"
        End With
    Next sh

End Sub

 

[Leoncio]

Alternatif olarak; Çalışma sayfasının kod sayfasına aşağıdaki kodu yapıştırdığınız takdirde. Formüllü hücrelere gidiş engellenecektir.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.HasFormula Then Target.Offset(0, 1).Select
End Sub