Excelde Formülleri Gizlemek Ve Korumak

Bu konuyu okuyanlar

Microsoft'

Öğrenci
Katılım
12 Temmuz 2010
Mesajlar
10
Reaksiyon puanı
0
Puanları
0
Özellikle, birden fazla kişinin kullandığı Excel tabloları ve çok sayıda formül içeren tablolarda, formüllerinizin başkaları tarafından görülmesi veya istemeden de olsa değiştirilmesi sorun yaratabilir.

Excel çalışma tablolarınızdaki formülleri koruma altına alarak değiştirilmelerini veya silinmelerini önleyebilirsiniz.

2003.png

1) Öncelikle tüm hücreleri seçip, sağ tık ile hücreleri biçimlendir (format cells) seçeneği seçilir.

2) Açılan pencerede Koruma (Protection) sekmesini seçerek buradaki “kilitli”(Lock) kutucuğundaki işaret kaldırılır.

3) formülünüzün bulunduğu hücreye giderek sağ tık ile ile hücreleri biçimlendir (format cells) seçeneği seçilir.

4) Açılan pencerede Koruma (Protection) sekmesini seçerek buradaki “kilitli”(Lock) ve “Gizli”(Hide) kutucuklarından istediğiniz kutucuğa işaret koyulur.

5) Son olarak, Araçlar(Tools) menüsünden Koruma (Protection) seçeneği seçilir ve sayfayı koru (Protect sheet) seçeneği seçilir. (Burada istenirse şifre opsiyonu da bulunmaktadır)


Eğer tablonuzda çok sayıda formül var ise tek tek gidip tüm formül hücrelerini bulmak ve kilitlemek veya gizlemek oldukça uzun ve yorucu bir işlem olacaktır. Bu durumu engellemek ve tüm formül hücrelerini bir seferde koruma altına almak için;


Yukarıdaki 1. madde uygulandıktan sonra, Düzen(Edit) menüsünden Git(Go To) seçeneği seçilir. Açılan sayfada özel (special) seçeneği seçilerek açılan pencerede formüller (formula) grubu işaretlenir. Bu grubun altın bulunan 4 maddeninde işaretli olmasına dikkat edilerek Tamam (Ok) butonuna basılır. Bu işlem yapıldığında, sayfadaki tüm formül hücrelerinin otomatik olarak seçildiğini görebilirsiniz. Seçili hücrelerden herhangi birinin üzerinde sağ tık ile hücreleri biçimlendir (format cells) seçeneği seçilerek Koruma (Protection) sekmesinden “kilitli”(Lock) ve “Gizli”(Hide) kutularından istenenler işaretlenebilir.
 

_Cheff_06_

Öğrenci
Katılım
23 Eylül 2017
Mesajlar
8
Reaksiyon puanı
0
Puanları
1
Yaş
54
Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [M279]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[B3:B29,B31:B36].Interior.Color = 12611584

ElseIf Target > 500 Then

[B3:B29,B31:B36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[B3:B29,B31:B36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[B3:B29,B31:B36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[B3:B29,B31:B36].Interior.Color = 13382655

ElseIf Target > -750 Then

[B3:B29,B31:B36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [B36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[C3:C29,C31:C36].Interior.Color = 12611584

ElseIf Target > 500 Then

[C3:C29,C31:C36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[C3:C29,C31:C36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[C3:C29,C31:C36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[C3:C29,C31:C36].Interior.Color = 13382655

ElseIf Target > -750 Then

[C3:C29,C31:C36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [C36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[D3:D29,D31:D36].Interior.Color = 12611584

ElseIf Target > 500 Then

[D3:D29,D31:D36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D3:D29,D31:D36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D3:D29,D31:D36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D3:D29,D31:D36].Interior.Color = 13382655

ElseIf Target > -750 Then

[D3:D29,D31:D36].Interior.Color = vbRed

End If

End If

End If

End Sub
 

Ekli dosyalar

  • vba.png
    vba.png
    102.4 KB · Görüntüleme: 464
Üst