Application.DisplayAlerts..........
20.11.2007 20:50:00
Sonnenpeter
ich möchte verhindern, dass es beliebige Kopien eines Tabellenblatts gibt. Dieses dann nach Lust und Laune umbenannt wird und jeweils in der Tabelle Eingetragungen vorgenommen werden die genehm ist.
Dazu habe ich mir nachfolgenden VBA-Code gebastelt.
Private Sub Worksheet_Activate()
Sh = Me.Name
Jahr = Sheets("Jahresliste").Range("C3").Value
On Error GoTo Fehlerbehandlung
If Sh = Jahr Then
Exit Sub
Else
Me.Name = Jahr
End If
Fehlerbehandlung:
Application.DisplayAlerts = False
MsgBox "Keine Vervielfälltigung dieser Tabelle möglich!" & Chr(13) _
& "Die Tabelle gelöscht."
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
Jetzt hängt sich Excel allerdings bei "Application.DisplayAlerts = True" auf.
Kann ich "Application.DisplayAlerts = True" bedenkenlos streichen?
Gruß Sonnenpeter