excel sayfasına kullanıcı adı ve şifre koymak

[axtmm]

herkeze merhabalar arkadaşlar ekli listede excel çalışması bütün formüller tamam çalışma harika ama eksik bir problem var kullanıcı adı ve şifresi eksik çok uğraştım ama bir türlü yapamadım yardım etmek isteyen arkadaş varmı?

kullanıcı adı ve şifre açılımı buşekilde yaparmısınız.teşekkürler

KULLANICI ADI:alpaslan
ŞİFRE :y16oec

 

[N.Ziya Hiçdurmaz]

Yanıt

Thisworkbook'a yazınız.

Private Sub Workbook_Open()
Dim DEG1, DEG2 As String
DEG1 = InputBox("Kullanıcı Adınızı giriniz")
DEG2 = InputBox("Şifrenizi giriniz")
If DEG1 = "alpaslan" And DEG2 = "y16oec" Then
[A1].Select
Else
MsgBox "Kullanıcı adı veya şifreniz yanlış", vbInformation
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

 

[axtmm]

Sanirim Ben Beceremedİm Yadimlarinizi Beklİyorum

 

[axtmm]

birden fazla kullanıcı

birden fazla yani 2 kullanıcıylada gire bilirmiyim

KULLANICI ADI:alpaslan
ŞİFRE :y16oec

KULLANICI ADI: kaya
ŞİFRE : ankara

 

[axtmm]

ecxel acill yardım

resimde belirtildiği gibi ( isim süz ) stok süz excel ustalarımdan yardımlarını bekliyorum.teşekkürler

 

[axtmm]

excel yardım resimli anlatım

resimde belirtildiği gibi ( isim süz ) stok süz excel ustalarımdan yardımlarını bekliyorum.teşekkürler