Как сделать гиперссылку в экселе активной

Как сделать гиперссылку в экселе активной
Как сделать гиперссылку в экселе активной
Как сделать гиперссылку в экселе активной
Как сделать гиперссылку в экселе активной

Этот вопрос однажды мне задал один человек, но я не смог найти на него ответа. Позже, мне прислали ссылку то ли на специальную программу, то ли на программное решение. Не могу сейчас вспомнить, да это и не важно.

 

На самом деле, даты создания, изменения или последнего открытия документа являются встроенными свойствами любого файла и изменить их так просто не удастся.

Но можно воспользоваться двумя способами изменения даты создания или изменения документа (да, и любого файла).

 

Первый способ - программный на VB. Это решение я нашел на сайте Microsoft в статье . Код привожу ниже:

Option Explicit ' функции преобразования формата даты Private Declare Function SystemTimeToFileTime& Lib "kernel32" (lpSystemTIME As SYSTEMTIME, lpFileTime As FILETIME) Private Declare Function FileTimeToSystemTime& Lib "kernel32" (lpFileTime As FILETIME, lpSystemTIME As SYSTEMTIME) ' функции работы с файлами Private Declare Function lopen& Lib "kernel32" Alias "_lopen" (ByVal lpFileName As String, ByVal wReadWhite As Long) Private Declare Function lclose& Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) Private Declare Function SetFileTime& Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) ' функция для анализа ошибок Private Declare Function GetLastError& Lib "kernel32" () ' для хранения даты во внутреннем формате Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type ' для хранения даты в системном формате Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Sub Form_Load() Dim SysTime As SYSTEMTIME, NowTime As FILETIME Dim FileName$, handleF&, wReadWrite&, k&, k1& ' дата в системном формате SysTime.wYear = 2008 SysTime.wMonth = 6 SysTime.wDay = 9 SysTime.wHour = 7 SysTime.wMinute = 18 SysTime.wSecond = 24 ' преобразование даты во внутренний двоичный формат k& = SystemTimeToFileTime(SysTime, NowTime) ' ' имя файла - он должен существовать FileName$ = "C:\d.txt" 'это пример - Вы можете изменить на путь к свому файлу ' Работа с файлами только средствами функций API ' ВНИМАНИЕ! Для изменения атрибутов файла, ' он должен быть открыт в режиме "разрешения ' записи", например: режим "чтение-запись" ' Const OF_READWRITE& = 2 wReadWrite& = 2 ' Открытие файла handleF& = lopen&(FileName$, wReadWrite&) ' запись новых атрибутов даты k& = SetFileTime&(handleF&, NowTime, NowTime, NowTime) ' была ли ошибка? Можно проверить k1& = GetLastError ' код ошибки ' закрытие файла Call lclose(handleF&) End Sub

Второй способ - использование специальных программ. Например, программы .

 

Программа изменения даты создания файла

 

С помощью этой программки можно изменить как дату (и время) создания файла, так и дату его изменения или последнего открытия. Простая программа, с интуитивно понятным интерфейсом.

 

Может быть, кто-то из читателей сайта знает другие способы изменения атрибутов документа, кроме описанных в заметке?

twitter.comfacebook.comvkontakte.ruodnoklassniki.rumail.ruya.rurutvit.rumyspace.comtechnorati.comdigg.comfriendfeed.compikabu.rublogger.comliveinternet.rulivejournal.rumemori.rugoogle.combobrdobr.rumister-wong.ruyahoo.comyandex.rudel.icio.us

Еще записи по вопросам использования Microsoft Word:

Как сделать гиперссылку в экселе активной Как сделать гиперссылку в экселе активной Как сделать гиперссылку в экселе активной Как сделать гиперссылку в экселе активной Как сделать гиперссылку в экселе активной

Читать далее:




Прически для девочек с заколкой резинкой




Аксессуар для девушки своими руками




Два месяца с девушкой поздравления




Гиф открытки хорошего дня любимая




Поздравление на свадьбу от маленьких племянников