2010 ofis makrolar çalışmıyor

[1alpmus1]

Arkadaşlar 2010 ofis yüklediler 10 yıllık çalışmalarıızdan bir çoğu çalışmaz oldu. Bunun bir yolu yokmu,

Sub Bordroyaz()
'
' Bordroyaz Makro
' Makro aa tarafından 22.01.2003 tarihinde kaydedildi.
'

'

Application.ScreenUpdating = False

aa = MsgBox("BORDROYU YAZDIRMAK İSTEDİĞİNİZDEN İSTEDİĞİNİZDEN EMİN MİSİNİZ ", vbOKCancel, "SON UYARI")

If aa = 1 Then
Sheets("Boş Bord").Select
Columns("A:A").Select
ActiveSheet.Unprotect Password:="Musab" 'Şifre kaldırılır
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
ActiveSheet.Protect Password:="Musab" 'Şifre konulur
Sheets("KASASAYIM").Select




Else
Exit Sub
End If
Application.ScreenUpdating = True



End Sub