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

Korumalı çalışma sayfasındaki satırlar nasıl gruplandırılır ve grubu çözülür?

Hepimizin bildiği gibi, korumalı bir çalışma sayfasında, bazı işlemleri uygulamamız için birçok sınırlama vardır. Örneğin, gruplanmış ve gruplanmamış veriler arasında geçiş yapamayız. Korumalı bir çalışma sayfasındaki satırları gruplamanın veya gruplandırmanın bir yolu var mı?

Korumalı bir çalışma sayfasındaki satırları VBA kodu ile gruplama ve grubu çözme

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balon Korumalı bir çalışma sayfasındaki satırları VBA kodu ile gruplama ve grubu çözme

Belki de bu sorunu çözmenin başka iyi bir yolu yoktur, ancak bir VBA kodu kullanarak lütfen aşağıdaki işlemleri gerçekleştirin:

1. Kullanmak istediğiniz çalışma sayfanızı etkinleştirin, lütfen çalışma sayfasının henüz korunmadığından emin olun.

2. Sonra basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Korumalı bir çalışma sayfasındaki satırları gruplama ve grubu çözme

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve geçerli çalışma sayfasını korumak için şifre girmenizi hatırlatan bir istem kutusu açılır. Ekran görüntüsüne bakın:

doc-group-in-korumalı-sayfa1

5. Sonra tıklayın OK, çalışma sayfanız korumalı, ancak bu korumalı çalışma sayfasındaki ana hat sembollerini genişletebilir ve daraltabilirsiniz, ekran görüntüsüne bakın:

doc-group-in-korumalı-sayfa1

not: Çalışma sayfanız zaten korunuyorsa, bu kod çalışmayacaktır.


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 (32)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika çalışıyor gibi görünüyor, ancak çalışma kitabını kapatıp yeniden açtığımda aynı sorunla karşılaşıyorum - daraltılmış gruplarımı genişletemiyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bende de aynı sorun var, nasıl aşılacağını bilen var mı? Çok teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun için VBA'ya ihtiyacınız var ve son kullanıcının bunun çalışması için makrolara izin vermesi gerekecek.

Visual Basic Düzenleyicisini etkinleştirmek için Alt+F11 tuşlarına basın.

Sol taraftaki proje gezgininde Microsoft Excel Nesneleri altında bulunan ThisWorkbook'a çift tıklayın.

Aşağıdaki kodu görünen modüle kopyalayın:



Özel Sub Workbook_Open ()
Çalışma Sayfaları ile ("Emp Özeti")
.EnableOutlining = Doğru
.Koru UserInterfaceOnly:=True
İle bitmek
End Sub



Bu kod, çalışma kitabı her açıldığında otomatik olarak yürütülecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Bu harika çalışıyor gibi görünüyor, ancak çalışma kitabını kapatıp yeniden açtığımda aynı sorunla karşılaşıyorum - daraltılmış gruplarımı genişletemiyorum.tarafından[/quote]Bu konu aşağıdaki gibi çözülmüştür Private Sub Workbook_Open() Dim wsh Her wsh İçin Varyant Olarak Dim In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ content:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sorun bende de var, sayfayı kapatıp tekrar girdiğimde çalışmıyor... Lütfen adım adım nerede ve nasıl kullanılacağını anlatın O konu aşağıdaki gibi çözüldü Private Sub Workbook_Open() Dim wsh As Çalışma Sayfalarında Her wsh İçin Varyant(Arra y("Sayfa1", "Sayfa2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ content:=True, _ Senaryolar: =True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
çok sağol kardeşim çok güzel oldu çok teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu nasıl işe aldın? Yukarıdaki VBA'ya eklemeyi ve farklı bir modül yapmayı denedim ama yine de çalışmıyor. Kodlardan herhangi birini değiştirmem gerekiyor mu? şifrem gibi kullanıyorum veya sayfa adlarını değiştirmem gerekiyor mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma kitabını kapattığımda da aynı sorunu yaşıyorum. Düzeltmek için herhangi bir fikir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Private Sub Workbook_Open() Dim wsh Çalışma Sayfalarında Her wsh İçin Varyant Olarak Dim(Array("TD_phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ içerik: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun nasıl çalıştığından hala emin değilim. Yeni bir modül mü yapayım yoksa yukarıdakine mi ekleyeyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Orijinal talimatlarda olduğu gibi, bunu nereye koyacağınız konusunda adım adım yürüyebilir misiniz? Teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! İlk makroyu başarıyla kullandım ve ardından çalışma kitabını kapatma sorunu yaşadım ve makro artık çalışmıyor. Yukarıdaki çözümü görüyorum ama bunun işe yaramasını sağlayamıyorum. Bana adım atar mısın? Her iki kodu da birleştiriyor muyum yoksa sadece ikincisini mi kullanmalıyım? Şifrem "köpek" ise koddaki değerlerden birini değiştirir miyim? Yalnızca bir çalışma sayfasına ("Sayfa1"); bunu herhangi bir yerde kullanır mıyım? Şimdiden çok teşekkürler!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lütfen bana yardım edin, korumalı bir excel elektronik tablosunda bazı ruloları ve sütunları daraltmak ve genişletmek istiyorum. Bunu yapmak için makroları nasıl kullanabilirim? Gösterdiğiniz şeyi denedim ama elektronik tablomda çalışmıyorlar. Lütfen yardım et.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, lütfen korumalı excel elektronik tablosundaki ruloları ve sütunları genişletmeme ve daraltmama yardım edin. Yukarıda gösterdiklerinizi kullanmayı denedim ama işe yaramadı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Soruldu mu/cevaplandı mı? Kodun neresinde kişisel bir şifre belirleyebilir / değiştirebilirsiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Şifreyi başka bir değerle nasıl değiştirebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Komutu kullandığımda, aşağıda gösterildiği gibi bir hata mesajı görüyorum:
Özel Sub Workbook_Open ()
Dim wsh Varyant Olarak
Çalışma Sayfalarında Her wsh için(Array("TD_phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Doğru
wsh.Protect Parola:="260615", DrawingObjects:=False, _
içindekiler:=Doğru, _
Senaryolar:=Doğru, _
AllowFiltering:=Doğru, _
AllowFormattingCells:=Doğru, _
userinterfaceonly:=Doğru
Sonraki wsh
End Sub
Çalışma zamanı hatası '9':
Alt simge aralık dışı
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu biraz çalışır, kapatıp yeniden açtığınızda durur :(
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benim için bile, başka bir çözüm var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sub Workbook_Open ()
'20140603 güncellemesi
Çalışma Sayfası Olarak Dim xWs
xW'leri ayarla = Application.ActiveSheet
Dize Olarak xPws Dim
xPws = "rfc" ''Application.InputBox("Parola:", xTitleId, "", Tür:=2)
xWs.Protect Parola:=xPws, Yalnızca Kullanıcı Arabirimi:=Doğru
xWs.EnableOutlining = Doğru
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışmak için bu kodu aldım. Ancak kapatıp tekrar açtığımda geliştirici sekmesine gitmem, makrolar düğmesini seçmem, çalıştır'ı seçmem ve şifreyi girmem gerekiyor.

Şifreyi koddan kaldırmanın VEYA bu marco'yu otomatik olarak çalıştıracak ve şifreyi girecek bir otomatik çalıştırma kodundan çıkarmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dosyanızı kapatıp tekrar açtıktan sonra dosyanızda bu çalışmama sorununu gidermek için VBA kodunu yeni bir modül yerine Microsoft Excel Nesneleri altındaki "ThisWorkbook" içine yapıştırmanız gerekir. Bu, dosya her açıldığında makroyu otomatik olarak çalıştırır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
ThisWorkbook hakkında yeni bir modül yerine Microsoft Objects altında 6 gün önce tartışılan VBA Koduna yönelik görselleriniz var mı? Çalışma kitabıma geri döndüğümde işlevsellik kayboluyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Birinin buna ihtiyacı olabilir, sanırım bu işi nasıl yapacağımı buldum.

Öncelikle kodunuzun @peachyclean'ın önerdiği gibi Microsoft Excel Nesneleri altında "ThisWorkbook"ta yazılması gerekiyor.
İkinci olarak, @Sravanthi'nin yazdığı kodu alın ve yukarıda belirtilen konuma yapıştırın.

Sub Workbook_Open ()
'20140603 güncellemesi
Çalışma Sayfası Olarak Dim xWs
xW'leri ayarla = Application.ActiveSheet
Dize Olarak xPws Dim
xPws = "rfc" ''Application.InputBox("Parola:", xTitleId, "", Tür:=2)
xWs.Protect Parola:=xPws, Yalnızca Kullanıcı Arabirimi:=Doğru
xWs.EnableOutlining = Doğru
End Sub

Mesele şu ki, korumak istediğiniz ancak gruplandırmayı kullanmaya izin veren sayfada olmanız ve çalışma kitabını kaydetmeden korumadan kapatmanız gerekir. Şimdi açarsanız, makro otomatik olarak başlar, sayfanın "rfc" şifresi ile korunmasını sağlar. Artık gruplamayı kullanabilirsiniz, sayfa korunur.

Çözümüm için uygulanan şifreyi değiştirdim, böylece herhangi bir şifreyi BURAYA yeniden yazabilirsiniz:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Parola:", xTitleId, "", Tür:=2)

Ayrıca, dosyayı açarken korunacak sayfanın aktif olmasını istemedim, bu yüzden bu kısmı değiştirdim:
xW'leri ayarla = Application.ActiveSheet ->
Set xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

Artık tılsım gibi çalışıyor, 'WRITEANYSHEET'SNAMEHERE' adlı sayfa korunuyor ancak gruplandırma uygulanabilir. Uzun vadede, bu dosyayı değiştirmek ve çözümü saklamak istiyorsam, bir sonraki açılışta çalışması için bu sayfanın korumasını kaldırmam gerektiğini düşünüyorum. Kapatırken otomatik olarak korumayı kaldırmak için başka bir makro yazabilirsiniz sanırım :)


Umarım yardımcı olmuştur.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba.. Bu harikalar yarattı. Şimdi takıldığım tek yer, bunu çalışma kitabındaki birden çok sayfa için yapmam gerektiği. bu konuda yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA hakkında hiçbir şey bilmediğim için bu dize tam olarak ihtiyacım olan şey gibi görünüyordu. Bunu başlangıçta çalıştırabildim, ancak belirtildiği gibi, elektronik tabloyu kapatıp yeniden açtığınızda artık çalışmıyor. Kodu belirtildiği gibi "ThisWorkbook" içine yazmaya çalıştım ama nasıl yapacağımı çözemiyorum. "ThisWorkbook"u görebiliyorum ama içine nasıl yazacağımı bilmiyorum. Bir modül oluşturmak için gördüğüm her yol, "Microsoft Excel Objects" klasörünün dışında ayrı bir "Modüller" klasöründe yeni bir modül oluşturur. Bu kodu "ThisWorkbook" a nasıl yerleştireceğinize dair herhangi bir öneriniz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
müthiş
Bu yorum sitedeki moderatör tarafından en aza indirildi
Korumalı Çalışma Sayfasında Satırlar ve Sütunlar Nasıl Gruplanır ve Grubu Çözülür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kahretsin, bu daha sonra excel'imi çaldı ve şifreyi özel olarak değiştirdi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun paylaşılan bir çalışma kitabında çalışmasını sağlamanın bir yolu var mı? - Parça değişikliklerine ihtiyacım var, teşekkürler
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