Hücre koruması

Katılım
24 Mart 2019
Mesajlar
74
Excel Vers. ve Dili
2007 türkçe
Merhaba arkadaşlar, ben b1 hücresine =a1 yazdım. Şimdi şunu istiyorum. B1 hücresine hiçbir şekilde elle müdahele olmasın, a1 hücresine girilen veri b1 e geçsin ama b1 hücresine Manuel giriş yapılamasın.? Bunu örnek okarak verdim bir sayfaya komple uygulayacağım çünkü o sayfadaki sütunların hepsi verileri başka sayfalardan çekiyorlar. Bunu nasıl araştırmalıyım veya nasıl daha kolay olur? Önceliğim fonksiyondur olmazsa makro yazabiliriz.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.
-- Korumak istediğiniz sayfada formül içeren hücreleri (isterseniz sayfadaki tüm hücreler tabi) seçin,
-- seçtiğiniz hücrelerin birinin üzerinde fareyle sağ tıklayın,
-- "Hücreleri Biçimlendir" menüsünde en sağda yer alan "Koruma" kulakçığındaki "Kilitli" seçeneğinin işaretli olmasını sağlayın,
-- Sayfaya "SAYFA KORUMASI" uygulayın (isterseniz açmak için parola ekleyebilir, izin vereceğiniz işlemleri işaretleyebilirsiniz)
 
Katılım
24 Mart 2019
Mesajlar
74
Excel Vers. ve Dili
2007 türkçe
Merhaba.
-- Korumak istediğiniz sayfada formül içeren hücreleri (isterseniz sayfadaki tüm hücreler tabi) seçin,
-- seçtiğiniz hücrelerin birinin üzerinde fareyle sağ tıklayın,
-- "Hücreleri Biçimlendir" menüsünde en sağda yer alan "Koruma" kulakçığındaki "Kilitli" seçeneğinin işaretli olmasını sağlayın,
-- Sayfaya "SAYFA KORUMASI" uygulayın (isterseniz açmak için parola ekleyebilir, izin vereceğiniz işlemleri işaretleyebilirsiniz)
Hocam bunu biliyorum mevzu bu değil, kitli sayfalarda macro çalışmıyor. Tamam tıklama engeli oluyor çok iyi ama oraya başka formul de değişiklik yapamıyor
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Sorunuz Makro-VBA bölümünde sorulmamış, konu açılış mesajınızda belgenizde makro bulunduğundan da söz etmemişsiniz.

Kullandığınız makroların başına, sayfa korumasında verdiğiniz parolayı kullanarak korumanın kadırılması,
makroların sonunda da tekrar aynı parolayla sayfa koruması eklenmesine yönelik ilave yapmanız gerekecek demekki.

Forumda, "korumalı sayfada makro" gibi anahtar kelimelerle ARAMA yaparsanız sonuca ulaşabilirsiniz.
Forumda bu türden örnekler olduğunu biliyorum.
.
 
Katılım
24 Mart 2019
Mesajlar
74
Excel Vers. ve Dili
2007 türkçe
Sorunuz Makro-VBA bölümünde sorulmamış, konu açılış mesajınızda belgenizde makro bulunduğundan da söz etmemişsiniz.

Kullandığınız makroların başına, sayfa korumasında verdiğiniz parolayı kullanarak korumanın kadırılması,
makroların sonunda da tekrar aynı parolayla sayfa koruması eklenmesine yönelik ilave yapmanız gerekecek demekki.

Forumda, "korumalı sayfada makro" gibi anahtar kelimelerle ARAMA yaparsanız sonuca ulaşabilirsiniz.
Forumda bu türden örnekler olduğunu biliyorum.
.
Hocam ben verileri çekmekten bahsettim aslında makro demek istedim ama haklısınız yeterli bilgi vermediğim için üzgünüm. Bahsettiğiniz şekilde arama yapacağım teşekkür ederim
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Formüllü hücrelerinizi şu şekilde koruyabilirsiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
Target.Offset(, 1).Select: End If
End Sub
 
Katılım
24 Mart 2019
Mesajlar
74
Excel Vers. ve Dili
2007 türkçe
Formüllü hücrelerinizi şu şekilde koruyabilirsiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
Target.Offset(, 1).Select: End If
End Sub
Hocam teşekkür ederim, peki bu kodu genel olarak değil de sadece belirli hücrelere erişimi engellemek için nasıl kullanabilirim acaba?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde örnek kodu bir deneyiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a100:b100]) Is Nothing Then Exit Sub
If Target.HasFormula Then
Target.Offset(, 1).Select: End If
End Sub
 
Katılım
24 Mart 2019
Mesajlar
74
Excel Vers. ve Dili
2007 türkçe
Bu şekilde örnek kodu bir deneyiniz.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a100:b100]) Is Nothing Then Exit Sub
If Target.HasFormula Then
Target.Offset(, 1).Select: End If
End Sub
Hocam çalıştı çok teşekkür ederim ????️
 
Üst