Userform 'dan Excel'e Dönerken Şifre Sorsun

[huseyinn31]

Merhaba,

Temsilci seçiminin kağıt üzerinden değil de excel userform kullanarak yapılması yönünde excel hazırlıyorum. Aklımdan geçen çoğu şeyi buradan veya videolardan bularak tamamladım. Nerdeyse son düzlükteyim ama aşağıdaki maddeleri tamamlayamadım. Yardımcı olabilir misiniz

- Ekranda sadece userform gözükecek akşam oylama bitince excelde sonuçları toplayacağız. Bu sebeple userform kapatılmasın diye sağ üst köşedeki X butonunu pasif yaptım. Sonuçlara ulaşmak için Excel butonu koydum. Bu butona basınca exceli açıyor ama arka planda da userform açık kalmaya devam ediyor. Butona basılınca inputbox açılsın, girilen şifre doğruysa userformu kapatıp excel açılsın istiyorum. Bunu nasıl yapabilirim?

- Userform belli bir saate kadar açık kalacak. Sağ üst köşedeki X butonunu pasif yaptık ama başka bir excel açıp userformu kapatabilirler aslında bu işlemi yapacak kimse yok ama ekstra güvenlik önlemi olarak vba 'ya şifre koymamız yeterli olur mu?

 

[huseyinn31]

Userform'dan excel'e dönerken şifre sorması ve şifre doğruysa userformu kapatması için aşağıdaki kodlar kullanılabilir.

Private Sub ExcelSayfasi_Click()
ExcelSifre = InputBox("Şifre giriniz")
If ExcelSifre = "12345" Then
Else
MsgBox ("Yanlış Şifre!")
End If

Application.Visible = True

Unload Me
Userform1.Hide
End Sub