açılışta istenilen sayfayı gizleme, kaydetme iptali Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit
Dim InI As Integer
Dim ByS As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'    Sheets("Sayfa1").Visible = xlVeryHidden aus
    Dim Mldg As Byte
'    ActiveWorkbook.Unprotect ("Passwort")
    If ActiveWorkbook.Saved Then
        Worksheets("Sayfa1").Visible = True
        For InI = Worksheets.Count To 1 Step -1
            If Worksheets(InI).Name  "Sayfa1" Then Worksheets(InI).Visible = xlVeryHidden
        Next InI
        ByS = True
        ThisWorkbook.Save
    Else
        If ByS = True Then Exit Sub
        Mldg = MsgBox(" Sollen die Veränderungen gespeichertg werden ??", _
            vbYesNo + vbQuestion, "Speicher abfrage ?", "", 0)
        If Mldg = 6 Then
            Worksheets("Sayfa1").Visible = True
            For InI = Worksheets.Count To 1 Step -1
                If Worksheets(InI).Name  "Sayfa1" Then Worksheets(InI).Visible = xlVeryHidden
            Next InI
            ByS = True
            ThisWorkbook.Save
        Else
            ByS = True
            ThisWorkbook.Close False
        End If
    End If
'    ActiveWorkbook.Protect ("Passwort")
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ByS = False Then
        Cancel = True
        MsgBox "Datei kann nur beim schließen gespeichert werden"
    End If
End Sub
Private Sub Workbook_Open()
'    ActiveWorkbook.Unprotect ("Passwort")
    For InI = Worksheets.Count To 1 Step -1
        Worksheets(InI).Visible = True
    Next InI
    Worksheets("Sayfa1").Visible = False
    ActiveWorkbook.Saved = True
'    ActiveWorkbook.Protect ("Passwort")
End Sub

Benzer Sonuçlar
No	Makro Adı
1	açılışta istenilen sayfayı gizleme, kaydetme iptali
2	forma otomatik resim getirme
3	a1 hücresindeki isimle sayfayı istenilen yere kaydetme
4	sayfalara şifre koymak
5	istediğiniz sayfa hariç sayfadaki verileri temizler
6	açılış makrosu (istenilen sayfa)
7	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
8	yalniz çalışma sayfası kaydetme
9	açılışta istenen sayfa
10	kitapta istenilen sayfa adını önizlemek için
11	gizli sayfada makro çalışır mı
12	sayfayı istenilen sayı kadar yazdırma ve numaralandırma
13	her sayfayı ayrı ayrı kitap olarak cye kaydetme
14	kopyala-yapıştırı engelleme
15	makronun otomatik olarak açılması ve çalışması
16	açılışta sayfanın gösterilmesi ve kapanışta görünmemesi
17	istenilen sayfalar haricinde gizleme
18	açılışta b1 tarihi b2 ye kaç kez açıldığını yazar
19	istenilen sayfayı açabilmek
20	açılışta sayfa sayısını mesajla öğrenme

Benzer Sonuçlar

Makro Adı

açılışta istenilen sayfayı gizleme, kaydetme iptali

forma otomatik resim getirme

a1 hücresindeki isimle sayfayı istenilen yere kaydetme

sayfalara şifre koymak

istediğiniz sayfa hariç sayfadaki verileri temizler

açılış makrosu (istenilen sayfa)

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

yalniz çalışma sayfası kaydetme

açılışta istenen sayfa

kitapta istenilen sayfa adını önizlemek için