Direkt olarak userform açılsın

power468

Altın Üye
Katılım
23 Aralık 2017
Mesajlar
40
Excel Vers. ve Dili
2016
Altın Üyelik Bitiş Tarihi
21-08-2025
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
 
Üst