kodlarımın sıralmasına yardım

[yldrm_06]

merhaba
Üstadlarım aşağıdakı kodların herpsini tek bir excel dosyasında kullanmak istiyorum ve sıraları gelınce hepsı sırasıyla kodlarım görevlerini yapsın ama ben bunları birleştiremedim üstadlarımdan ricam bana bunları düzenleyip hatta gerekirse uygun bir örnek yaparak bana cevap verebılırlermı sımdıden cok tsk edıyorum.

-------------

DİĞER SAYFALARI GİZLEME - SADECE ANA SAYFAYI GİZLEMEME

Private Sub Workbook_Open()
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "GİRİŞ" Then
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End If
End Sub

-------------

TARİH GELİNCE OTOMATİK SAYFA SİLME

Private Sub Workbook_Open()
On Error Resume Next
If Date = DateSerial(2010, 6, 15) Then
Application.DisplayAlerts = False
Sheets("HAZIRLAMA").Delete
Application.DisplayAlerts = True
End If
End Sub


------------

TARİH GELİNCE OTOMATİK SAYFA SİLME

Private Sub Workbook_Open()
On Error Resume Next
If Date = DateSerial(2010, 6, 15) Then
Application.DisplayAlerts = False
Sheets("BOBİN").Delete
Application.DisplayAlerts = True
End If
End Sub


-------------

C DE ******.xtx dosyasını olmayınca çalışma

Private Sub Workbook_Open()
dosya = Dir("c:\ydkkk.txt")
If dosya = "" Then
MsgBox "Canım Çalışmak İstemiyor, Naparsın İşte ....."
ActiveWorkbook.Close Savechanges:=False
Application.Quit
End If
End Sub

-------------

TARİH GELİNCE HATA VER VE SİSTEMİ KİLİTLE SADECE CTRL+ALT+DEL KAPATSIN

Private Sub Workbook_Open()
If Date >= CDate("25.03.2010") Then
Do
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800752egd", vbCritical, "UYARI !"
Loop
ElseIf Date >= CDate("15.02.2010") Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800755eFd", vbCritical, "UYARI !"
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
GoTo kapat
End If
Exit Sub

kapat:
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End Sub