Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
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ı.
İyi günler sn hocalarım
Önce Sayın azraep hocamın kodunu yapıştırayım.
Option Explicit
Dim a As String
Private Sub CommandButton1_Click()
a = InputBox("Şifre giriniz : ", "ŞİFRE")
If a = "123" Then
Cells(1, 1) = "Deneme"
Else
MsgBox "hatalı şifre", vbInformation...