2 adet Sub auto_open()

[kargec]

Arkadaşlar selamlar.
Şöyle iki adet makro mevcut.
Yazmayı unuttum kusuruma bakmayın. A2 ve A3te tarihler mevcuttur.

Sub auto_open()
If Date > [A3] Then
ActiveSheet.Unprotect "1234"
Selection.Locked = False
Range("A4:A60,B1:B60,C1:C60").ClearContents
Sheets("Çelik").Unprotect "1234"
Sheets("Çelik").Range("A1:A78,B1:B78,C1:C78,AA1:AA78,AB1:AB78").ClearContents
ActiveSheet.Protect "1234"
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End If
End Sub

Sub auto_open()
If Date < [A2] Then
ActiveSheet.Unprotect "1234"
Selection.Locked = False
Range("A4:A60,B1:B60,C1:C60").ClearContents
Sheets("Çelik").Unprotect "1234"
Sheets("Çelik").Range("A1:A78,B1:B78,C1:C78,AA1:AA78,AB1:AB78").ClearContents
ActiveSheet.Protect "1234"
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End If
End Sub

Makrolar ayrı ayrı çalışıyorlar. Ancak aynı modülde her ikisini aynı anda çalıştıramıyorum. Sebebi her ikisininde auto open olması.
Nasıl bir yol izlemem gerekiyor.
Saygılar..

 

[Orion1]

2 tane olmaz.ikisini birleştirin.

 

[kargec]

2 tane olmaz.ikisini birleştirin.

Birleştirmeyi beceremedim. yada birleştirince çalıştıramadım. Auto_Closed gibi farklı isimler versemde çalışmadı.

 

[Orion1]

Sub auto_open()
If Date > [A3] Then
ActiveSheet.Unprotect "1234"
Selection.Locked = False
Range("A4:A60,B1:B60,C1:C60").ClearContents
Sheets("Çelik").Unprotect "1234"
Sheets("Çelik").Range("A1:A78,B1:B78,C1:C78,AA1:AA 78,AB1:AB78").ClearContents
ActiveSheet.Protect "1234"
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End If

If Date < [A2] Then
ActiveSheet.Unprotect "1234"
Selection.Locked = False
Range("A4:A60,B1:B60,C1:C60").ClearContents
Sheets("Çelik").Unprotect "1234"
Sheets("Çelik").Range("A1:A78,B1:B78,C1:C78,AA1:AA 78,AB1:AB78").ClearContents
ActiveSheet.Protect "1234"
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End If

End Sub

 

[kargec]

Kodu gördüğüm an dank etti. 3 gündür bunaldım valla yaptığım hatayı bile göremedim. Allah razı olsun kardeşim.