Note: The other languages of the website are Google-translated. Back to English

Excel'de korumalı çalışma sayfasındaki nesneleri düzenlemeye nasıl izin verilir?

Varsayılan olarak, şekiller, metin kutuları gibi eklenen nesneler çalışma sayfası korunduktan sonra düzenlenemez. Korumalı bir çalışma sayfasındaki nesneleri düzenlemeniz gerekiyorsa, lütfen bu makaledeki yöntemleri deneyin.

Nesneleri Düzenle seçeneğini işaretleyerek korumalı çalışma sayfasındaki nesneleri düzenlemeye izin verin
Korumalı çalışma sayfasındaki VBA kodu ile nesneleri düzenlemeye izin ver


Nesneleri Düzenle seçeneğini işaretleyerek korumalı çalışma sayfasındaki nesneleri düzenlemeye izin verin

Çalışma sayfasını korumadan önce nesneleri düzenlemeye izin vermek için lütfen Nesneleri Düzenle seçeneğini işaretleyin. Lütfen aşağıdaki işlemleri yapın.

1. tık Değerlendirme > Koruma Sayfası.

2. içinde Koruma Sayfası iletişim kutusunda bir parola belirtin. Sayfanın korumasını kaldırmak için şifre kutusunu ve kontrol edin Nesneleri düzenle Bu çalışma sayfasının tüm kullanıcılarının şunu yapmasına izin ver kutusundaki kutucuğu, ardından OK buton. Şifrenizi onaylayın Şifreyi Onayla iletişim kutusu. Ekran görüntüsüne bakın:

Artık çalışma sayfası korumalı ve bu korumalı çalışma sayfasındaki tüm nesneler düzenlenebilir.


Korumalı çalışma sayfasındaki VBA kodu ile nesneleri düzenlemeye izin ver

Çalışma sayfası zaten korumalıysa, düzenleme nesnelerine izin vermek için aşağıdaki VBA komut dosyasını deneyebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Tuşuna basın. Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu Çalışma Kitabı solda Proje bölme. Ardından aşağıdaki VBA kodunu kopyalayıp Bu Çalışma Kitabı (Kod) pencere.

VBA kodu: Korumalı çalışma sayfasındaki nesneleri düzenlemeye izin ver

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

not: Kodda, Sayfa3 korumalı çalışma sayfası düzenlemeniz gereken nesneleri içerir. Ve "123" sayısı korumalı sayfanın şifresidir. Lütfen ihtiyaç duyduğunuzda değiştirin.

3. Tuşuna basın. F5 kodu çalıştırmak için anahtarlar ve bu korumalı çalışma sayfasındaki tüm nesneler hemen düzenlenebilir.


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (1)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Bu faydalı makale için teşekkür ederiz. VBA Kodu yöntemini denedim ama benim için pek işe yaramadı.


Kodum (biçimlendirme için üzgünüm, kopyalayıp yapıştıramadım):


Alt Çalışma Kitabı_Aç ()

Çalışma Sayfası Olarak Dim ws

Çalışma Sayfalarında Her ws için

ws.Protect UserInterfaceOnly:=Doğru, Parola:="123"

ws.Otomatik Filtreyi Etkinleştir = Doğru

ws.EnableOutlining = Doğru

ActiveSheet.Protection.AllowFormattingColumns = False ise

ActiveSheet.Protect AllowFormattingColumns:=True

Eğer son

Çalışma Sayfaları ile ("Sayfa1")

.EnableOutlining = Doğru

.EnableAutoFilter = Doğru

.Protect Parola:="123", _

İçindekiler:=True, DrawingObjects:=False, UserInterfaceOnly:=True

İle bitmek

Sonraki ws

End Sub


Gayet iyi çalışıyor ama dosyayı kaydettiğim, kapattığım ve yeniden açtığım anda, ben de

- Parolayı (5 kez gibi) hemen girmesi istendi veya

- çalışma sayfalarından biri için herhangi bir Parola olmadan korumayı kaldırabilme (genellikle Kodda olduğu gibi "Sayfa1")


Benimle aynı hatayı alan var mı? Ya da biri bana yardım edebilir mi?


Şimdiden teşekkürler.


BR

Vanessa
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır