Yardım Excelde istediğim kadar sayfayı şifreli olarak gizleyip görünür yapmak

hayalibey · 22 Tem 2019

Merhaba benim bir excel sayfam var istediğim kadar sayfayı gizleyip görünür yapmak istiyorum.
Ama görünür yapmak için şart olarak şifre istesin şifre hatalı ise belirtsin hatalı girdiniz diye
Kod açık olsun yani daha sonra yeni bir sayfa excele eklediğimde koda o sayfayı da yazınca şifre
girilmeden sayfaları hiçbir şekilde göstermesin. Aşağıdaki kodu çalıştıramadım bir türlü
Aşağıdaki Kodda yazılı olan PBS excel dosyamın ismidir. Sayfa ismi değildir. Ben birden fazla sayfa için
gizleme ve geri getirme getirirken de şifre sorgulaması istiyorum.
If Sheets(i).Name <> "PBS" Then Buradaki PBS dosya ismidir.

PHP:

Private Sub commandbutton6_click()

    Dim i As Integer, Sifre As String

    Const Parola As String = "12345"

    Select Case CommandButton6.Caption

      Case Is = "Sayfaları Göster"

        Sifre = InputBox("Lütfen Şifreyi Girin.", "Şifre Giriş.")

        If Sifre <> Parola Then Exit Sub

        For i = 1 To Worksheets.Count

            Sheets(i).Visible = -1

        Next i

        CommandButton6.Caption = "Sayfaları Gizle"

        GoTo cikis

      Case Is = "Sayfaları Gizle"

        For i = 1 To Worksheets.Count - 1

            If Sheets(i).Name <> "PBS" Then

                Sheets(i).Visible = xlSheetVeryHidden

            End If

        Next i

        CommandButton6.Caption = "Sayfaları Göster"

        GoTo cikis

    End Select

cikis:

End Sub

muygun · 24 Tem 2019

Merhaba;
Aşağıdaki verdiğim kodları boş bir modüle yerleştirin ve butonlara bağlayarak deneyin.

Sub gizle()
Application.ScreenUpdating = False
sorgu = InputBox("Şifre girin :")
If sorgu = "1" Then
ThisWorkbook.Worksheets("Sayfa2").Visible = xlSheetVeryHidden
ThisWorkbook.Worksheets("Sayfa3").Visible = xlSheetVeryHidden
Excel.Application.ScreenUpdating = True
ThisWorkbook.Worksheets("Sayfa1").Activate
End If
If sorgu <> "1" Then MsgBox (" Şifre Hatalı"), vbCritical
End Sub

Sub göster()
Application.ScreenUpdating = False
sorgu = InputBox("Şifre girin :")
If sorgu = "1" Then
ThisWorkbook.Worksheets("Sayfa2").Visible = True
ThisWorkbook.Worksheets("Sayfa3").Visible = True
Excel.Application.ScreenUpdating = True
ThisWorkbook.Worksheets("Sayfa1").Activate
End If
If sorgu <> "1" Then MsgBox (" Şifre Hatalı"), vbCritical
End Sub

Sub gizle_tüm_sayfalar()
Application.ScreenUpdating = False
sorgu = InputBox("Şifre girin :")
If sorgu = "1" Then
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Sayfa1" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
ThisWorkbook.Worksheets("Sayfa1").Activate
End If
If sorgu <> "1" Then MsgBox (" Şifre Hatalı"), vbCritical
End Sub

Sub göster_tüm_sayfalar()
Application.ScreenUpdating = False
sorgu = InputBox("Şifre girin :")
If sorgu = "1" Then
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
ThisWorkbook.Worksheets("Sayfa1").Activate
End If
If sorgu <> "1" Then MsgBox (" Şifre Hatalı"), vbCritical
End Sub

Burada gizle ve göster makroları belirlenen sayfalar için,
gizle_tüm_sayfalar ve göster_tüm_sayfalar makroları tüm sayfalar için işlem yapacaktır.
Sizin için uygun olanlar/olanları kullanın.
İyi çalışmalar.

hayalibey · 27 Tem 2019

Kodu deneyip size dönüş yapacağım cok teşekkür ederim .

DataMaestro · 23 Tem 2021

Sayın Muygun,

Kodlarınızda inputbox'a gireceğimiz şifreyi nereye yazacağız?

Saygılarımla,

muygun · 25 Tem 2021

Merhaba;

Kodlarda;
If sorgu = "1" Then
If sorgu <> "1" Then

Satırındaki 1 rakamı şifre;
siz isteğinize göre düzenlersiniz.
yada boyut açarak şifreyi şifree değişkenine atar ve burada düzenleme yapabilirsiniz.
İyi çalışmalar.

DataMaestro · 26 Tem 2021

Sayın Muygun,

Ellerinize ve emeğinize sağlık. Tam amacına uygun olarak kodlamışsınız.
ALLAH sizden ve sevdiklerinizden razı olsun
Kolay gelsin

Saygılarımla,

Yardım Excelde istediğim kadar sayfayı şifreli olarak gizleyip görünür yapmak

Daha fazla seçenek

hayalibey

muygun

hayalibey

DataMaestro

muygun

Ekli dosyalar

DataMaestro