Çözüldü makro ile sayfa açılışında şifreleme

Çalışma kitabının kendine ait olan parolayı mı kastediyorsunuz? Yoksa kitap içerisinde bir sistem geliştirerek mi yapmayı planlıyorsunuz?

aeGNoR' Alıntı:

Çalışma kitabının kendine ait olan parolayı mı kastediyorsunuz? Yoksa kitap içerisinde bir sistem geliştirerek mi yapmayı planlıyorsunuz?

Genişletmek için tıkla...

hocam parola girilmeden dosya içeriği görülmesin
B dosyası açıksa sorun yok
Ama B dosyası açık değilse A dosyasının açılması parolaya bağlı olsun istiyoruz

Çalışma kitabındaki parola mantığı gibi

Dosyanı ekle bir çözüm buluruz.

Her iki dosyada da açılışta şifre var (şifre: 1)
Eğer B dosyası açıksa, A dosyasını açtığımızda şifre sormasını istemiyoruz

Şimdiden çok teşekkür ediyorum

Deneyiniz.
Parola:1234

Patron' Alıntı:

Deneyiniz.
Parola:1234

Genişletmek için tıkla...

Ellerinize Sağlık Hocam
Çok Teşekkür Ediyorum

dosyada ufak bir değişiklik yaptım. tekrar indirniz.

hocam devamında alttaki kodun çalışmasını istiyoruz


Option Explicit

Private Sub Workbook_Open()

If Sheets("Bilgi").Range("B1").Value = "" Then
Sheets("Bilgi").Select
Range("B1").Select
Else

Dim bul

Set bul = Sheets("Cari").[H:H].Find("x", LookIn:=xlValues, LookAt:=xlPart)
If Not bul Is Nothing Then: Sheets("Cari").Select: bul.Activate
If Range("H35").Value = "" Then
If Selection.Offset(-36, -1) = "" And Selection.Offset(-28, -4) = "" Then
Selection.Offset(-35, 0).Value = "t"
Selection.Offset(1, 0).Value = ""
Else
Selection.Offset(-35, 0).Value = ""
Selection.Offset(1, 0).Value = "t"
End If
End If
Selection.Offset(-19, 3).Activate
ActiveWindow.Zoom = 80

If ActiveWorkbook.Worksheets("Bilgi").Range("A59") <> "Otomatik" And ActiveWorkbook.Worksheets("Bilgi").Range("A59") <> "Sabit" Then
MsgBox ActiveWorkbook.Worksheets("Bilgi").Range("A59").Value
End If

If ActiveWorkbook.Worksheets("Bilgi").Range("B11") <> "" Then
MsgBox ActiveWorkbook.Worksheets("Bilgi").Range("B11").Value
End If

If ActiveWorkbook.Worksheets("Bilgi").Range("A28") <> "Dosya Aktiflik Süresi :" Then
MsgBox ActiveWorkbook.Worksheets("Bilgi").Range("A28").Value
End If
End If
End Sub

Dosyayı tekrar indiriniz.
HTML:

Patron' Alıntı:

Dosyayı tekrar indiriniz.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Çok teşekkür ediyorum hocam
Ellerinize sağlık

Patron' Alıntı:

Dosyayı tekrar indiriniz.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

hocam şifreyi yazarken ekranda şifrenin 1234 değil de **** şeklinde gizlenmesi mümkün müdür?

Refaz' Alıntı:

inputboxApiMaske_Modul bu zip dosyasındakini bir yere çıkartıp Vba olan yere import yapın.

Sonra ilgili kodu alttaki ile değiştirin.
Arşivimdeki orjinal dosyayıda ekledim lazım olursa kullanırsınız başka yerlerdede.

HTML:

C#: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

çok teşekkür ediyorum hocam
ellerinize sağlık