' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Const VALID_FILENAME As String = "C:\User\Destop\Datei.xls"
Private Sub Workbook_Open()
If Me.FullName <> VALID_FILENAME Then
MsgBox "Sorry..."
Me.Close False
End If
End Sub
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Const VALID_FILENAME1 As String = "C:\User\Destop\Datei.xls"
Const VALID_FILENAME2 As String = "C:\andererPfad\Datei.xls"
Private Sub Workbook_Open()
If Me.FullName <> VALID_FILENAME1 And Me.FullName <> VALID_FILENAME2 Then
MsgBox "Sorry..."
Me.Close False
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen