Sub Urlaubsplaner_ansehen()
' Urlaubsplaner_ansehen Makro
' MappeXX öffnet, Sheet auf neues kopieren und MappeXX schließen
Workbooks.Open Filename:= _
"D:\\Urlaube\mappe16.xlsm", Password:="huber", ReadOnly:=True
Sheets("Urlaubsplaner").Select
ActiveSheet.Unprotect
Sheets("Urlaubsplaner").Copy Before:=Workbooks("Ansicht Urlaubsplaner
2016.xlsm").Sheets(1)
Windows("mappe16.xlsm").Activate
ActiveWindow.Close SaveChanges:=False
End Sub
Application.DisplayAlerts = false
...dein Code
Application.DisplayAlerts = true
versucht?Sub Urlaubsplaner_ansehen()
' Urlaubsplaner_ansehen Makro
' MappeXX öffnet, Sheet auf neues kopieren und MappeXX schließen
Workbooks.Open Filename:= _
"D:\\Urlaube\mappe16.xlsm", Password:="huber", ReadOnly:=True
Sheets("Urlaubsplaner").Select
ActiveSheet.Unprotect
Sheets("Urlaubsplaner").Copy Before:=Workbooks("Ansicht Urlaubsplaner
2016.xlsm").Sheets(1)
Windows("mappe16.xlsm").Activate
ActiveWindow.Close SaveChanges:=False
End Sub
Application.DisplayAlerts = false
...dein Code
Application.DisplayAlerts = true
versucht?