şifrenin bir sefer girlmesi

[millis]

bir programa şifre ile giriş yapmak istiyorum. sorun şurda; ilk program açıldığında benden şifre ve firmanın ünvanını girilmesini istemesi ( kurulum aşamasında ) ve bu bilgiler dosyanın bir yerinde sabit olarak kalması. Programı daha sonra çalıştırdığımda sadece şireyi istemesini nasıl yapabilirim. Örnek User form ektedir.

 

[ileriexcel]

yanıt

Sub auto_open()
Set s1 = Sheets("sayfa1")
If s1.[a3] = "" Then SIFRE.Show
ac = InputBox("şifrenizi giriniz")
If ac = s1.[a3] Then s1.[a1].Select
If ac <> s1.[a3] Then
MsgBox "yanlış şifre"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub