Merhaba hocam. Neden böyle bir hata alıyorsunuz bilmiyorum. Ama şifre ve kullanıcı adı girme yeri açılınca, kullanıcı adı ve şifre girmeyin. Kullanıcı adı ve şifre girme ekranı açık iken 'Ctrl' + 'Pause Break' tuşlarına basın. Bir kod satırı açılması lazım. O kodlar; Private Sub Workbook_Open() Application.Visible = False frmLogin.Show frmLogin.txtKullaniciAdi.SetFocus End Sub olmalı. Burada tüm kodların başına tek tırnak (" ' ") koyarak tüm satırları yorum haline getirin ve dosyayı kaydet diyip yeniden açın. Kullanıcı adı ve şifre sormaması lazım. Bu şekilde yapıp dosyayı kaydettikten sonra excel dosyası direk açılması lazım. 'Private Sub Workbook_Open() 'Application.Visible = False 'frmLogin.Show 'frmLogin.txtKullaniciAdi.SetFocus 'End Sub bu şekilde tüm satırları yorum haline getirin. İyi çalışmalar diliyorum.
❤❤❤
Sayın Hocam elinize sağlık harika bir program olmuş emeğinize sağlık
Hocam programın boş dosya halini paylaşmışsınız ancak link ölmüş yenileyebilir misiniz?
Merhaba. Mail adresinizi yazın dosyayı göndereyim.İyi çalışmalar diliyorum.
hocam merhabalar, yapmış olduğunuz programın kullanıcı adı ve şifresinde hata alıyorum. alper-123456 diye yazdığımda açılmıyor.
Merhaba hocam. Neden böyle bir hata alıyorsunuz bilmiyorum. Ama şifre ve kullanıcı adı girme yeri açılınca, kullanıcı adı ve şifre girmeyin. Kullanıcı adı ve şifre girme ekranı açık iken 'Ctrl' + 'Pause Break' tuşlarına basın. Bir kod satırı açılması lazım. O kodlar;
Private Sub Workbook_Open()
Application.Visible = False
frmLogin.Show
frmLogin.txtKullaniciAdi.SetFocus
End Sub
olmalı. Burada tüm kodların başına tek tırnak (" ' ") koyarak tüm satırları yorum haline getirin ve dosyayı kaydet diyip yeniden açın. Kullanıcı adı ve şifre sormaması lazım. Bu şekilde yapıp dosyayı kaydettikten sonra excel dosyası direk açılması lazım.
'Private Sub Workbook_Open()
'Application.Visible = False
'frmLogin.Show
'frmLogin.txtKullaniciAdi.SetFocus
'End Sub
bu şekilde tüm satırları yorum haline getirin. İyi çalışmalar diliyorum.