Dolu olan hücreleri koruma altına alacak makro olabilir mi?

[kemal turan]

Merhaba üstadlar,
İçerisinde dolu olan hücreleri korumaya alacak (sildirmeyecek,değiştirmeyecek) ve bir butona bağlı bir kod ve şifre ile izin verecek makro yazılabilir mi.
Teşekkürler

 

[kemal turan]

Aşağıdaki kod çalışıyor fakat formül olan hücreler silinebiliyor.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Unprotect "123"
Cells.Locked = False
Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
ActiveSheet.Protect "123"
End Sub

 

[hımmmmmmmm]

slm

sayfa korumaya alınınca
b3:b5 hücrelerini ve varsa formülleri gizler...

Range("B3:B5").Locked = True
Range("B3:B5").FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.UnProtect

tüm korumayı kaldırır