Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 26-09-2017, 11:12   #1
krizantem_kasimpati
Altın Üye
 
Giriş: 22/01/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
microsoft office 2010 pro
Varsayılan Belirli çalışma sayfalarının yalnız ve yalnız silinmesini engelleme?

Arkadaşlar merhaba!

Yapılabilir mi bilmiyorum ama istediğim,belirli çalışma sayfalarının hiç bir şekilde silinememesi(içeriğine müdahale edilebilmeli).Haricinde sayfa ekleme ve silme yapılabilmeli.Yardımlarınızı bekler şimdiden teşekkür ederim.
krizantem_kasimpati Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-09-2017, 12:39   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,864
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

VBA da "Bu çalışma kitabı" sayfasına kopyalayın. Kaydedip kapatın ve tekrar açın.
Dosyayı kapatmadan önce şifrelenecek sayfa adlarını kendinize göre düzenlersiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim syf()

Private Sub Workbook_Open()

    Dim i As Integer, j As Byte
    
    syf = Array("Sayfa1", "Sayfa3") 'şifreli sayfalar
    
    For i = 1 To Worksheets.Count
        For j = 0 To UBound(syf)
            If Sheets(i).Name = syf(j) Then
                Sheets(i).Unprotect
                Sheets(i).Cells.Locked = True
                Sheets(i).Protect
                Exit For
            Else
                Sheets(i).Unprotect
            End If
        Next j
    Next i
    
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim i As Byte, deg

    ActiveWorkbook.Unprotect

    For i = 0 To UBound(syf)
        If ActiveSheet.Name = syf(i) Then
            ActiveWorkbook.Protect
            Exit Sub
        End If
    Next i
            
    For Each deg In ActiveWindow.SelectedSheets
        For i = 0 To UBound(syf)
            If deg.Name = syf(i) Then
                MsgBox "Seçili Sayfaların Arasında Şifreli Sayfalar Var"
                Exit Sub
            End If
        Next i
    Next deg

End Sub

Not: Detaylı deneme yapmadım.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 26-09-2017, 13:14   #3
krizantem_kasimpati
Altın Üye
 
Giriş: 22/01/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
microsoft office 2010 pro
Varsayılan

Öncelikle alakanız için teşekkür ederim.
Becerememiş olabilirim lakin yazdıklarınızı uyguladıktan sonra malesef ilgili sayfa, üzerinden sağ tuş ile silinebiliyor.Bir yerde hata yapıyor olabilir miyim?
krizantem_kasimpati Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-09-2017, 13:19   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,864
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Eki inceleyin.

Sayfa1 ve Sayfa3 şifreli.

.
Eklenmiş Dosyalar
Dosya Türü: rar Kitap1.rar (17.3 KB, 6 Görüntülenme)
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 26-09-2017, 14:07   #5
krizantem_kasimpati
Altın Üye
 
Giriş: 22/01/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
microsoft office 2010 pro
Varsayılan

Evet inceledim.Kendi çalışma kitabı'ma uyarladım.Şöyle arz edeyim.Sayfalar arasında veri alışverişi (copy-past) yapılamıyor.Halihazırda kullanmakta olduğum makrolarda "Sheets.Add, Sheets(A).Copy After:=Sheets(1)" ve bunun gibi komut satırları hata veriyor.Bunun bir çözümü oluşturulabilir mi? Saygılarımla..
krizantem_kasimpati Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-09-2017, 14:32   #6
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,864
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Örneğinizi görmeden yorum yapmam zor.

Hata aldığınız dosyayı ekleyerek, hangi durumlarda hataların alındığını açıklar mısınız.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 26-09-2017, 15:07   #7
krizantem_kasimpati
Altın Üye
 
Giriş: 22/01/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
microsoft office 2010 pro
Varsayılan

Durumu şöyle özetlemek isterim.Örneğin,göndermiş olduğunuz ekli dosyada "sayfa1"e yazdığım değerleri kopyalayıp hiç bir sayfaya hiç bir şekilde yapıştıramıyorum(tüm korumaları kaldırmama rağmen).Bir de ilgili sayfalardaki "ekle" komutunu aktif hale getirebilir miyiz? Yalnızca silinememesi yeterli.Saygılar sunarım..
krizantem_kasimpati Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-09-2017, 15:20   #8
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,864
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Sayfa aktif olduğunda makro çalıştığı için kopyalama iptal oluyordur.

Üzerinde çalışmak gerek. Boş vaktimde incelerim.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 26-09-2017, 16:00   #9
krizantem_kasimpati
Altın Üye
 
Giriş: 22/01/2014
Şehir: istanbul
Mesaj: 52
Excel Vers. ve Dili:
microsoft office 2010 pro
Varsayılan

Ben şöyle bir çözüm yolu buldum sanırım.Silinmemesi istenen sayfanın kod protokolüne aşağıdaki komutları yazdım.

Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub


Bu makronun çalışabilmesi için de yeni açarak oluşturduğum "Module1" protokolünün içine de aşağıdaki kodları yazdım.Ve gerçekten istediğim oldu.

Sub UnprotectBook()
ThisWorkbook.Unprotect
End Sub


Yalnız yine silinmemesini istediğim sayfalar arası copy-past yapılamıyor.Bir de excel programı bazen çalışmayı durduruyor.Fırsatını bulup incelerseniz sevinirim.
krizantem_kasimpati Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 14:10


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden