проектирование пожарной сигнализации
Проектирование
Монтаж и пусконаладка
Техническое обслуживание
Согласование
Категорирование
Эвакуационные планы
здесь находятся файлы и документы

Файлы, документы и прочее


Шрифт GOST type A раскрыть

64,7 Кб, скачан раз: 3 454, загружен - 17.01.2016, изменен - 02.04.2016
Полный набор шрифтов GOST type A ( обычный, жирный, курсив, жирный курсив )
Найден на просторах...

Шрифт GOST type AU раскрыть

284,2 Кб, скачан раз: 438, загружен - 31.03.2016, изменен - 02.04.2016
Полный набор шрифтов GOST type AU ( обычный, жирный, курсив, жирный курсив )
Со специальными символами
Защищен авторскими правами
ASCON

Шрифт GOST type A FireProjectSPb раскрыть

183,0 Кб, скачан раз: 409, загружен - 02.04.2016, изменен - 02.04.2016
Полный набор шрифтов GOST type A ( обычный, жирный, курсив, жирный курсив )
собственная сборка, строго в кодировке CP1251

Запрос в Минстрой -1 раскрыть

2,3 Мб, скачан раз: 296, загружен - 22.02.2018, изменен - 22.02.2018

Ответ Минстрой - 1 раскрыть

125,9 Кб, скачан раз: 417, загружен - 22.02.2018, изменен - 22.02.2018

Запрос в Минстрой -2 раскрыть

602,3 Кб, скачан раз: 330, загружен - 22.02.2018, изменен - 22.02.2018

Ответ Минстрой - 2 раскрыть

1,1 Мб, скачан раз: 468, загружен - 22.02.2018, изменен - 22.02.2018

Макрос показа пароля в EXEL

Sub PasswordBreaker()
‘Author unknown but submitted by brettdj of www.experts-exchange.com
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox «One usable password is » & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(«a1»).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
 Рейтинг@Mail.ru