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

mrtank' Alıntı:

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 "In dieser Zelle befindet sich eine Formel oder ein Verweis." & vbLf & vbLf & " Ein Entfernen ist nur in der Bearbeitungsleiste möglich !", vbOKOnly, "www.excel-lex.de.vu"
Application.OnKey "{del}", ""
Else
Application.OnKey "{del}"
End If
Else
Set oRange = Target.SpecialCells(xlCellTypeFormulas)
MsgBox "Es befinden sich Formeln oder Verweise im markierten Bereich." & vbLf & vbLf & " Ein Entfernen ist nur in der Bearbeitungsleiste möglich !", vbOKOnly, "www.excel-lex.de.vu"
Application.OnKey "{del}", ""
End If
Aufraeumen:
Application.EnableEvents = True
Exit Sub
Fehler:
Application.OnKey "{del}"
Resume Aufraeumen
End Sub

Genişletmek için tıklayın ...