Excel sayfasına şifre koyma

[zehnisağcan]

Merhaba sevgili hocalarım o kadar aramama rağmen istediğim şifreleme sistemini bulamadım çok ihtiyacıma yarayacak

memur izin proğramım var exel olarak form - data - izin kartı

ben izin kartını benden başka kimse görmesini istemiyorum şifre girmeden içi açılmasın

başka konularda gördüm ve uyguladım şifreyi yanlış girip evet veya hayır seceneğini "hayır" secincek yine giriyor sayfaya

sizden ricam sayfaya şifre girilmeden izin data sayfasının acılmayacak sekilde bir macro yapabilirmisiniz

teşekürler şimdiden

 

[Ömer]

Merhaba,

Önce sayfayı gizleyin daha sonra;

Araçlar / Koruma / Çalışma Kitabını Koru menüsünden şifre verin.

.

 

[zehnisağcan]

izin kartını ben görmem gerekiyor ama başka kullanıcılar izin kartını görmemesi gerekmektedir ömer hocam macro ile birşey yapabilirsek sevinirim. "şifre girilmeden sayfa görüntülenmesin tıklandığında"

teşekürler

 

[nadirornek]

Merhaba

Sayfa2 şifrelidir bunu kendi sayfanıza göre uyarlayabilirsiniz


Sub SayfaAç()
Şifre = InputBox("Lütfen şifrenizi giriniz.")
If Şifre <> "12345" Then
MsgBox "Geçersiz şifre girdiniz."
Exit Sub
Else:
Sheets("Sayfa2").Visible = xlSheetVisible
End If
End Sub

Sub Gizle()
Sheets("Sayfa2").Visible = xlSheetVeryHidden
End Sub

 

[Ömer]

Sayfanın kod bölümüne yazınız.

Private Sub Worksheet_Activate()
[COLOR=red]'Application.Visible = False[/COLOR]
Şifre = "[COLOR=blue]abc[/COLOR]"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("[COLOR=blue]AnaSayfa[/COLOR]").Select
[COLOR=red]'Application.Visible = True[/COLOR]
End Sub

Eğer seçtiğiniz sayfaya şifre girmede işlem yapmak istemiyorsanız bu şekilde kalabilir. Fakat seçilen sayfa şifre girmeden görüntü olarak ta gözükmesini istemiyorsanız kırmızı ile işaretli kodların başındaki ' leri silersiniz.

Şifre yanlış yazılırsa AnaSayfa olan sayfa ismine gider. Bu sayfa adını dosyanıza göre değiştirirsiniz..

.

 

[zehnisağcan]

çalışmadfı hocam macro nerde hata yapabilirim

 

[Ömer]

Şifre sorulmasını istediğiniz sayfanın kod bölümüne kopyalamanız gerekir. Yine olmazsa dosyanızı eklerseniz daha net bir cevap verebilirim.

 

[zehnisağcan]

Exel sayfasına şifre koyma

Exel çalışması ektedir hocam

 

[Ömer]

Benim görmem için VBA daki şifreyi kaldırmayı unutmuşsunuz.

.

 

[zehnisağcan]

18030.................

 

[halit3]

bu kodları denermisiniz.
şifre ="1234"

Sub şifrelerikoy()
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "Koruma")
If a <> "1234" Then
MsgBox "şifre yanlış"
Exit Sub
Else
End If

If a = "" Then
MsgBox "şifre yok"
Exit Sub
End If
ActiveWorkbook.Protect Password:="1234", Structure:=True ', Windows:=True ' kapatmak
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(Sheets(i).Name).Cells.Locked = True
Worksheets(Sheets(i).Name).Protect Password:="1234", Contents:=True, Scenarios:=True ' kapatmak
Next
End Sub
Sub şifrelerikaldır()
a = InputBox("BU BÖLÜME GİRİŞ YAPMANIZ İÇİN ŞEFREYİ YAZINIZ.", "Koruma")
If a <> "1234" Then
MsgBox "şifre yanlış"
Exit Sub
Else
End If

If a = "" Then
MsgBox "şifre yok"
Exit Sub
End If
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(Sheets(i).Name).Protect Password:="1234", Contents:=False, Scenarios:=False ' açmak
Next
ActiveWorkbook.Protect Password:="1234", Structure:=False, Windows:=False ' açmak
End Sub

 

[zehnisağcan]

yok hocam çalışmadı normal izin sayfasına kopyaladım ama

 

[zehnisağcan]

halit3 hocam buton kullanmak istemiyorum ben " izin " sayfasına tıklandığında göremesin form sayfasına dönsün şahıs tabi şifre biliyorsa girebilir

 

[halit3]

o zaman Ömer beyin kodunu kullanınız
izin sayfasının kod bölümünde en üstteki "Option Explicit" yazısını kaldırınız.

 

[zehnisağcan]

Sayfanın kod bölümüne yazınız.

Private Sub Worksheet_Activate()
[COLOR=red]'Application.Visible = False[/COLOR]
Şifre = "[COLOR=blue]abc[/COLOR]"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("[COLOR=blue]AnaSayfa[/COLOR]").Select
[COLOR=red]'Application.Visible = True[/COLOR]
End Sub

Eğer seçtiğiniz sayfaya şifre girmede işlem yapmak istemiyorsanız bu şekilde kalabilir. Fakat seçilen sayfa şifre girmeden görüntü olarak ta gözükmesini istemiyorsanız kırmızı ile işaretli kodların başındaki ' leri silersiniz.

Şifre yanlış yazılırsa AnaSayfa olan sayfa ismine gider. Bu sayfa adını dosyanıza göre değiştirirsiniz..

.

evet hocam bu macroyu şimdi uyguladım halit3 hocam savolsun başdaki dediği komutu kaldırdım oldu ama sayfa gizleniyor form sayfasına gecmiyor şifre yanlış oluncak

 

[Ömer]

Bunun açıklamasını #5 nolu mesajda yapmıştım.

 

[zehnisağcan]

hocam ' sildim oluyor ama şifreyi doğru girincek açılmıyor gizli kalıyor hala

 

[Ömer]

Gizlenmesini istemiyorsanız silmemeniz gerekir. Yada tümünü silmeniz gerekir. Ayrıca şifreyi doğru girince sayfa açılır. Yanlış girerseniz FORM sayfasına döner.

.

 

[zehnisağcan]

bu son kodu uyguladım yine aynı hocam

 

[zehnisağcan]

gizlenmesini istemiyorsanız silmemeniz gerekir. Yada tümünü silmeniz gerekir. Ayrıca şifreyi doğru girince sayfa açılır. Yanlış girerseniz form sayfasına döner.

.

şifreyi girdim sayfa açılmadı, dönmedi hocam form sayfasına

istediğim olayın yarısı gerçekleşti ömer hocam bir komut eksik ama ney