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

[barış kaya]

iyi günler üstadlarım

A isimli excel dosyasını açmak istediğimizde, makro ile parola sorulmasını istiyoruz.

B isimli dosya açıksa parola sormayacak, B isimli dosya kapalı ise parola sorulmasını istiyoruz.

 

[aeGNoR]

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

 

[barış kaya]

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

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

 

[asax]

Dosyanı ekle bir çözüm buluruz.

 

[barış kaya]

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

 

[Patron]

Deneyiniz.
Parola:1234

 

[barış kaya]

Deneyiniz.
Parola:1234

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

 

[Patron]

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

 

[barış kaya]

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

 

[Patron]

Dosyayı tekrar indiriniz.
HTML:

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

 

[barış kaya]

Dosyayı tekrar indiriniz.
HTML:

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

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

 

[barış kaya]

Dosyayı tekrar indiriniz.
HTML:

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

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

 

[Refaz]

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

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:

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

 

[barış kaya]

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:

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

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