Dosyadan önce UserForm Açılsın

[1Al2Ver]

Merhaba,

Kullanıcılarının Userform ile belirlendiği dosyamda, dosyayı açınca ;

Önce, sayfa açılıyor (kapandığı zaman hangi sayfada ise o sayfa) sonrasında da Userform devreye girip kullanıcı adı ve şifre soruyor,

Sorun şu ki, kullanıcı Userform'u kapat deyip, sonrasında çıkan mesajda iptal tuşuna basarsa, mevcut sayfa ile dosya aktif oluyor.

İstediğim ise, her şeyden önce Userform açılsın -ki 3 ncü paragrafta anlattığım olay gerçekleşmesin- kullanıcı ve şifre girilince de excel açılsın,

Nasıl bir yol izlenmeli yada kod yazılmalı, yardımcı olmanızı rica ederim.

Teşekkür ederim.

 

[cems]

Kodların çalışması için dosya illa açılmak zorunda.

Bu esnada bir şey görülmesini istemezseniz , boş bir kapak adlı sayfayı tek renk ile boyayın

Bir modül içine :

Sub auto_open ()
Sheets("kapak").select
Workbook.visible = False
Userform1.show

'doğru şifre verildiğinde 

Unload userform1.
Sheets("sayfa1".Select
Range-("a1").activate

.Yanlış şifre verildiğinde

Msgbox " Şifre doğru değil, dosya güvenlik amaçlı kapatılıyor "


Workbook.save
Workbook.visible = True
Msgbox " Program kaydedildi ve kapatılıyor "
Application.quit 
end sub

Carpıdan kapatmayı yasaklayan kodları siteden bulun ve userform kodlarına ekleyin

Dosya eklemediğiniz için bu kodları afaki yazdım ancak , önemli olan açılışta gizlediğiniz dosyayı çıkışta gorunurleştirmeyi unutmamanız

Kısaca açılışta ve kapanışta illa sayfa bir anlık gorunur ve gider

 

[hoguz2]

merhaba
user formun kapatma dugmesini iptal edebilirsiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Çıkış Butonu Kullanın Lütfen!", vbOKOnly, "BİLGİ"
Cancel = True
End If
End Sub


acilista sayfayi gizleyebilirsiniz thisworbook sayfasina

Private Sub Workbook_Open()
UserForm1.Show
End Sub


Private Sub UserForm_Initialize()
ActiveWindow.Visible = False
End Sub

Private Sub CommandButton1_Click()
Windows("kitapadi.xls").Visible = True
End Sub

gibi kodlar kullanabilirsiniz..

kapatma butonu iptal etmek en saglikli calisan sistem olur

 

[1Al2Ver]

Sayın cems, sayın hoguz2, merhaba,

Duyarlığınız, çözümler ve önerileriniz için teşekkür ederim,

Saygılarımla.