Soru Giriş Ekranı Öneri Hk.

Private Sub CommandButton1_Click()
If TextBox1.Value = 3 Then End
'if ..........
'......
'Buraya şifre kontrolünü yazın
Else
TextBox1.Value = TextBox1.Value + 1
End If
End Sub

Sub checkRA()
'Google Sheets sayfasında aranan 2 değere göre sonuç çevirir.
'Microsoft XML, v6.0 kütüphaneye eklemeyi unutmayın.
'RBozkurt 05.03.2023

    Dim domain As String
    Dim username As String

    ' WScript.Network'ten domain ve kullanıcı adını alın
    domain = CreateObject("WScript.Network").UserDomain
    username = CreateObject("WScript.Network").username
    
    ' Erişilecek Google Sheet'in ID'sini belirleyin
    Dim spreadsheetID As String
    spreadsheetID = "xxx" 'ID No
    
    ' Erişilecek sayfanın adını belirleyin
    Dim sheetName As String
    sheetName = "lisansRA"
    
    ' Erişilecek hücre aralığını belirleyin
    Dim range As String
    range = "A2:B"
    
    ' API URL'sini belirleyin
    Dim url As String
    url = "https://sheets.googleapis.com/v4/spreadsheets/" & spreadsheetID & "/values/" & sheetName & "!" & range
    
    ' API anahtarını belirleyin
    Dim apiKey As String
    apiKey = "xxx" ' API ANAHTARINIZ
    
    ' İsteği Google Sheets API'sine gönderin
    Dim xmlhttp As New MSXML2.XMLHTTP60
    xmlhttp.Open "GET", url & "?key=" & apiKey, False
    xmlhttp.send
    
    ' Google Sheets API'sinden gelen yanıtı ayrıştırın
    Dim response As String
    response = xmlhttp.responseText
    
    ' Domain ve kullanıcı adının sayfada olup olmadığını kontrol edin
    If InStr(response, domain) > 0 Then
        If InStr(response, username) > 0 Then
            MsgBox "Domain Var, User Var"
        Else
            MsgBox "Domain Var, User Yok"
        End If
    Else
        MsgBox "Yetki Yok"
    End If
    
End Sub

Private Sub CommandButton1_Click()
If TextBox1.Value = 3 Then
CommandButton1.Enabled = False
Exit Sub
Else
'şifre doğru ise çalışması gereken kodlar.......
End If
TextBox1.Value = TextBox1.Value + 1