Ana içeriğe atla

Excel'de gizli sayfayı korumak için şifre nasıl ayarlanır?

Yazar: Xiaoyang Son Değiştirilme Tarihi: 2020-05-19

Bazı önemli gizli çalışma sayfalarını içeren bir çalışma kitabınız varsa ve başkalarının bunları göstermesine izin vermeyin. Şimdi, gizli çalışma sayfalarını tamamen korumak için bir parola belirlemeniz gerekir, diğer kullanıcılar bunları gösterdiğinde parolayı girmeleri gerekir. Excel'de bu görevle hızlı ve kolay bir şekilde başa çıkmanın herhangi bir yolu var mı?

Gizli sayfaları VeryHidden işleviyle korumak için parola ayarlayın

Gizli sayfayı VBA koduyla korumak için parola ayarlayın

Kutools for Excel ile aynı anda birden fazla çalışma sayfasını koruyun


Gizli sayfaları VeryHidden işleviyle korumak için parola ayarlayın

Normalde, önce çalışma sayfalarını gizlemek için VeryHidden işlevini kullanabilir ve ardından bunlar için bir şifre belirleyebilirsiniz, lütfen aşağıdaki adımları uygulayın:

1. Çalışma kitabınızı açın ve basılı tutun Alt + F11tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

2. In Uygulamalar için Microsoft Visual Basic penceresitık Görüntüle > Proje Gezgini ve Özellikler Penceresi to bölmelerini görüntüleyin.

doc-protect-hidden-yaprak-01

3. Ve sonra Proje-VBAProject bölmesinde, gizlemek istediğiniz çalışma sayfasını seçin ve Emlaklar bölmesinde açılır listeyi tıklayın. Görünür seçilecek bölüm xlSheetÇokGizli seçenek, ekran görüntüsüne bakın:

doc-protect-hidden-yaprak-02

4. Çalışma sayfasını çok gizli yaptıktan sonra, korumak için bir parola belirleyebilirsiniz. İçinde Uygulamalar için Microsoft Visual Basic penceresitık Ekle > modül boş bir modülü açmak için ve ardından Tools > VBAProject Özellikleri, ekran görüntüsüne bakın:

doc-protect-hidden-yaprak-03

5. Sonra patladı VBAProject-Proje Özellikleri iletişim kutusunu tıklayın Koruması sekmesini tıklayın ve ardından kontrol edin Projeyi görüntülemek için kilitle son olarak kutusuna şifreyi girin ve onaylayın. Proje özelliklerini görüntülemek için şifre bölümü, ekran görüntüsüne bakın:

doc-protect-hidden-yaprak-04

6. Sonra tıklayın OK Bu iletişim kutusundan çıkmak ve kapatmak için Uygulamalar için Microsoft Visual Basic penceresi.

7. Çalışma kitabını farklı kaydedin Excel Makro Etkin Çalışma Kitabı biçimlendirin ve şifre korumasının etkin hale gelmesi için kapatın.

doc-protect-hidden-yaprak-05

8. Bir dahaki sefere, bu çalışma kitabını açtığınızda ve çok gizli sayfaların görünür olmasını istediğinizde, bir parola girmeniz istenir. Ekran görüntüsüne bakın:

doc-protect-hidden-yaprak-06


Demo: Gizli sayfaları korumak için parola ayarlayın


Gizli sayfayı VBA koduyla korumak için parola ayarlayın

Gizli sayfaları korumak için bir şifre belirlemek için, sizin için bir VBA kodundan da bahsedebilirim.

1. Korumak istediğiniz bir çalışma sayfasını gizleyin.

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.

3. Sonra seç Bu Çalışma Kitabı soldan Proje Gezginiaçmak için çift tıklayın modülve ardından aşağıdaki VBA kodunu kopyalayıp boş Modüle yapıştırın:

VBA kodu: Gizli sayfayı korumak için parola ayarlayın

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protect-hidden-yaprak-07

not: Yukarıdaki kodda, Sheet1 arasında xSheetName = "Sayfa1" komut dosyası, korumak istediğiniz gizli çalışma sayfası adıdır ve 123456 içinde Yanıt = "123456" ise komut dosyası, gizli sayfa için ayarladığınız paroladır. Bunları ihtiyacınıza göre değiştirebilirsiniz.

4. Şimdi, gizli sayfayı göstermek istediğinizde, şifreyi girmenize izin veren bir istem kutusu açılacaktır. Gizli sayfayı göstermek için tıkladığınızda bu komut kutusu her seferinde görünecektir.

doc-protect-hidden-yaprak-08


Kutools for Excel ile aynı anda birden fazla çalışma sayfasını koruyun

Bir çalışma kitabının birden çok seçili veya tüm çalışma sayfasını aynı anda korumak istiyorsanız, normalde Excel'de tek tek korumanız gerekir. Ama eğer varsa Kutools for Excel, Onun ile Çalışma Sayfasını Koruyun yardımcı program, onları tek bir tıklama ile koruyabilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. tıklayın Kutools Artı > Çalışma Sayfasını Koruyun, ekran görüntüsüne bakın:

2. In Çalışma Sayfasını Koruyun iletişim kutusunda, çalışma kitabındaki tüm çalışma sayfaları liste kutusunda listelenir, lütfen korumak istediğiniz çalışma sayfalarını seçin. Ekran görüntüsüne bakın:

doc-protect-hidden-yaprak-010

3. Ve sonra tıklayın OK, aşağıdaki iletişim kutusunda, lütfen şifrenizi girin ve tekrar yazın, ardından OK, kaç tane çalışma sayfasının korunduğunu size hatırlatmak için başka bir istem kutusu açılacaktır.

doc-protect-hidden-yaprak-011

4. Sonra tıklayın OK diyalogları kapatmak ve çalışma kitabındaki tüm çalışma sayfaları aynı parola ile korunmaktadır.

Not: Tüm çalışma sayfalarının korumasını bir kerede kaldırmak istiyorsanız, sadece Kutools Artı > Korumayı Kaldır Çalışma Sayfasıve korumayı iptal etmek için şifrenizi yazın.

 Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


İlgili yazılar:

Excel'de birden çok çalışma sayfasını aynı anda nasıl koruyabilirim?

Çalışma kitabını korumak için bir parola nasıl belirlenir?

Excel'de VBA kodu nasıl korunur / kilitlenir?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations