okinava14
Bronz Üye
Konuyu Başlatan
Kusura bakmayın affınıza sığınıyorum. ama çok araştırdım. Örnekler fazlasıyla var ama hepsini denedim özellikle alttaki örnekler bile olmadı.
Benim isteğim başlangıçta ve açılışta sadece ve sadece Admin şifre giriş formu açılsın.
Benim hata şu: açılışta sadece şifre giriş formu açılıyor burası tamam fakat şifre doğru girilince anaformla birlikte excelde açılıyor.
Excel hiç açılmasın.
( Ben gizli komutla açayım. bu var sıkıntı yok)
Üzerinde çalıştığım örnekler:
Private Sub Workbook_Open()
Application.Visible = False
FrmUserGiris.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AnaSayfa.Activate
AnaSayfa.Range("B1").Value = ""
ThisWorkbook.Save
Application.Quit
End Sub
'Private Sub Workbook_Open()
' syflr
' AnaSayfa.Activate
' Application.Visible = False
' FrmUserGiris.Show
'End Sub
'---------------------------------------------
'Private Sub Workbook_Open()
'FrmUserGiris.Show
'Application.Visible = False
'End Sub
'--------------------------------------------
'Sub auto_open()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'-------------------------------------------
'Private Sub Workbook_Open()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'----------------------------------
'Private Sub workbook_active()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'Private Sub workbook_deactive()
'Application.Visible = True
'FrmUserGiris.Hide
'End Sub
Bunlar denendi.
Benim isteğim başlangıçta ve açılışta sadece ve sadece Admin şifre giriş formu açılsın.
Benim hata şu: açılışta sadece şifre giriş formu açılıyor burası tamam fakat şifre doğru girilince anaformla birlikte excelde açılıyor.
Excel hiç açılmasın.
( Ben gizli komutla açayım. bu var sıkıntı yok)
Üzerinde çalıştığım örnekler:
Private Sub Workbook_Open()
Application.Visible = False
FrmUserGiris.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AnaSayfa.Activate
AnaSayfa.Range("B1").Value = ""
ThisWorkbook.Save
Application.Quit
End Sub
'Private Sub Workbook_Open()
' syflr
' AnaSayfa.Activate
' Application.Visible = False
' FrmUserGiris.Show
'End Sub
'---------------------------------------------
'Private Sub Workbook_Open()
'FrmUserGiris.Show
'Application.Visible = False
'End Sub
'--------------------------------------------
'Sub auto_open()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'-------------------------------------------
'Private Sub Workbook_Open()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'----------------------------------
'Private Sub workbook_active()
'Application.Visible = False
'FrmUserGiris.Show
'End Sub
'Private Sub workbook_deactive()
'Application.Visible = True
'FrmUserGiris.Hide
'End Sub
Bunlar denendi.