Sayfa Koruma

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

Sayfa Koruma

İleti#1)  enisoruc » 19 Tem 2018 17:51

Merhaba,
Sayfamda tablo olarak biçimlendirdiğim bir data var. Aşağıdaki kodlarla makroyu çalıştırmadan önce korumayı kaldırıp yeniden koruma koyabiliyorum. Ancak Sayfa koruması sırasında işaretlediğim otomatik filitre kullan, seneryoları düzenle gibi seçenekler yeniden işaretlenmiyor. Bu nedenle de tablo dilimleyicisini kullanamıyorum. Bunun bir yolu var mıdır?

Kod: Tümünü seç
Private Sub CommandButton3_Click()
Sheets("STOKS").Unprotect "1254"
Range("STOKS[[#Headers],[SARF Kodu]]").Select
    Selection.ListObject.TableObject.Refresh
Sheets("STOKS").Protect "1254"
End Sub
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfa Koruma

İleti#2)  metehan8001 » 19 Tem 2018 19:51

Kodu aşağıdaki gibi kullanmayı denedin mi hocam ?

Kod: Tümünü seç
Private Sub CommandButton3_Click()
Sheets("STOKS").Unprotect "1254"
Range("STOKS[[#Headers],[SARF Kodu]]").ListObject.TableObject.Refresh
Sheets("STOKS").Protect "1254"
End Sub

Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Sayfa Koruma

İleti#3)  enisoruc » 19 Tem 2018 21:34

metehan8001 yazdı:Kodu aşağıdaki gibi kullanmayı denedin mi hocam ?

Kod: Tümünü seç
Private Sub CommandButton3_Click()
Sheets("STOKS").Unprotect "1254"
Range("STOKS[[#Headers],[SARF Kodu]]").ListObject.TableObject.Refresh
Sheets("STOKS").Protect "1254"
End Sub




Denedim ama maalesef olmuyor.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfa Koruma

İleti#4)  metehan8001 » 19 Tem 2018 22:25

Sayfa koruması sırasında işaretlediğin otomatik filitre kullan, seneryoları düzenle gibi seçenekleri yeniden işaretlemeden önce, Makro kaydet yap hocam. Sonra o kodları da ekle.
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

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

Cevap: Cevap: Sayfa Koruma

İleti#5)  enisoruc » 20 Tem 2018 00:06

metehan8001 yazdı:Sayfa koruması sırasında işaretlediğin otomatik filitre kullan, seneryoları düzenle gibi seçenekleri yeniden işaretlemeden önce, Makro kaydet yap hocam. Sonra o kodları da ekle.


Merhaba,
Aşağıdaki kodlarla oldu.
Teşekkürler.
Kod: Tümünü seç
Private Sub CommandButton3_Click()
Sheets("STOKD").Unprotect "1254"
Range("STOKD[[#Headers],[Demirbaş Kodu]]").ListObject.TableObject.Refresh
Sheets("STOKD").Protect "1254", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot] ve 2 misafir

cron
Bumerang - Yazarkafe