HERBERS Excel-Forum - das Archiv

Thema: geschütztes Dokument

geschütztes Dokument
Airwin

Hi Comunity, ich bins wieder einmal.
Ich habe ein mit Excel-Passwort geschütztes Dokumen.
Nun habe ich ein 2. wo sich in einigen Zellen eine Formel befindet, welche auf das geschützte Dokument verweist.
Wenn ich nun das ungeschützte Dokument öffne, dann werde ich immer nach dem Passwort des geschützten Dokumentes gefragt. Das kann ich zwar abbrechen ist aber lästig.
Kann ich das verhindern?
Wenn ja wie?
Vielen Dank im voraus.
P.S. In der 2. Datei läuft dieses Makro beim Start ab:
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

AW: geschütztes Dokument
Werner

Hallo,
schon mal mit
Application.DisplayAlerts = false
...dein Code
Application.DisplayAlerts = true
versucht?
Gruß Werner

geschütztes Dokument
Airwin

Hi Comunity, ich bins wieder einmal.
Ich habe ein mit Excel-Passwort geschütztes Dokumen.
Nun habe ich ein 2. wo sich in einigen Zellen eine Formel befindet, welche auf das geschützte Dokument verweist.
Wenn ich nun das ungeschützte Dokument öffne, dann werde ich immer nach dem Passwort des geschützten Dokumentes gefragt. Das kann ich zwar abbrechen ist aber lästig.
Kann ich das verhindern?
Wenn ja wie?
Vielen Dank im voraus.
P.S. In der 2. Datei läuft dieses Makro beim Start ab:
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

AW: geschütztes Dokument
Werner

Hallo,
schon mal mit
Application.DisplayAlerts = false
...dein Code
Application.DisplayAlerts = true
versucht?
Gruß Werner

Bewerten Sie hier bitte das Excel-Portal