Sayfa göster gizle

[metin_0606]

Değerli üstatlarım buradan işime yarayacak sayfa gizle göster çalışması buldum. Bu çalışma kişilere belirli sayfalara ulaşma yetkisi veriyor. Şifre ile gizleyip şifre ile sayfaları gösteriyor. Ancak ana isimli sayfa sekmesinde mouse sağ tıklayıp göster dediğimde şifresiz bütün gizli sayfaları açabiliyorum. Buna nasıl engel olabilirim.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

ActiveWindow.TabRatio = 0

 

[metin_0606]

Bu kodu bir deneyiniz.

ActiveWindow.TabRatio = 0

Seyit bey bu kodu nerede kullanacağız yardımcı olursanız sevinirim

 

[Seyit Tiken]

"Ana Sayfa'da" kullanın, gizli sayfaların üzerini örtüp görünmelerini engeller.

Ayrıca bu kodu da kullanabilirsiniz

ActiveWindow.DisplayWorkbookTabs = False

 

[metin_0606]

Private Sub CommandButton1_Click()
On Error Resume Next
x = InputBox("Şifrenizi giriniz", "ŞİFRE")
If Not x = 111 Then Exit Sub
If CommandButton1.Caption = "GİZLE" Then
CommandButton1.Caption = "GÖSTER"
Else
CommandButton1.Caption = "GİZLE"
End If
kul1 = Array("ARAÇ_1", "ARAÇ_2", "ARAÇ_3", "ARAÇ_4")
For a = 0 To 3
With Sheets(kul1(a))
If .Visible = False Then
.Visible = True
ElseIf .Visible = True Then
.Visible = False
End If
End With
Next a
End Sub
Bu makro ile gizli sayfaları getirip tekrar gizleyebiliyorum. Ancak mouse sağ tıkladığımda açılan menüde gizli sayfaları göster menüsünü pasifize etmek istiyorum. Bunu nasıl yapabilirim

 

[Suskun]

.visible özelliği Hidden olarak kullanılıyor VeryHidden olarak yapmanız gerek.
with...end with döngülerini aşağıdaki gibi değiştirin kodların aktif olması için şifreleri göster gizle ile girin.

With Sheets(kul2(a))
            If .Visible = False Then
                .Visible = -1 'True = xlSheetVisible
            ElseIf .Visible = True Then
                .Visible = 2 'False = xlSheetVeryHidden
            End If
        End With

 

[metin_0606]

.visible özelliği Hidden olarak kullanılıyor VeryHidden olarak yapmanız gerek.
with...end with döngülerini aşağıdaki gibi değiştirin kodların aktif olması için şifreleri göster gizle ile girin.

With Sheets(kul2(a))
            If .Visible = False Then
                .Visible = -1 'True = xlSheetVisible
            ElseIf .Visible = True Then
                .Visible = 2 'False = xlSheetVeryHidden
            End If
        End With

suskun hocam denedim olmadı benmi yanlış yaptım acaba

 

[Suskun]

Dosyanız.

 

[metin_0606]

Dosyanız.

suskun hocam şifre ile girdiğim zaman sayfalar açılmıyor

 

[metin_0606]

Dosyanız.

sayfalar açılacak ancak gizli sayfaları göster menüsü pasif kalacak yani hiç kimse yetkisi dışındaki sayfayı göremeyecek

 

[Orion1]

Exceli güvenlik düzeyinini düşürerek , eğer dosya password yoksa excel rahatça açılır.
Ve eğer sayfa şifreleri ve kitab şifreleri kırılarak dosya yine şifrelerden kırılarak istediğiniz sayfaya gidebilirsiniz.
Bu işi yapan nette programlar var.Saniyeler içinde kırıyor şifreleri.Nafile uğraş.

 

[metin_0606]

Exceli güvenlik düzeyinini düşürerek , eğer dosya password yoksa excel rahatça açılır.
Ve eğer sayfa şifreleri ve kitab şifreleri kırılarak dosya yine şifrelerden kırılarak istediğiniz sayfaya gidebilirsiniz.
Bu işi yapan nette programlar var.Saniyeler içinde kırıyor şifreleri.Nafile uğraş.

Haklısın Evren hocam ama şu programı dediğim gibi yapamayız mi kullanacak olan arkadaşlar bu işlere girismezler diye düşünüyorum sadece sayfalara yetkilileri dışındaki müdahaleyi engelleyeyim yeter

 

[Suskun]

Tekrar düzenledim.

 

[metin_0606]

Tekrar düzenledim.

Suskun hocam Allah tuttuğunu altın etsin çok teşekkür ederim istediğim gibi oldu

 

[Suskun]

Rica ederim. Ama sn Orion1 'in dediği gibi hırsıza kilit dayanmaz.