Makro ile excel kapatma

[Ali Excel Öğreniyor]

Merhabalar, ben excele userform açıp şifre koydum. Yani excel çalışma kitabını açınca otomatik userform çalışıyor ve şifre istiyor, şifreyi girince excel çalışma kitabı açılıyor yanlış girincede şifre yanlış deyip tekrar girmemi istiyor. Buraya kadar sorun yok ama soeun şurda. Gelen userformu çarpıdan kapatınca kapanîyor fakat exceli tekrar açtığımda şifre istemeden direk kitabı açıyor ve bu čalışma kitabı zaten açık diyor. Amacım userform kapatılınca excelde tamamen kapansın.

 

[RBozkurt]

Merhaba.
Şifre kodunu ekleme imkanınız varmıdır? Banada lazım bu şekilde bir şifreleme. Takipteyim bende.

 

[Ali Excel Öğreniyor]

Merhaba.
Şifre kodunu ekleme imkanınız varmıdır? Banada lazım bu şekilde bir şifreleme. Takipteyim bende.

Private Sub CommandButton1_click()
Dim cevap As String
Set ws_data = Sayfa1

cevap = Application.InputBox("lütfen admin şifresini girin", "sayın" & "yönetici")

If cevap <> ws_data.Range("a1").Value Then
MsgBox "yanlış şifre girdiniz", vbCritical, "hata": Exit Sub
End If

Application.Visible = True
Unload Me

End Sub


komut butonuna tıklandığında şifre istiycek ve çalışma sayfasını gizliycek şifreniz sayfa 1 de a1 hücresinde olcak yani a1 hücresine 5 yazarsanız şifreniz 5 olacak. yanlış şifre girilirse uyarı vercek, doğru şifre girildiğinde ise çalışma sayfasını görünür hale getirip sub dan çıkış yapıcak

 

[Korhan Ayhan]

İnceleyiniz.

Userform kapanınca excelde kapansın