Sayfaları koru

[polis-53]

Merhaba arkadaşlar elimdi 50 sayfaya yakın bir excel çalışma dosyam var ben bu dosyada tüm sayfaları seçim formullü hücreleri korumak istiyorum yapmaya çalıştım fakat beceremedim yardımcı olursanız çok sevinirim.

 

[Vedat Özer]

Selamlar,

Aşagıdaki kodu çalışma kitabının "ThisWorkbook" bölümüne yapıştırın,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.HasFormula Then
Application.OnKey "{del}", ""
Application.OnKey "{BACKSPACE}", ""
Else
Application.OnKey "{del}"
Application.OnKey "{BACKSPACE}"
End If
End Sub

Kodlar alıntıdır.

 

[polis-53]

Denedim olmadı Vedat bey

 

[polis-53]

örnek dosya ekledim

 

[Vedat Özer]

Selamlar,


Örnek dosyayı inceleyin.

 

[polis-53]

tekrar merhaba olmadı galiba benim istediğim excel in bul ve seç menüsünden özel git den formulleri seçtiğim zaman tum sayfadaki formüllü hücreleri koruyacak