Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 01-12-2009, 15:47   #1
zehnisağcan
 
zehnisağcan kullanıcısının avatarı
 
Giriş: 14/05/2009
Şehir: adana
Mesaj: 260
Excel Vers. ve Dili:
2007 türkçe
Varsayılan Excel sayfasına şifre koyma

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
zehnisağcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-12-2009, 17:06   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,466
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Önce sayfayı gizleyin daha sonra;

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

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 08:05   #3
zehnisağcan
 
zehnisağcan kullanıcısının avatarı
 
Giriş: 14/05/2009
Şehir: adana
Mesaj: 260
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

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
zehnisağcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 09:43   #4
nadirornek
Altın Üye
 
Giriş: 14/06/2006
Mesaj: 415
Varsayılan

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
nadirornek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 09:45   #5
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,466
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Activate()
'Application.Visible = False
Şifre = "abc"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("AnaSayfa").Select
'Application.Visible = True
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..

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 09:54   #6
zehnisağcan
 
zehnisağcan kullanıcısının avatarı
 
Giriş: 14/05/2009
Şehir: adana
Mesaj: 260
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

çalışmadfı hocam macro nerde hata yapabilirim
zehnisağcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 09:56   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,466
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Ş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.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 10:03   #8
zehnisağcan
 
zehnisağcan kullanıcısının avatarı
 
Giriş: 14/05/2009
Şehir: adana
Mesaj: 260
Excel Vers. ve Dili:
2007 türkçe
Varsayılan Exel sayfasına şifre koyma

Exel çalışması ektedir hocam
Eklenmiş Dosyalar
Dosya Türü: xls den.xls (280.0 KB, 140 Görüntülenme)
zehnisağcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 10:08   #9
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,466
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

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

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2009, 10:14   #10
zehnisağcan
 
zehnisağcan kullanıcısının avatarı
 
Giriş: 14/05/2009
Şehir: adana
Mesaj: 260
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

18030.................
zehnisağcan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:09


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel - Rotary Web Sitesi
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden