hiding the desired sheet / page at opening save cancellation Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	hiding the desired sheet / page at opening save cancellation
2	sheet / page hiding operations
3	Save the sheet / page to the desired location with the name in cell a1
4	Hide the names of your sheet / pages
5	Hide or show pivot table fields according to a specific criterion
6	sheet / page showing at opening and not appearing at closing
7	excel operators hk
8	saves the date of a1 to the bottom left
9	to preview the desired sheet / page name in the book
10	remove sheet / page protections
11	output as a word sheet / page
12	Opening internet explorer in Excel
13	specify the number of copies to print from the printer
14	save as macro only save the specified sheet / page
15	opening a web sheet / page
16	automatically opening the column to the desired width when you click on the cell 2
17	automatically opening the column at the desired width when you click on the cell
18	print and number the sheet / page to the desired number...
19	click on one of the abcd letters on the sheet / page to print the desired
20	save to a blank line of the sheet / page that is closed

Excel Free Macros (VBA)

Hiding The Desired Sheet / Page At Opening Save Cancellation

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords