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.

çok sağol kardeşim çok güzel oldu çok teşekkürler

Çalışma kitabını kapattığımda da aynı sorunu yaşıyorum. Düzeltmek için herhangi bir fikir?

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

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!!

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.

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ı.

Soruldu mu/cevaplandı mı? Kodun neresinde kişisel bir şifre belirleyebilir / değiştirebilirsiniz?

Şifreyi başka bir değerle nasıl değiştirebilirim?

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 biraz çalışır, kapatıp yeniden açtığınızda durur :(

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

Ç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ı?

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.

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

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.

müthiş

Korumalı Çalışma Sayfasında Satırlar ve Sütunlar Nasıl Gruplanır ve Grubu Çözülür?

Kahretsin, bu daha sonra excel'imi çaldı ve şifreyi özel olarak değiştirdi