inputbox kapanmasın.

[kaya41]

Herkese merhaba.

Kullanmış olduğum sayfa açıldığında belirttiğim tarih geçtiğinde giriş için şifre soran bir kod var kullandığım.

Benim istediğim bu kodu girdiğim inputbox cancel veya çarpı işareti ile kapatılmasın. Ya şifre doğru girilsin yada hiçbir hareket yapılamasın.

Oluru varsa yardımlarınızı rica ediyorum.
Kullandığım kod.

Private Sub Workbook_Open()
Dim saat1 As Date
Dim saat2 As Date
saat1 = "30/06/2016"
saat2 = Date
Şifre = "rem"
If saat2 > saat1 Then
Yaz_Şifre = InputBox("Microsoft Visual Basic Kod güvenliği açısından şifrelenmiştir." & vbLf & " " & vbLf & "Lütfen Sistem Yönetici Şifrenizi Giriniz.", "")
If Yaz_Şifre <> Şifre Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End If

 

[Emir Hüseyin Çoban]

. . .

Private Sub Workbook_Open()
    Dim saat1 As Date
    Dim saat2 As Date
    saat1 = "30/06/2016"
    saat2 = Date
    Şifre = "rem"
    If saat2 > saat1 Then
10:
        Yaz_Şifre = InputBox("Microsoft Visual Basic Kod güvenliği açısından şifrelenmiştir." & vbLf & " " & vbLf & "Lütfen Sistem Yönetici Şifrenizi Giriniz.", "")
        If Yaz_Şifre <> Şifre Then
            GoTo 10
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        End If
    End If
End Sub

. . .

 

[kaya41]

Teşekkürler üstadım.