Hallo miteinander,
ich suche eine Möglichkeit einen Makro (s. u.) auf mehrere Dateien (Excel, Word, Ppt) anzuwenden.
Es geht darum einen Warnhinweis beim Öffnen auszugeben, dass diese Dateien vertraulich sein könnten.
Gibt es eine Möglichkeit ohne Add-in?
Sub Workbook_Open()
Dim Msg, Style, Title
Msg = "Please note that this information might be confidential and should therefore only be shared with clients after careful consideration."
Style = vbOKCancel + vbExclamation + vbDefaultButton1
Title = "Attention"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
MyString = "OK"
Else
MyString = "Cancel"
ActiveWorkbook.Close
End If
End Sub
Vielen lieben Dank im Voraus für jeden Hinweis! |