Soru Tüm hücreleri kilitlerken bazı hücrelerde biçimlendirme izni vermek

[seckinb]

Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "sb123"
Next
Worksheets("EPIKRIZ").Unprotect "sb123"
Worksheets("List").Visible = xlSheetHidden

MsgBox "Tüm sayfalar korundu."

bu kod ile tüm hücreleri koruyorum.
Lakin hücrelerden 1 tanesinde aktif şekilde biçimlendirme yapmam gerekiyor.

bunun iznini nasıl verebilirim??

Worksheets("recete").Range("B12").Font.ColorIndex = 1

With Worksheets("recete").Range("B12")
    .Font.Size = 14
    .Font.Bold = True
    .Font.Underline = xlUnderlineStyleSingle
End With

kilitliyken hata aldığım kodlar bunlar.


teşekkürler

 

[Muzaffer Ali]

Merhaba.
Korumayı kaldırın değişklikleri yaptıktan sonra yeniden koruma yapın.
Aşağıdaki kodlar bunu yapıyor.

Worksheets("recete").Unprotect "sb123"
Worksheets("recete").Range("B12").Font.ColorIndex = 1

With Worksheets("recete").Range("B12")
    .Font.Size = 14
    .Font.Bold = True
    .Font.Underline = xlUnderlineStyleSingle
End With
Worksheets("recete").protect "sb123"

 

[seckinb]

Merhaba.
Korumayı kaldırın değişklikleri yaptıktan sonra yeniden koruma yapın.
Aşağıdaki kodlar bunu yapıyor.

Worksheets("recete").Unprotect "sb123"
Worksheets("recete").Range("B12").Font.ColorIndex = 1

With Worksheets("recete").Range("B12")
    .Font.Size = 14
    .Font.Bold = True
    .Font.Underline = xlUnderlineStyleSingle
End With
Worksheets("recete").protect "sb123"

tam olarak anlatamadım,

ben sadece "reçete" isimli sayfayı "hücreleri biçimlendir" seçili şekilde korumam gerekiyor. Bu şekilde tüm kodlarım çalışıyor.

 

[Muzaffer Ali]

Yukarıda hata aldığınız kodları yazmışsınız.
Kodları benim önerdiğim şekilde değiştirdiğinizde hata almazsınız.

Önerdiğim çözümü denediniz mi?

 

[seckinb]

Yukarıda hata aldığınız kodları yazmışsınız.
Kodları benim önerdiğim şekilde değiştirdiğinizde hata almazsınız.

Önerdiğim çözümü denediniz mi?

Kendimi tam ifade edemeddim. Kusura bakmayın.

Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "sb123"
Next
Worksheets("EPIKRIZ").Unprotect "sb123"
Worksheets("List").Visible = xlSheetHidden

MsgBox "Tüm sayfalar korundu."

bu tüm sayfaları koruyan kodun içerisine

sadece

Worksheets("reçete").protect "sb123"

ile
AllowFormattingCellsOptional
VariantTrue allows the user to format any cell on a protected worksheet. The default value is False.

kodunu eklemek istiyorum.

 

[seckinb]

Sub Tumsayfalarikoru()
'Tüm sayfaları korumak için;
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "sb123"
Next
Worksheets("EPIKRIZ").Unprotect "sb123"
Worksheets("Recete").Unprotect "sb123"
Worksheets("Recete").Protect Password:="sb123", AllowFormattingCells:=True
    
Worksheets("List").Visible = xlSheetHidden

MsgBox "Tüm sayfalar korundu."
End Sub

Worksheets("Recete").Protect Password:="sb123", AllowFormattingCells:=True

şu şekilde halloldu, kusura bakmayın.