Workbook nach Zellprüfung schließen
27.07.2007 07:42:00
Konni
Sub Prüfung()
Sheets("Auswertung").Select
If Range("AF4") 1 Then
MsgBox "Sie haben keine Berechtigung diese Tabelle zu benutzen!", vbExclamation, " _
Hinweis"
Cancel = True
End If
End Sub
in vorstehendem Makro wird geprüft, ob der Zellwert in AF4 ungleich 1 ist, mit anschließendem Hinweisfenster. Das ganze soll beim Öffnen des Workbooks passieren.
Nun soll, wenn das Prüfungsergebnis 1 ist, das Workbook geschlossen werden. Ich bekomme dies leider nicht hin. Will mir dabei jemand helfen?
Vielen Dank und Gruß:
Konni