[Yardım]  Excel Kapanan Özellikleri Açma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel Kapanan Özellikleri Açma

İleti#1)  erseldemirel2 » 18 Eyl 2019 10:03

Arkadaşlar; aşağıdaki kod ile sayfa koruma ve kaldırma yapılıyordu. Artık buna gerek kalmadı ama kıymetli bir excel dosyasında bazı işlevleri kapatmış. Ekte fotosu var. Sayfa ekleme silme vs. işlemler kullanılamıyor. Tüm özellikleri açmak için bir kod öneriniz varmıdır?


Kod: Tümünü seç
'Option Private Module
Sub protect()
With Worksheets("sayfa1")
.EnableAutoFilter = True
.protect Password:="deneme", Contents:=True, UserInterfaceOnly:=True, AllowFiltering:=True, AllowInsertingRows:=True, AllowSorting:=True
End With
End Sub

Sub unprotect()
With Worksheets("Sayfa1")
.EnableAutoFilter = True
.unprotect Password:="deneme"
End With
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Excel Kapanan Özellikleri Açma

İleti#2)  Feyzullah » 19 Eyl 2019 13:36

Kod: Tümünü seç
Private Sub Sekme_SagClick()
''ExcelDestek.com // metehan8001 // Feyzullah
    ''SİL
    Application
.CommandBars("Ply").FindControl(ID:=847).Enabled = False
    
''TAŞI/KOPYALA
    Application
.CommandBars("Ply").FindControl(ID:=848).Enabled = False
    
''YENİDEN ADLANDIR
    Application
.CommandBars("Ply").FindControl(ID:=889).Enabled = False
    
''GİZLE
    Application
.CommandBars("Ply").FindControl(ID:=890).Enabled = False
    
''GÖSTER
    Application
.CommandBars("Ply").FindControl(ID:=891).Enabled = False
    
''SAYFAYI KORU
    Application
.CommandBars("Ply").FindControl(ID:=893).Enabled = False
    
''EKLE
    Application
.CommandBars("Ply").FindControl(ID:=945).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=946).Enabled = False
    
''KOD GÖRÜNTÜLE
    Application
.CommandBars("Ply").FindControl(ID:=1561).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=1968).Enabled = False
    
''SEKME RENGİ
    Application
.CommandBars("Ply").FindControl(ID:=12181).Enabled = False
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Excel Kapanan Özellikleri Açma

İleti#3)  erseldemirel2 » 19 Eyl 2019 14:08

Teşekkürler deniycem
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Excel Kapanan Özellikleri Açma

İleti#4)  erseldemirel2 » 20 Eyl 2019 20:34

Feyzullah yazdı:
Kod: Tümünü seç
Private Sub Sekme_SagClick()
''ExcelDestek.com // metehan8001 // Feyzullah
    ''SİL
    Application
.CommandBars("Ply").FindControl(ID:=847).Enabled = False
    
''TAŞI/KOPYALA
    Application
.CommandBars("Ply").FindControl(ID:=848).Enabled = False
    
''YENİDEN ADLANDIR
    Application
.CommandBars("Ply").FindControl(ID:=889).Enabled = False
    
''GİZLE
    Application
.CommandBars("Ply").FindControl(ID:=890).Enabled = False
    
''GÖSTER
    Application
.CommandBars("Ply").FindControl(ID:=891).Enabled = False
    
''SAYFAYI KORU
    Application
.CommandBars("Ply").FindControl(ID:=893).Enabled = False
    
''EKLE
    Application
.CommandBars("Ply").FindControl(ID:=945).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=946).Enabled = False
    
''KOD GÖRÜNTÜLE
    Application
.CommandBars("Ply").FindControl(ID:=1561).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=1968).Enabled = False
    
''SEKME RENGİ
    Application
.CommandBars("Ply").FindControl(ID:=12181).Enabled = False
End Sub



Denedim ama başarılı olamadım. Dosyayı eke koydum. Sayfa silme ekleme gibi işlemleri nasıl aktif hale getirebiliriz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Excel Kapanan Özellikleri Açma

İleti#5)  Feyzullah » 20 Eyl 2019 23:55

erseldemirel2 yazdı:
Feyzullah yazdı:
Kod: Tümünü seç
Private Sub Sekme_SagClick()
''ExcelDestek.com // metehan8001 // Feyzullah
    ''SİL
    Application
.CommandBars("Ply").FindControl(ID:=847).Enabled = False
    
''TAŞI/KOPYALA
    Application
.CommandBars("Ply").FindControl(ID:=848).Enabled = False
    
''YENİDEN ADLANDIR
    Application
.CommandBars("Ply").FindControl(ID:=889).Enabled = False
    
''GİZLE
    Application
.CommandBars("Ply").FindControl(ID:=890).Enabled = False
    
''GÖSTER
    Application
.CommandBars("Ply").FindControl(ID:=891).Enabled = False
    
''SAYFAYI KORU
    Application
.CommandBars("Ply").FindControl(ID:=893).Enabled = False
    
''EKLE
    Application
.CommandBars("Ply").FindControl(ID:=945).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=946).Enabled = False
    
''KOD GÖRÜNTÜLE
    Application
.CommandBars("Ply").FindControl(ID:=1561).Enabled = False
    
''TÜM SAYFALARI SEÇ
    Application
.CommandBars("Ply").FindControl(ID:=1968).Enabled = False
    
''SEKME RENGİ
    Application
.CommandBars("Ply").FindControl(ID:=12181).Enabled = False
End Sub



Denedim ama başarılı olamadım. Dosyayı eke koydum. Sayfa silme ekleme gibi işlemleri nasıl aktif hale getirebiliriz?


Kodlar sorunsuz çalışmaktadır, False yazanları True yapmanız yeterlidir.

Ancak sizin sorununuzun konu ile alakası yok gibi yüklemiş olduğunuz dosyada sayfalar korumalı olduğundan menüler etkin olmamaktadır. Sayfa koruma parolasını kaldırınca istemiş olduğunuz menüler aktif olacaktır.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Excel Kapanan Özellikleri Açma

İleti#6)  erseldemirel2 » 21 Eyl 2019 13:49

Sayfa koruması yok ve true yaptım. Ancak yinede çalışmadı acaba excel dosyası hasar almış olabilirmi?
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel Kapanan Özellikleri Açma

İleti#7)  Feyzullah » 21 Eyl 2019 15:55

Yüklemiş olduğunuz dosyada sayfalar korumalı bende. Direk parola istiyor zaten. Hasar almışsa da olabilir.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Excel Kapanan Özellikleri Açma

İleti#8)  erseldemirel2 » 21 Eyl 2019 15:59

Feyzullah yazdı:Yüklemiş olduğunuz dosyada sayfalar korumalı bende. Direk parola istiyor zaten. Hasar almışsa da olabilir.



Feyzullah Bey parolası asd123 dü. Denermisiniz
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Cevap: Excel Kapanan Özellikleri Açma

İleti#9)  Feyzullah » 21 Eyl 2019 16:13

erseldemirel2 yazdı:
Feyzullah yazdı:Yüklemiş olduğunuz dosyada sayfalar korumalı bende. Direk parola istiyor zaten. Hasar almışsa da olabilir.

Feyzullah Bey parolası asd123 dü. Denermisiniz


Parolayı girince normale döndü. Dosya ekte.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Excel Kapanan Özellikleri Açma

İleti#10)  erseldemirel2 » 21 Eyl 2019 17:04

Teşekkür ederim. Başarılı oldu
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Excel Kapanan Özellikleri Açma

İleti#11)  Feyzullah » 21 Eyl 2019 19:03

Rica ederim, İyi çalışmalar.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 720
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 0 misafir

Bumerang - Yazarkafe