Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

' У разі успіху повертає True, інакше - False

Public Function DelSheetByDate (sSheetName As String _

dDelDate As Date) As Boolean

On Error GoTo errHandle

DelSheetByDate = False

' Перевірка дати

If dDelDate <= Date Then

' Не виводити підтвердження на видалення

Application. DisplayAlerts = False

ActiveWorkbook. Worksheets (sSheetName). Delete

DelSheetByDate = True

Application. DisplayAlerts = True

End If

Exit Function

errHandle:

MsgBox Err. Description, vbCritical, "Помилка №" & Err. Number

End Function

Придушення "гарячих" клавіш

Public Sub Auto_Open ()

' Overrride standard accelerators

With Application

. OnKey "^o", "Dummy"

. OnKey "^s", "NewAction"

. OnKey "^р", "" ' Kill hotkey!

End With

End Sub

' - ----

Public Sub Dummy ()

MsgBox "This hotkey redefined!"