Note: The other languages of the website are Google-translated. Back to English

Excel'deki başka bir hücredeki değerlere göre hücreleri nasıl kilitleyebilir veya kilidini açabilirim?

Bazı durumlarda, başka bir hücredeki değerlere bağlı olarak hücreleri kilitlemeniz veya kilidini açmanız gerekebilir. Örneğin, A1 hücresi “Kabul ediliyor” değerini içeriyorsa, B4: B1 aralığının kilidinin açılması gerekir; ve A1 hücresi "Reddetme" değerini içeriyorsa kilitlenecektir. Bunu başarmak için nasıl yapabilirsiniz? Bu makale size yardımcı olabilir.

VBA kodu ile başka bir hücredeki değerlere göre hücreleri kilitleyin veya kilidini açın


VBA kodu ile başka bir hücredeki değerlere göre hücreleri kilitleyin veya kilidini açın

Aşağıdaki VBA kodu, Excel'deki başka bir hücredeki değere göre hücreleri kilitlemenize veya kilidini açmanıza yardımcı olabilir.

1. Sayfa sekmesine sağ tıklayın (başka bir hücredeki değerlere göre kilitlemeniz veya kilidini açmanız gereken hücrelerin bulunduğu sayfa) ve Kodu Görüntüle sağ tıklama menüsünden.

2. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Başka bir hücredeki değerlere göre hücreleri kilitleyin veya kilidini açın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, A1 hücresine "Kabul" değerini girdiğinizde, B1: B4 aralığının kilidi açılır.

A1 hücresine "Reddediliyor" değeri girerken, belirtilen aralık B1: B4 otomatik olarak kilitlenir.


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (52)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değişken bir hücreyi nasıl kilitleyebilir/kilidini açabilir, örneğin hücre [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))] olduğunda
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çözemediğim basit bir VBA komutu istiyorum lütfen yardım edin
A1 hücresi Balnk ise, Hücre A2 kilitlenir ve Hücre A1 herhangi bir Değer içeriyorsa, Hücre A2'nin kilidi açılır
Benzer şekilde, A2 hücresi boşsa, Hücre A3 kilitlenir ve Hücre A2 herhangi bir değer içeriyorsa, Hücre A3'ün kilidi açılır
ve benzeri, sayfanın herhangi bir bölümünde gereksinime göre çok sayıda hücre.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bunu başarmaya çalışıyorum, ancak sayfa korumalıysa VBA'nın Range sınıfının Locked özelliğini ayarlayamadığına dair bir hata alıyorum. Sayfanın korumasının kaldırılması, hücrenin kilitlenmesini geçersiz kılacaktır. Bu nasıl aşılır? Herhangi bir yardım için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
çözdün mü bende de aynı sorun var
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili not,
Lütfen aşağıdaki VBA kodunu deneyin.

Özel Alt Çalışma Sayfası_Aktivat ()
ActiveSheet.ProtectContents Değilse O Zaman
Aralık("A1").Kilitli = Yanlış
Aralık("B1:B4").Kilitli = Yanlış
Eğer son
End Sub
Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Aralık olarak xRg, Aralık olarak xRgA olarak Dim
On Error Resume Next
Application.EnableEvents = Yanlış
xRg = Aralık ("B1:B4") olarak ayarla
xRgA = Aralık ("A1") olarak ayarla
If Intersect(Target, xRg).Adres <> Hedef.Adres _
Veya xRgA = "Kabul Ediliyor" Sonra
Application.EnableEvents = True
Exit Sub
ElseIf ActiveSheet.ProtectContents _
Ve Kesiştir(Hedef, xRg) = Hedef _
Ve xRgA.Value = "Reddediyor" Sonra
xRgA.Seç
Eğer son
Application.EnableEvents = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma kitabındaki arabirim satırını kullanmak isteyeceksiniz, böylece dosyayı açtığınızda sayfaları korur, ancak yine de makroların değişiklik yapmasına izin verir;

Private Sub Workbook_Open() 'Bu, "ThisWorkbook" a gider

Worksheets("Sipariş Aracı").Protect Password:="Pwd", UserInterFaceOnly:=True

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Karınca,
Aşağıdaki VBA kodu, bu sorunu çözmenize yardımcı olabilir. Yorumun için teşekkür ederim.

Özel Alt Çalışma Sayfası_Aktivat ()
ActiveSheet.ProtectContents Değilse O Zaman
Aralık("A1").Kilitli = Yanlış
Aralık("B1:B4").Kilitli = Yanlış
Eğer son
End Sub
Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Aralık olarak xRg, Aralık olarak xRgA olarak Dim
On Error Resume Next
Application.EnableEvents = Yanlış
xRg = Aralık ("B1:B4") olarak ayarla
xRgA = Aralık ("A1") olarak ayarla
If Intersect(Target, xRg).Adres <> Hedef.Adres _
Veya xRgA = "Kabul Ediliyor" Sonra
Application.EnableEvents = True
Exit Sub
ElseIf ActiveSheet.ProtectContents _
Ve Kesiştir(Hedef, xRg) = Hedef _
Ve xRgA.Value = "Reddediyor" Sonra
xRgA.Seç
Eğer son
Application.EnableEvents = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Bu VBA'nın bir hücre grubunu kilitlemesi/buna dayanarak diğerinin kilidini açması mümkün mü? Örneğin, Aralık B1:B4'ün kilidi açıldı ve "kabul etmek" için C1:C4 kilitlendi ve ardından B1:B4 kilitlendi ve "reddetmek" için C1:C4'ün kilidi açıldı mı?


Teşekkürler,
Hristiyan
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Hristiyan,
Çalışma sayfanız korunuyor mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
lütfen biri bana aşağıdaki konularda yardımcı olabilir mi?
Bir sayfaya öğrencinin resimlerini eklemek istiyorum, diğer sayfada isimlerine göre görünüyor
Kullanıcılara yardımcı olacak bir seyir düzlemi oluşturmak için
Bir kullanıcıya belirli bir sayfa(lar) atamak için
Çalışma kitabı için bir arayüz oluşturmak için
Giriş sayfası oluşturmak için
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili aslan,
Excel hakkında herhangi bir sorunuz varsa, lütfen forumumuza göndermekten çekinmeyin: https://www.extendoffice.com/forum.html.
Excel uzmanımızdan Excel hakkında daha fazla destek alacaksınız.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Kodunuzu denedim ve biraz düzenledim, ancak burada neyi yanlış yaptığımı çözemiyorum?

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Eğer Aralık("A40") <> "" Sonra
Aralık("D40:E40").Kilitli = Yanlış
ElseIf Range("A40") = "" Sonra
Aralık("D40:E40").Kilitli = Doğru
Eğer son
End Sub


Benim düşüncem, içinde hiçbir şey olmamasıydı (A40). Sonra VBA tarafından kilitlenmek istiyorum. A40 bir şey içeriyorsa, kilidinin açılmasını istiyorum. Umarım bunun anlamını görebilirsin.


Saygılar Kristoffer
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Kodunuzda yanlış bir şey yok. Benim için iyi çalışıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba. Ben de bu kodu çalıştıramıyorum. Kesinlikle hiçbir şey yapmıyor. Sanki kod orada bile değil mi? VBA'da çok yeniyim ve bu konuda temel bir anlayışa sahibim. Bu kod olduğu gibi mi çalıştırılıyor, yoksa çalışması için ona eklenmiş şeyler olması mı gerekiyor? Veya bir Makro'ya dönüştü (ki nedenini gerçekten anlamıyorum çünkü bu, benim anladığım kadarıyla talimatların bir kaydı)
Bu yorum sitedeki moderatör tarafından en aza indirildi
E1, E2, E3 ...... HÜCRESİNİ B1, B2, B3... ..............SIRASIYLA.

PEŞİN TEŞEKKÜRLER
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi gün
Lütfen aşağıdaki VBA betiğini deneyin.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Target.Count = 1 ise
Eğer Target.Address = Range("A1").Address Ve Target.Value = "A" ise
Aralık("B1").Kilitli = Doğru
ElseIf Target.Address = Range("A2").Address And Target.Value = "A" O zaman
Aralık("B2").Kilitli = Doğru
ElseIf Target.Address = Range("A3").Address And Target.Value = "A" O zaman
Aralık("B3").Kilitli = Doğru
Eğer son
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения об ошибке, ячейка, которая должна быть заблокирована - просто не блокируется, остается активной. Ne kadar çok insan var?

Вот код, который я использовала:

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Target.Coun t=1 ise O zaman
Target.Address = Range("C9").Address And Target.Value = "согласно плану" ise, O zaman
Aralık("C10").Kilitli = Doğru
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba hayalet
Üzgünüm, ne demek istediğinizi tam olarak anlamadım. Anlaşılır olması için lütfen verilerinizi ve istediğiniz sonuçları içeren bir örnek dosya veya ekran görüntüsü ekleyin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! biraz tavsiyeye ihtiyacım var.
Başka bir hücrede bir koşulu sağlamadığı sürece bir hücrenin güncellenmesine izin vermemenin bir yolu var mı?
Örnek: A hücresi güncellenmezse, B hücresinin değerini tamamlamak için değiştirmeme izin vermez.

Geribildirimi takdir edin.
Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Margie,
Lütfen VBA kodunun altında deneyin.

Dim PreVal As String
NextVal As String
Özel Alt Çalışma Sayfası_Aktivat ()
ÖnDeğer = Aralık("A1")
NextVal = Aralık("A1")
End Sub
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Eğer (Target.Count = 1) Ve (Target.Address = "$A$1") Sonra
NextVal = Aralık("A1")
Eğer son
End Sub
Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Target.Count = 1 ise
Target.Address = "$A$1" ise
ÖnDeğer = Aralık("A1")
ElseIf (Target.Address = "$B$1") Sonra
PreVal = NextVal ise
Application.EnableEvents = Yanlış
Aralık("A1").Seçin
Application.EnableEvents = True
Eğer son
Eğer son
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
biri bunu düzeltebilir mi lütfen>>>

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
I = 7 için 100 için
Range("Hücreler(D, i)") = "Ödünç" ise
Range("Hücreler(V, i):Hücreler(X, i)").Kilitli = Doğru
ElseIf Range("Cells(D, i)") = "Tasarruf" Sonra
Range("Hücreler(Q, i):Hücreler(U, i)").Kilitli = Doğru
Range("Hücreler(W, i):Hücreler(X, i)").Kilitli = Doğru
ElseIf Range("Cells(D, i)") = "ShareCap" Sonra
Range("Hücreler(Q, i):Hücreler(U, i)").Kilitli = Doğru
Range("Hücreler(V, i)").Kilitli = Doğru
Eğer son
I Sonraki
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! Biri bana yardım edebilir mi? Bir hücreyi kilitlemem/dondurmam gerekiyor. Bu hücre başka bir hücreye bağlıdır ve her dakika değişen bir değere sahiptir. Benim yapmam gereken değeri belli bir dakika/saat tutmak. Bunu kopyalayıp bir değer olarak yapıştırmadan nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Mira,
Maalesef bu konuda yardımcı olamam, sorunuzu forumumuza gönderebilirsiniz: https://www.extendoffice.com/forum.html uzmanımızdan daha fazla Excel desteği almak için.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Bu konuda gerçekten yeniyim.
Excel'de bir faturalandırma sistemini bir araya getirmeye çalışıyorum.
3 yaprak oluşturdum.
1. Fatura şablonu (Fatura) - Temsilcilerime haftalık olarak gönderilen genel bir fatura.

2. Tam olarak bir veri sayfası (Veri sayfası) - faturanın şirket adı adresini vb. okuyabileceği yer, böylece herhangi bir değişiklik olursa fatura otomatik olarak güncellenecektir.

3. Tam olarak bir takvim sekmesi (Takvim 2018) - bu, fatura şablonunda atıfta bulunulur ve ilgili tarihi ve fatura numarasını gerçek faturalara koyar.

Yapmak istediğim şey.
Takvim sekmesi ana sayfam olurdu, her hafta için "Etkin" ve "Kapalı" seçenekleriyle bir durum açılır hücresi ekledim. İlgili hücre "Kapalı" olarak ayarlanmışsa, "Fatura" sekmesinin tamamını Kilitlemek istiyorum.

Umarım ne yapmaya çalıştığımı anlamışsınızdır.
Şimdiden teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Ando Veres.
Aşağıdaki VBA kodu size yardımcı olabilir. Lütfen kodu, Takvim 2018 değişiklik A1'in açılır hücrenize göre sayfa kodu penceresine yerleştirin. Teşekkür ederim.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Aralık olarak Dim xRg
On Error Resume Next
xRg'yi ayarla = Kesiştir(Hedef, Aralık("A1"))
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
If Target.Validation.Type >= 0 O zaman
Target.Value = "Kapalı" ise
Sheets("Veri Sayfası").Protect
ElseIf xRg.Value = "Etkin" O zaman
Sheets("Veri Sayfası").Korumayı Kaldır
Eğer son
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel şablonunda depo stok yönetimi hazırlıyorum.Stokları teslim etmek için kapı geçiş kartı vermem gerekiyor.Her kapı geçişine istiyorum,ilgili veriler günlük stok alım sayfasında güncellenecektir.Kapı geçiş seri no değişikliği ile satır kilitlenecek ve sonraki doldurulacak.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Çalışma kitabınızı buraya yükleyebilirseniz iyi olur. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bana burada neyin yanlış olduğu konusunda rehberlik eder misin lütfen? Şimdiden teşekkür ederim.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Eğer Aralık("K:K") = "STOK AŞIRI" ise
Aralık("S:S").Kilitli = Doğru
ElseIf Range("K:K") = "YAVAŞ HAREKET" O zaman
Aralık("S:S").Kilitli = Doğru
ElseIf Range("K:K") = "NORMAL" O zaman
Aralık("S:S").Kilitli = Yanlış
ElseIf Aralığı("K:K") = "EKSİ" O zaman
Aralık("S:S").Kilitli = Yanlış
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu nasıl düzelteceğim konusunda bana tavsiyede bulunur musunuz? Şimdiden teşekkür ederim.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Range("A:A") = "YAVAŞ HAREKET" ise
Aralık("B:B").Kilitli = Doğru
ElseIf Range("A:A") = "STOK AŞIRI" O zaman
Aralık("B:B").Kilitli = Doğru
ElseIf Range("A:A") = "NORMAL" O zaman
Aralık("B:B").Kilitli = Yanlış
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir VB uzmanı olmamak, çok fazla "Elseif"iniz olduğunu söyleyebilirim - sonuncusu dışında hepsini sadece IF olarak değiştirirseniz, umarım bu işe yarar.
Temel olarak X bunu yaparsa, Y bunu yaparsa, Z bunu yaparsa, bunlardan hiçbiri yoksa - bunu yapın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir hücre bloğunu kilitlemek isteseydim (Satır 6, 7 ve 8/D'den U'ya kadar olan Harfler ile F5 ve J5 hücreleri) ve E5 hücresine bir "X" koyduğumda bunların kilidini açmalarını isteseydim nasıl olurdu? Şimdiden teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba MitchyII,
Belirtilen hücre bloğunun önceden manuel olarak kilitlendiğini ve sadece E5 hücresine bir "X" yazarak bunların kilidini açmak mı istiyorsunuz?
E5 hücresinden "X"i kaldırırsanız, aralıkları tekrar kilitlemek ister misiniz?
Sorunla ilgili daha fazla ayrıntıya ihtiyacım var.
Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mitchyll (veya herhangi biri), Crystal'den yola çıkarak. Tüm hücreleri manuel olarak kilitledim ve G sütunundaki bilgilere dayanarak bunların kilitli kalmasını veya kilitlerinin açılmasını istiyorum. H sütunundaki örnek hücrelerin kilidi YALNIZCA G sütunundaki önceki hücreye "c/p" yerleştirilmişse açılmalıdır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Belirli bir değere ulaştığında bir hücreyi kilitlemek mümkün müdür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, neden çalışmadığını kontrol edebilir misiniz?

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
If Range("A3:A37").Value <> "" Sonra
Aralık("B3:B37").Kilitli = Doğru
ElseIf Range("A3:A37") = "" Sonra
Aralık("B3:B37").Kilitli = Yanlış
Eğer son

If Range("B3:B37").Value <> "" Sonra
Aralık("A3:A37").Kilitli = Doğru
ElseIf Range("B3:B37") = "" Sonra
Aralık("A3:A37").Kilitli = Yanlış
Eğer son

End Sub


Şimdiden çok teşekkür ederim!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hi
Az önce yukarıdaki kodu kullanmayı denedim
ve kullanmaya çalıştığımda tip 13 hatası diyor.
bu konuda bana yardım edebilir misin?

teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Hangi Excel sürümünü kullanıyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
hi

sayfa 2'deki (hücre C4) bir iddiaya göre bir hücreyi sayfa 1'deki (hücre C1) kilitlemem gerekirse,
sayfa 1 C4'te "hayır" ise; sayfa 2 kilitli olmalı ve değeri sayfa 1 C4'ten aktarmalıdır.
sayfa 2 C4'e.

1. sayfada "evet" ise, 2. sayfada hücreyi yazabilmeliyim

Teşekkürler Benthe
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba lütfen herhangi biri bana VBA kodu için yardım etsin.

Range(A1:A1000) "abc" hücresindeki açılır menüden seçersem, Range(D1:D1000) to (F1:F1000) öğesini kilitlemeyin



Range(A1:A1000) "abc" hücresindeki açılır menüden seçersem, Range(D1:D1000) to (F1:F1000) öğesini kilitlemeyin



Range(A1:A1000) "abc" hücresindeki açılır menüden seçersem, Range(D1:D1000) öğesini (F1:F1000) olarak kilitleyin



yani D1 ila F1 için ilgili hücre A1



D2 ila F2 için A2
Bu yorum sitedeki moderatör tarafından en aza indirildi
Her şeyi yukarıdan bir sayfaya kopyaladım. Bir saniye çalıştı ve şimdi 'Range sınıfının Kilitli özelliği ayarlanamıyor' hatası alıyorum. Hatta tamamen yeni bir sayfa açtım ve örneğinizi kelimesi kelimesine kopyaladım. Neler olduğu hakkında bir fikrin var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Senin lehine ihtiyacım var. bir hücreden Hayır seçeneğini belirlediğimde aşağıdaki sütunların kilitlenmesini/grileştirilmesini istiyorum.

Mümkün mü? bu formülü denedim ama olmadı

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)

Aralık ("D90") = "Evet" ise

Aralık("C94:F104").Kilitli = Yanlış

ElseIf Range("D90") = "Hayır" O zaman

Aralık("C94:F104").Kilitli = Doğru

Eğer son

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Steffi,
Kod iyi çalışıyor.
Düzenlemeyi önlemek için hücre aralığını kilitlemek istiyorsanız, D90'da Hayır seçeneğini belirledikten sonra çalışma sayfasını manuel olarak korumanız gerekir.
Ve D90, C94:F104 aralığında olduğundan, çalışma sayfasını koruduktan sonra D90 da düzenlenemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
D90 aralıkta değil. C4'ün 94 sıra üstünde
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır