Direkt olarak userform açılsın

[power468]

Arkadaşlar exel sayfasını ilk açığımda user form açılması ve userformu kapattığım zamanda exelden çıkması için nsıl bir kod yazabiliriz

Private Sub Workbook_Open() 'Çalışma kitabı açıldığında UserForm1'i gösterir, exceli kapatır.
Application.Visible = False
UserForm1.Show
End Sub

ÜSTTEKİ KODU ÇALIŞMA KİTABINA YERLEŞTİR


ALTTAKİ KODUDA KAPATACAĞIN BUTONA YERLEŞTİR YEDEKLEYECEĞİN SÜRÜCÜYÜ KOD ÜZERİNDE BELİRT TAMAMDIR
AYNI ZAMANDA HER KAPATTIĞINDA BELİRTTİĞİN SÜRÜCÜYE YEDEKTRE ALMIŞ OLURSUN.



Private Sub CommandButton2_Click()
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
If ds.FolderExists("C:\YEDEKLER") = False Then
ds.CreateFolder "C:\YEDEKLER"
End If
If ThisWorkbook.Path = "C:\YEDEKLER" Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musun?", vbInformation + vbYesNo, "DURUM") = vbYes Then
yol = "C:\YEDEKLER\" & Replace(Now, ":", "_") & "-" & ThisWorkbook.Name
ds.CopyFile ThisWorkbook.FullName, yol
End If



Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
MsgBox " Veriler Koruma Altına Alındı ve Program Kapatılıyor", vbCritical, "Mustafa ELMİR/power_468@me.com/İyi Günler Diler "

Application.Quit
End Sub