Formülleri koruma

[muratgunay48]

Arkadaşlar, sayın hocalarım, tek sayfada yapabiliyorum sorun yok ama dosyamda 163 sayfa var.
Tüm çalışma kitabında sadece formül olan hücreler nasıl korumaya alınır.
Teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Sayfa koruması yöntemini deneyebilirsiniz.

 

[muratgunay48]

Sayfa koruması yöntemini deneyebilirsiniz.

Ama hocam o zaman tüm sayfa korunmuş olmaz mı?
Diğer alanlara değerler girilmesi lazım.

 

[HücrelereFısıldayanAdam]

Kitaptaki tüm sayfalarda, sadece formül içeren hücrelere, sayfa koruması ekler.
Şifreyi: 1234 yapar,
Şifreyi kaldırmak için "Gözden geçir" - "korumayı kaldır."

Sub FORMULLU_HUCRELERI_SIFREYLE_KORU_TUM_SAYFALAR()
    Dim ws As Worksheet
    Dim huc As Range
    Dim huc2 As Range

    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:="1234"

        ws.Cells.Locked = False

        On Error Resume Next
        Set huc = ws.Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0

        If Not huc Is Nothing Then
            For Each huc2 In huc
                huc2.Locked = True
            Next huc2
        End If
        ws.Protect Password:="1234"
        Set huc = Nothing
    Next ws
End Sub

 

[muratgunay48]

1- Kitaptaki tüm sayfalarda, sadece formül içeren hücrelere, sayfa koruması ekler.
Şifreyi: 1234 yapar,
Şifreyi kaldırmak için "Gözden geçir" - "korumayı kaldır."
2- Ne olur ne olmaz, bir kopya üzerinde çalıştırın.

Sub FORMULLU_HUCRELERI_SIFREYLE_KORU_TUM_SAYFALAR()
    Dim ws As Worksheet
    Dim huc As Range
    Dim huc2 As Range

    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:="1234"

        ws.Cells.Locked = False

        On Error Resume Next
        Set huc = ws.Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0

        If Not huc Is Nothing Then
            For Each huc2 In huc
                huc2.Locked = True
            Next huc2
        End If
        ws.Protect Password:="1234"
        Set huc = Nothing
    Next ws
End Sub

Hocam, olağanüstü. Çok ama çok teşekkür ederim. Emeğinize sağlık.

 

[Korhan Ayhan]

Arama sonuçları...

Arşiv Konuları