Worksheet sınıfının Visible özelliği kurulamıyor

[etmeha]

merhabalar

Worksheet sınıfının Visible özelliği kurulamıyor

gizli sayfaları göstermek için hidden özelliğini açamıyorum dosyayı ekledim yardımcı olursanız sevinirim

 

[Muzaffer Ali]

Merhaba.
Gözden Geçir tabını açın, Çalışma Kitabını Koru tıklatıp şifre girerek korumayı kaldırın.

 

[etmeha]

şifreyi bilmiyorum maalesef

 

[Muzaffer Ali]

Sayfaları yeni bir dosyaya kopyalamak için aşağıdaki kodu bu dosyanın kod bölümüne kopyalayıp çalıştırın.

Sub test()
    Dim w As Workbook
    Dim Bak As Worksheet
    Set w = Workbooks.Add
    
    For Each Bak In ThisWorkbook.Worksheets
        w.Worksheets.Add
        w.ActiveSheet.Name = Bak.Name
        Bak.Cells.Copy w.ActiveSheet.Range("A1")
    Next
End Sub

Sadece sayfalar kopyalanır. Kod kısımlarındaki kodlar kopyalanmaz, onları da siz elinizle kopyalarsınız.

 

[etmeha]

vavv bu çok iyi teşekkür ederim

 

[Muzaffer Ali]

rica ederim. İyi çalışmalar.