Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Option Explicit
Public islem As String
Dim hak As Byte '0 ile 255 kadar değer
Private Sub btnGiris_Click()
If txtKullanıci.Text = Sheets("Ayarlar").Range("B1") And txtSifre.Text = Sheets("Ayarlar").Range("B2") Then
stBar.Panels(5).Text = "Giriş Onaylandı..."
Application.Wait Now +...