Soru Sayfa Kilitli ise Diğer Sayfalarda aynı olsun

[bulentkars]

Arkadaşlar Merhaba,

Çalışma Kitabımda 3 sayfa var.
Sayfa isimleri;

Grup
320
329

Yapmak istediğim 329 sayfasından 320 veya Grup sayfasına gitmek istediğim zaman, 329 sayfanın A1 hücresi eğer Hücre Biçimlendir>Koruma> kilitli aktif ise gideceğim 329 ve grup sayfalarının A sutunlarının hücre biçimlerininde kilitli yapmak istiyorum. eğer kilit işaretli değilse aynı şekilde ilgili sayfaların A sutunları kilitsiz olacak.
Yardımcı Olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[AdemCan]

Merhaba, örnek kod.
329 sayfasının kod bölümüne ekleyiniz.

Private Sub Worksheet_Deactivate()
    With Range("A1")
        If .Locked = True Then
            Sheets("320").Range("A:D").Locked = True
            Sheets("Grup").Range("A:D").Locked = True
        Else
            Sheets("320").Range("A:D").Locked = False
            Sheets("Grup").Range("A:D").Locked = False
        End If
    End With
End Sub

 

[bulentkars]

Çok Teşekkür Ederim AdemCan Bey